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PREFACE 


This book contains information for programming support 
representatives and system programmers who maintain VS APL. When 
used with VS APL source-program listings, it enables them to 
ispecies the internal operation of VS APL and to maintain the 
system. 


The book is divided into six sections: 


@ "Section 1. Introduction,” is an overview of the VS APL 
program product. 


e "Section 2. Method of Operation,” contains Hierarchy Input 
Process Output CHIPO) diagrams that describe the functions 
performed. 


° "Section 3. Program Organization,” lists the entry points to 
routines in alphabetic order. It contains, for each entry 
point, a description of the function of its routine, the 
name of the module in which it is contained, the names of 
entry points from which it is called, and the names of entry 
points that it calls. 


e "Section 4. Directory,” lists the entry points in alphabetic 
order with the names of their containing modules and the. 
number of the HIPO diagram referring to that module, if any. 
It also contains the same information in alphabetic order by 
module name. 


) "Section 5. Data Areas," describes the VS APL workspace and 
the functions performed by the VS APL interpreter, and shows 
the formats of control blocks. 

® "Section 6. Diagnostic Aids,” describes serviceability aids 
and other information helpful in reading the program 


listings, and in detecting, tracing, and documenting 
problems in VS APL. 


PREREQUISITE KNONLEDGE 


The prerequisite knowledge for using this publication is a basic 
understanding of VS APL concepts and other related information 
found in the VS APL General Information, VS APL for CICS/VS: 
Terminal User's Guide, VS APL for Cis: Terminal User's Guide, VS 
APL for 130: Terminal Terminal User's Guide, and VS APL for VSPC: 

Terminal User's Guide. 
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° VS APL for VSPC: Terminal User's Guide, $H20-9066 

s) VS TSIO Guide and Reference, SH20-9107 
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SUMMARY OF AMENDMENTS 


RELEASE 4, AUGUST 1981 


VS APL SESSION 


MANAGER 


New Programming Feature 


The VS APL Session Manager component of the program product is 
now available under CICS/VS. 


AUXILIARY PROCESSORS 


New Programming Feature 


VSAM Auxiliary 


MAINTENANCE 


New auxiliary processors have been added to VS APL under CICS/VS 
and VSPC as follows: 


AP 120: VS APL Session Manager Command, for CICS/VS 
AP 126: GDDM, for CICS/VS and VSPC 


Processor Enhancements 


The functions of AP 123 are now available under CICS/VS and 
VSPC. 


As reflected in the Table of Contents, the Data Areas section 
has been restructured for ease of use as follows: Interpreter 
Data Areas, Executor Data Areas and Control Block Formats. Under 
Control Block Formats, data areas Cand the system components 
which employ them) are ordered alphabetically. 


RELEASE 4, MARCH 1981 


VS APL UNDER TSO 


New Programming Feature 


VS APL SESSION 


VS APL under TSO (Time Sharing Option) is now included in the 
program product. Information about VS APL under TSO has been 
added to this book. 


MANAGER 


New Programming Feature 


The VS APL session manager is a neW component of the program 
product, and is available for users under CMS and TSO. It 
provides a set of commands by which the user may control the VS 
APL session, produces a record of the session (called a "session 
log"), and enables the user to scroll through the session log. A 
Method of Operation diagram has been added for it. 
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AUXILIARY PROCESSORS 


New Programming Feature | } 


VSAM Auxiliary 


New auxiliary processors have been added to APL under CMS and 
TSO. The Lists of auxiliary processors and the Method of 
Operation diagrams have been amended to reflect these additions. 
The new processors are: 


AP 120: VS APL Session Manager Command, for CMS and TSO 
AP 121: APL Data File, for CMS 
AP 126: GDDM, for CMS and TSO 


Processor Enhancements 


AP 123 will now support the following functions under CMS and 
TSO: 


Record Search by generic key 

Record search by key greater than or equal to 

Access to relative record data sets 

Direct access to entry~sequenced data sets 

Direct query for record identification 

Alternate indexing with duplicate key support } 
Reusable files 


Documentation Change 


The names of several auxiliary processors have been changed to 
reflect more clearly their functions as well as to provide 
consistency among subsystems. The following table gives the old 
and new names of each renamed auxiliary processor, by subsystem. 





Subsystem Old Name Nen Name 
CICS/VS APL Format APL Data File J 
Command CICS/VS Command 
Main Storage Access Storage Display 
CMS CMS Stack Input Alternate Input 
CMS FILEDEF I7Z0 QSAM 
CMS VSAM VSAM 
VSPC APL Format APL Data File 
EBCDIC Format EBCDIC Data File 
Workspace Access Storage Display 
References to "distributed workspaces" have been changed to : 
"workspaces," to avoid any confusion with the concept of - 


distributed systems. 
WORKSPACES 


Specification Change 


Several new workspaces have been added to VS APL», and some 
previously provided workspaces have been removed. The list of 
workspaces provided has been revised accordingly. 
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RELEAS AUGUST 1978 


VS APL SUPPORT 


FOR CICcs 


Under Release 3 of VS APL, support is now provided for the 
CICS/DOS/VS and CICS/OS/VS (VS1 and MVS) environments Cin 
addition to the CMS and VSPC environments) as follows: 


° CICS executor provides environment-dependent services for 
interpreter/translator. 


e CICS shared storage manager (Can integral component of CICS) 
manages communication between interpreter/translator and 
auxiliary processors. 


e Extension of current auxiliary processor (command auxiliary 
processor, VSAM/ISAM file auxiliary processor, APL format 
auxiliary processor, and the full screen manager auxiliary 
processor) support to CICS. 


° Addition of four new auxiliary processors (main storage 
access auxiliary processor, DL/I access auxiliary processor, 
transient data auxiliary processor, and the alternate input 
auxiliary processor) for the CICS environment. 


e Addition of a new CICS APL library service program 
facilitates conversion of libraries and functions. 


e Addition of three new distributed workspaces (DL/I support 
workspace, file support workspace, and an administrative 
workspace) for the CICS environment. 


RELEASE 2, SEPTEMBER 1976 


VSAM SUPPORT UNDER CHS 


DOS/VS SUPPORT 


VS APL ASSIST 


MAINTENANCE 


Under Release 2 of VS APL, support is now provided for VSAM when 
using CMS auxiliary processors. 


FOR VSPC 


New modules have been added to allow VSPC to run under DOS/VS. 
These new modules are similar in function to those for OS/VS 
VSPC. Modules in OS/VS are prefixed by the letters APLO; the new 
DOS/VS modules are prefixed by the letters APLD. Thus, unless 
explicitly indicated otherwise, modules indicated in this 
publication as beginning with APLO should be interpreted as if 
they began with APLD when working with VSPC under DOS/VS. 


The "Diagnostic Aids™ section explains how to handle possible 
problems with the VS APL Assist. 


A number of technical errors have been corrected in this 
edition. The "Program Organization” and the "Data Areas" 
sections have been updated considerably. 
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SECTION 1. INTRODUCTION 





The VS APL processor is an interactive program product that runs 
under the following systems: 


e Customer Information Control System (CICS/VS) 

e Conversational Monitor System (CMS) 

e Time Sharing Option (TSO) 

e Virtual Storage Personal Computing System (VSPC) 

VS APL analyzes, stores, and executes source statements written 


in the VS APL language. In addition, it provides a facility for 
converting various workspaces to VS APL format. 


VS APL PROCESSOR OVERVIEW 


The VS APL processor consists of the folloving components: 
e The translator 
e The interpreter: exarch and appendage routines 


® Four executors—VS APL CICS/VS, VS APL CMS, VS APL TSO, and 
VS APL VSPC 


° The CMS/TSO shared storage manager 


° The CICS/VS shared storage manager 


° Auxiliary processors 

e The APL Service Program Library 
e Workspaces 

° Workspace libraries 

e Cross-system executor services 
° VS APL session manager 


VS APL Component Functions 


The translator analyzes VS APL source statements entered at the 
terminal, and translates them into internal codes, either 
building them into defined functions for later execution or 
passing them immediately to the interpreter for execution. 


The interpreter, comprising exarch and appendage routines, 
scans, analyzes, and executes tokenized statements. Exarch is 
available either as microcode or as assembler language modules. 
Appendage routines, available only as assembler language 
modules, run tn conjunction with exarch. 


The executor handles initialization of VS APL, and receives 
control from, and returns control to CICS/VS, CMS, TSO, or VSPC. 
It also issues supervisor service requests to CICS/VS, CMS, TSO, 
or VSPC as required by the VS APL processor and handles 
asynchronous events such as proaram checks, attention, and other 
interrupts. 
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The shared storage manager builds control blocks, sets shared 
memory, and issues system service requests in association with 
the shared variable facility of VS APL. ) 


The auxiliary processors provide functions outside of the APL 
workspace environment by communication with the operating system 
access methods. 


The conversion programs convert APL4360, APL/CMS, and APL Shared 
Variable CAPLSV) workspaces to the VS APL format as required by 
CIcs/vs, CMS, TSO, or VSPC. 


In addition to these general conversion utilities, a 
CICS/VS-only library service program uses conversion output to 
import the converted workspaces from APLSV, APL/CMS, or APL/369 
to VS APL format; a TSO internal APL file service program 
manages the import and export of APL object files to and from 
the APL user's TSO system; and a T5090 converted workspace import 
program processes output from APL converted programs, and 
imports loadable workspaces for TSO. 


Certain workspaces are provided with VS APL to aid the user in 
migration from APL/4360, to help him tn learning VS APL, and to 
do certain commonly-needed functtons. They are tools to assist 
users tn the use of VS APL. ) 


The cross-system executor services represent a set of components 
which provides equivalent services to the CMS, TSO, or CICS/VS 
executor. 


The VS APL sesston manager Coptionally avatlable to the APL 
user) provides common session support, for use with terminals of 
the IBM 3270 Information Display System under CMS, TSQ0, or 
CIcs/vs. 


VS APL Environirent 





UNDER CIcS/VS: VS APL runs as a series of CICS/VS transactions. 
The following is a ltst of transactions by transaction ID. 


e APL Specifies the APL user sigri-on transaction 
e APLU Specifies the user session transaction 
e APLL Specifies the library access transaction 


e APLT Specifies the non-GDDM terminal I/0 transaction 

e APLH Specifies the hardcopy processing transaction 

e APLO Specifies the auxiliary processor 100 transaction » 
e APLX Specifies the GDDM terminal [70 transaction 


Note that although these default transaction IDs are used 
throughout this book, an installation can define different 
transaction IDs. 


UNDER CNS: The VS APL translator, interpreter, executor, and 
shared storage manager run as a CMS module. 


UNDER TSO: The VS APL translator, interpreter, and executor run 
as a TSO command processor, 


UNDER VSPC: The VS APL translator, interpreter, and executor run 
as a VSPC foreground processor. 
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C 


Translator 


interpreter 


The 


PURPOSE AND FUNCTION OF THE VS APL PROCESSOR 


translator receives VS APL source statements as input, 


directs system commands to the proper routines, converts VS APL 
source statements to internal codes (tokens), and builds VS APL 
functions as required. The functions of the translator are to: 


The 
Its 


The 


Initialize the user's workspace 


Receive terminal input and determine its type and 
destination within the processor 


Prepare VS APL statements for execution 

Isolate and execute system commands 

Perform sequencing and control functions for the processor 
translator is divided into the following modules: 
Initialize workspace: APLITINI 

Input/output: APLITINP 

System commands: APLITCMC, APLITCMD, APLITCME, APLITCMF, 
op cee. APLITCMI, AFLITCML, APLITCMS, APLITCMT, APLITCPI, 


Statement conversion: APLITFUN, APLITIDS, APLITLXS, 
APLITNCV, APLITPRL. 


Function definition: APLITFDC, APLITFDE, APLITFDN, APLITFDO, 
APLITHDR. 


Execution control: APLITERR, APLITEX. 

Subroutines: APLITFCH, APLITSUB, APLITUSG. 

Message text and default workspace values: APLITMSG 
Mark end of load module: APLITIHI 

Copyright statement: APLCOIBM 


interpreter receives tokenized VS APL statements as input. 
functions are to: 


Receive control from the translator; return control when 
input is exhausted or when a translator service is required 


Scan, analyze, and execute tokenized statements 
Format terminal output; request executor output 


Communicate with the shared storage manager when a shared 
variable is encountered 


interpreter is divided into the following modules: 
Exarch: APLIECMX, APLIEFCH, APLIEFNM, APLIEIDX, APLIEMND, 


APLIEPSI, APLIEREV, APLIERHO, APLIESCA, APLIESPA, APLIETAK, 
APLIEXAR, APLIEXFR. 
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e Appendage Routines: 


APLIAENC, 
APLIAPRD, 
APLIASHV, 
APLIATSP. 


Executor 


APLIAFOR, 
APLIAQFN, 
APLIASYV, 


APLIACHK, 
APLIAGFM, 
APLIARED, 
APLIATAK, 


APLIACIR, 
APLIAGOU, 
APLIAROT, 
APLIATBC, 


APLIADEC, 
APLIAGRD, 
APLIASCH, 
APLIATRN, 


APLIADOM, 
APLIANAM, 
APLIASHF, 
APLIATRS, 


The executor is used for communication between the VS APL 


processor and the CICS/VS§ 
services include terminal 
The 
from one another, 


libraries. 


processor 


CMS, 


TSO, 


or VSPC system. 
mnAput and output and access to 


Such 


individual executor module configurations differ 


15 operating, 


functions. These are: 


depending on the system under which 


the 


but all four executors perform similar 


Establish the VS APL processor environment 


Manage asynchronous events; for example, 


from the terminal 


attention signal 


Execute VS APL processor service requests, including 


terminal I70 requests 


The executors 

e cCIcs/vs: 
APLKASTB, 
APLFXIIM, 
APLKLIBF, 
APLKMSCB, 
APLKTRQO, 


° CMS: 
APLSCTIO, 
APLSCSVI, 


° TSO: 
APLYUEXC, 
APLYUMSC, 
APLYUSHS, 
APLYUTYP, 


e VSPC: 
APLPAPGD, 
APLPMISC, 


are divided into the following modules: 


APLSCERR, 


APLYUCMD, 


APLPAPAB, 


APLKADEF, 
APLKDOPS, 
APLKIFIX, 
APLKLIBG, 
APLKSSVP, 
APLKTSRV, 


APLSCDAC, 
APLSCTBL, 


APLYUHSH, 
APLYUMSG, 
APLYUSHV, 
APLYUUSR, 


APLPCOAP, 


APLPSERR, 


Cross-System Executor Services 


APLSCFXI, 


APLYUDOC, 


APLPAPCD, 


APLKADSP, 
APLKEHCP, 
APLKISVI, 
APLKLIBU, 
APLKSSUB, 
APLKVOPS 


APLSCSSi, 
APLSCTYP, 


APLYUIIM, 
APLYUOPT, 
APLYUSSH, 
APLYUTBL 


APLPCOEX, 
APLPSHVR, 


APLSCINI, 


APLYUDPY, 


APLKAGBL, 
APLKEMGR, 
APLKLIBA, 
APLKLIBV, 
APLKTCTL, 


APLSCHSG, 
APLSCDPY 


APLYUINI, 
APLYUPFK, 
APLYUSVI, 


APLPAPFS APLPAPGB, 


APLPCTBL, 
APLPTYIO 


APLSCLIB, 


APLYUERR, 


APLKAHST, 
APLKLIBR, 
APLKLIBB, 
APLKLTAB, 
APLKTRAN, 


APFLSCIMSC, 


APLYULIB, 
APLYURVC, 
APLYUTIO, 


APLPFXIM, 


These services comprise the following components: 


APLKASON, 
APLKAMIX, 
APLKLIBC, 
APLKMSCA, 
APLKTREQ, 


APLSCOPY, 


APLSCSHV, 


APLYUFXI, 


APLYULNE, 
APLYUSCN, 
APLYUTRN, 


APLPAPGC, 


APLPLIBS, 


e GDDM Interface Services (GDDX)—provides a set of services 


for communication with the Graphic Data Display Manager 
(GDDM) when it is used in the session. GDDX is made up of 
the following modules: APLXGCOM Ccommon), APLXGCHC (common), 
APLXGCAT Ccommon), APLXGS (CMS), APLXGY (TSO), APLXGKU 
CCICS/VS), APLXGKT CCICS/VS), APLXGKR (CICS/VS), APLXGKRQ 
CCICS/VS), APLXGKRR CCICS/VS), and APLXGKON (CICS/VS). 


Main Storase Services—provides the calling routine with a 
system-independent interface for requesting GETMAIN and 
FREEMAIN services. There are three separate modules: 
APLXMYSG €TS0), APLXMSSG (CMS), and APLXMKSG CCICS/VS). 


Stack Management Services—provides a cross-module workstack 
facility which performs register saving and supplies 
module-level work areas. The module is APLXSTAK. 
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° APL Print Services—provides APL print (open, write, and 
close) support for CMS/TSO, and acts as an APL print support 
interface for CICS/VS. There are three separate modules: 
APLXPK (CICS/VS), APLXPS (CMS), and APLXPY (TSO). 


° File System Services-—processes file processing requests for 
the auxiliary processor AP 121 and the scrolling code in the 
executor. There are three separate modules: APLXFYFL (TSQ), 
APLXFSFL (CMS), and APLXFKFL (CICS/VS). 


° Common AP Services—provides a set of services between an 
auxiliary processor and the shared storage manager with a 
system-independent interface. There are four modules: APLXAC 
Cems 7 TSO)» APLXAK (CICS/VS), APLXASD (CMS) and APLXAYD 

$0). 


e Wait-Post Services—provides wait-post services to CMS and 
TSO executor tasks, and acts as a system-independent 
interface to CICS/VS executor processes. There are three 
separate entry points: APLXWYWP (TSO), APLXWSWP (CMS), and 
APLXWKWP CCICS/VS). 


O Abend Services—allows CMS, TS0, and CICS/VS tasks to 
attempt to recover from abends and program checks. There gre 
three separate entry points: APLXBYAB (TSO), APLXBSAB (CMS), 
and APLXBKAB (CICS/VS). 


° Dump Services—provides for caller-selected areas of storage 
to be printed to a particular destination in a CMS, TSO, or 
CICS/VS environment. There are two separate entry points: 
APLXDUMP (CMS and TSO) and APLXDKMP (CICS/VS). 

° Translation Services~provides various supported translation 


services, as well as descriptions of request blocks for 
translation. The module is APLXTRAN. 


e Conversion Services—provides data type conversions for 
numeric objects. The module is APLXVERS. 


VS APL Session Manager 


CMS/TSO Shared 


The VS APL session manager comprises the following executable 
modules which are used to process terminal tables requests from 


the CICS/VS, CMS, or TSO executor, or from an auxiliary 
processor: 

APLACCBE, APLACDSL, APLACHLP, APLACNDP, APLACMSG, APLACMDX, 
APLACOPY, APLACPRM, APLACPRO, APLACQRY, APLACQUE, APLACRDA, 
APLACRSA, APLACSF, APLACXCM, APLADMSG, APLADTTM, APLAK, APLAKP, 
APLALINE, APLAS, APLASA, APLASP, APLAUSRX, APLAY, APLAYA, APLAYP 


Storage Manager 


For VS APL under CMS and TS0, the shared storage manager is 
logically a part of the respective executor. (In the case of VS 
APL under VSPC, it forms an integral component of VSPC.) The 
shared storage manager's principal function is to manage 
communication between the interpreter/translator and the 
auxiliary processors. The tasks performed are: 


e Initialization for shared variable processing 
° Processing of shared variable commands 
e Termination of processing when the shared variable facility 


is no longer required 
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A cammon set of shared storage manager modules is employed for 


the CMS and TS0 executors. 


e APLSHACC, APLSHBPB, APLSHBVB, APLSHCPY, APLSHGET, APLSHOFR, 
APLSHPUT. APLSHQUE, APLSHREF, APLSHRET, APLSHSOF, APLSHSON, 
APLSHSPC, APLSHSRD, APLSHSUB 


CIcS/VS Shared Storace Manager 


The shared storage manager for the CICS/VS executor 
is composed of two modules. 


apart of the executor. [t 


e APLKSSUB, APLKSSVP 


Auxiliary Processors 


is logically 


Auxiliary processors are non-APL programs that operate outside 


the APL environment. 


The auxiliary processor concept provides a 


method of extending the capability of the APL environment. 


UNDER CICS/VS: 
management services for APL files, 
data bases; 
services, 
in CICS/VS transient data destinations, 
or statement, 
display facilities, 


Auxtliary processors provide selected data 
VSAM and ISAM files, 
allow a user to request a subset af CICS/VS 
display certain areas of main storage, 


and DL/} 


read/write data 
spectfy an APL command 


provide for application control of the IBM 3270 
and to display alphameric and graphic data 


Cincluding color and extended highlighting) via the graphic date 


display manager (GDDM). 
Auxiliary 
Processors 


AP 100 (CICS/VS Command) 


AP 
AP 


102 
120 
iZt 
123 
124% 
125 


(Storage Display) 

CVS APL Session Manager Command) 
CAPL Data File) 

CVSAM) 


AP 
AP 
AP (Full Screen Management) 


AP COLL) 


AP 126 
132 


t3s9 


(GDDM) 
AP 
AP 


(Transient Data) 


CAlternate Input) 
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These auxiliary processors are: 


Modules 


APLIOOK, 
APL1O0KO 


APL102K 
APL120 
APL1I21K 
APL123K 
APL124K, 


APL1I25K. 
APL125KO0 


APL1IQOKU, 


APL124KO0 
APLI25KD, 


APL126, 
APLI32K 
APL1I39K 


APL126T 








UNDER CMS: Auxiliary processors provide selected data management 
services for CMS files, VSAM files, and 0S files supported by 
QSAM. They also allow an APL application to specify terminal 
input data, to pass commands to CP or CMS, to specify an APL 
command or an APL statement that will be executed when terminal 
input is next requested, and to display alphameric and graphic 
data Cincluding color and extended highlighting) via the graphic 
data display manager (GDDM). These auxiliary processors are: 


Auxiliary 

Processors Modules 
AP 100 (CMS Command) APL100 
AP 101 CAlternate Input) APL101 
AP 110 (CMS File) APL110 
AP 111 (€QSAM) APL111 
AP 120 (CVS APL Session Manager Command) APL126 
AP 121 CAPL Data File) APL121 
AP 123 CVSAM) APL123 
AP 126 CGDDM) APL126 


UNDER TSO: Auxiliary processors provide selected data management 
services for VSAM files, 0S files supported by QSAM, and 
unkeyed, relative record, fixed-length files supported by BDAM. 
Thay also allow an APL application to specify an APL command or 
an APL statement that will be executed when terminal input is 
next requested, to issue TS$0 interactive commands,» and to 
display alphameric and graphic data Cincluding color and 
extended highlighting) via the graphic data display manager 
CGDDM). These auxiliary processors are: 


Auxiliary 

Processors Modules 

AP 100 (TSO Command) APLYU100 

AP 101 CAlternate Input) APLYU101 

AP 102 (Storage Display) APLYU10O2 

AP 111 (Q@SAM) APLYU1LILI1 

AP 120 (VS APL Session Manager) APL120 

AP 121 CAPL Data File) APL121 

AP 123 (VSAM) APL123 

AP 126 (GDDM) APL126, APL126T 


AP 210 CBDAM) APLYU210 
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UNDER VSPC: Auxiliary processors provide selected data 
management services for VSPC library files and VSAM files 
maintained by the operating system, and provide for application 
control of the IBM 3270 display facilities. Under VSPC, the 
auxtliary processors are contained within the executor, and 
operate through modules APLPAPAB, APLPAPCD, APLPAPFS. APLPA?GB, 
APLPAPGC, APLPAPGD, APLPCOAP, and APLP126T. The auxiliary 
processors ere: 





- Auxiltary 

Frocessors Modules 

AP 100 CVSPC Command) APLPAPAB 

AP 101 CAlternate Input) APLPAPAB 

AP 102 (Storage Display) APLPAPAB 

AP 121 CAPL Data File) APLPAPAB, APLPAPCD 

AP 122 CEBCDIC Data File) APLPAPAB, APLPAPCD 

AP 123 CVSAM) APLPAPAB, APLPAPCD 

AP 124 (Full Screen Management) APLPAPAB, APLPAPFS ) 

AP 126 (GDDM) APLPAPAB, APLPAPGB, 
APLPAPGC, APLPAPGD, 
APLP126T 


APL Service Program Library 


THE CONVERSION PROGRAMS: These members of the service program 
library construct VS APL workspaces from APL/7360, APLSV, and 
APL“CNS dump tapes for CICS/VS, CMS, TSO or VSPC. They also 
provide user profile and directory information for VSPC. 


The configuration of the conversion programs is as follows: 


° Cus CAPL7360 and APLSV): APLCCULL, APLCDISP, APLCFUNC, 
APLCGRUP, APLCIBHNM, APLCINIT, APLCLEAR, APLCMISC, APLCPARM, 
APLCRPRT. APLCSAVE, APLCSHIP, APLCSPIE, APLCTBCD, APLCVARB, 
APLCLIXSP, APLCHSFH. 


° CNS CAFLZCNS): APLQDISP, APLQFUNC, APLQGRUP, APLQIBNM, 
APLQINIT, APLQLEAR, APLQMISC, APLQPAPM, APLQRPRT, APLQSAVE, 
APLQVARB, APLQUIKSP, APLQSPIE. 





° crcesvvS, TSO, vsPpe (OS/VSL and OS/VS2): APLOCULL, APLODIRE, 
APLODISP, APLOFUNC, APLOGRUP, APLOIBIIM, APLOINIT, APLOLEAR, | 
APLOMISC, APLOPARM, APLORPRT, APLOSAVE, APLOSHIP, APLOSLST;, ) 
APLOSPIE, APLOTBCD, APLOTIDY, APLOVARB, APLOHKSP, APLOWSFN. 


° cresvvs (DOS/VS): APLDCULL, APLDDIRE, APLDDISP, APLDFUNC, 
APLDGRUP, APLDIBNM, APLDINIT», APLDLEAR, APLDMISC, APLDPARM, 
APLDRPRT, APLDSAVE, APLDSHIP, APLDSLST, APLDSPIE, APLDTIDY, 
APLDTBCD, APLDVARB, APLDWKSP, APLDNSFN. 


In addition to the above modules, each version of the conversion 
program also contains these translator and interpreter modules: 
APLIEREV, APLIESPA, APLITFDC, APLITHDR, APLITIDS, APLITLXS, 
APLITNCV and APLCOIBN. 


When used with CICS/VS, TSO, or VSPC, the conversion program 
runs in the batch environment of the host operating system 
(OS/7VS1, OS/VS2, or DOS/VS). Under CMS. it runs as a serarate 
program invoked from a CMS EXEC procedure and under control of 
the CMS nucleus. 
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Workspaces 


OTHER SERVICE PROGRAMS: Other members of the service program 
library are the following: 


FOR CICS/VS: An APL library service program imports and exports 
workspace and auxiliary processor 121 files, copies APL user 
libraries and initializes APL data sets during CICS/VS 
installation. This program comprises the following modules: 


APLKDALD, APLKDAUT, APLKDCMD, APLKDCPY, APLKDDOS, APLKDDSI, 
APLKDDSO, APLKDEXP, APLKDIMP, APLKDINT, APLKDLBI, APLKDLBO, 
APLKDIISG, APLKDPIN, APLKDSPG, APLKDTPQ, APLKDTRM, APLKDSCN, 
APLKDEXC, APLKDFMT, APLKVALD, APLKVCIID, APLKVOPI, APLKVDSI, 
APLVDSO, APLKVEXP, APLKVIMP, APLKVINT, APLKVLBI, APLKVLBO, 
APLKVMSG, APLKVPIN, APLKVSPG, APLKVTPO, APLKVTRM, APLKVSCN, 
APLKVEXC, APLKVFMT 


FOR TSO: A workspace manages importing Caddition) and exporting 
Coff loading) of APL objects to and from the APL user's library 
under TSO. The workspace, WSINFOQ, contains additional 
information on this workspace. 


In addition to the workspace, there is an APL TSO converted 
workspace import program which processes output from APL 
converted programs and imports loadable workspaces for the TS$Q 
system. This single load module is invoked as a batch job; its 
name is APLYUCNV. 


The environment for VS APL is established by an area of storage 
called a workspace. The size of the workspace is determined by 
the installation and the limits of the host system (CICS/VS, 
CMS, TSO, or VSPC). The workspace contains the user's programs, 
the values of variables, the user status, and the current input 
to or output from the interpreter. The workspace, therefore, is 
the means of communication between the executor, the translator, 
and the interpreter. 


Workspace Libraries 


Three libraries of Workspaces are provided with VS/APL, as 
follows: 


° Library 1: (workspaces of general usefulness for all 
systems) 


- WSINFO——-summary of all workspaces. 
° Library 2: Cauxiliary processor workspaces) 
° Library 314159: (special workspaces—CICS/VS only) 


- ADMIN—monitors and controls use of the APL system under 
CICS/VS, and maintains the APL directory. 


Each of these workspaces has three functions or variables that 
describe what it contains and how it is used. They are: 


° ABSTRACT—-brief description of workspace contents. 
e DESCRIBE=-what the workspace contains, in detail. 


® HOW—how ta use the workspace. 
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PHYSICAL CHARACTERISTICS OF THE VS APL PROCESSOR 


Object Modules 


The VS APL processor is distributed in the form of separate 
object modules as described under "Purpose and Function of the 
VS APL Processor" in this section. 


Load Modules 


UNDER CICS/VS: VS APL Cexcept for the library service and 

conversion programs) is stored in the CICS/VS load library as a 
set of independent load modules. Each load module is identified 
to CICS/VS by an entry in the CICS/VS processing program table 








(PPT). 

The following load modules are built from multiple source 

modules: 

APLINTRP contains the interpreter modules CAPLIxxx x), 
APLFXIIM and APLCOIBM 

APLKADSP contains the CICS/VS executor modules APLKAMIX, 
APLASCHD APLKADSP, APLKIFIX, APLKLIBC, APLKLIBU, 
APLKMSCA, APLKMSCB, APLKISVI, APLXGCHC, APLXGCOM, 
APLXGKON, APLACRCP, APLACCBE, APLACDSL, APLCCHLP, 
APLACMDX, APLACMSG, APLACNDP, APLACOPY, APLACPRM, 
APLACPRO, APLACQRY, APLACQUE, APLACRDA, APLACRSA, 
APLACSF, APLACXCM, APLADMNSG, APLADTTM, APLAK, 
APLAKP, APLALINE and APLAUSRX 

APLKASON contains APLKMIX and APLKASON 

APLKLIBG contains APLKLIBA, APLKLIBG, APLKLIBV and APLKLTAB 

APLKEHCP contains APLKEHCP and APLKTRAN Calso included in the 
APLKASTB load module) 

APLKTCTL contains APLKTCTL and APLKTCWR 

APLKSPRG contains the library service program modules listed 
under the section entitled "Purpose and Function of 
the VS APL Processor.” Note that modules beginning 
with APLKY are in a load module for QS/VS only, and 
that modules beginning with APLKD are in a load 
module for DOQS/VS only. 

APLXGKT contains APLXGKT and APLAKP 

APLLOOK contains APL1OQK and APL1OOKU ) 

APL120 contains APL120, APLASCHD, APLAK and APLAKP 

APL1249K contains APL1I24K and APL124K0 

APL125K contains APL125K and APL125KD Cor APL125KV) 

APL126 contains APL126, APL126T 

APLKASTB contatns APLKASTB, APLKAGBL, APLKDOPS Cor APLKYOPS), 


APLKEMGR, APLKLIBB, APLKLIBR, APLKLIBF, APLKSSUB, 
APLKSSVP, APLKTRAN, APLKTREQ, APLKTRQO, APLKTSRY, 
APLXAK, APLXDKMP, APLXFKFL, APLXMKSG, APLXSTAK, 
APLXTRAN, APLXVERS, APLXGKU, APLXPK, APLASCHD, 
APLAKP, APLXGKRQ, APLXGKR, and APLXGKRR 





censed Materital—Property of IBM 


Li 
10 VS APL Program Logic 


All other modules are stored as separate load modules (CAPLKADEF, 
APLKAHST, APL1O0KO, APL102K, APL121K, APL123K, APLI32K, APL139K, 
and APLKPARM). 


UNDER CMS: The executor, translator, interpreter, and shared 
storage manager object modules are link-edited and loaded as one 
load module (VSAPL). Optionally, auxiliary processors may also 
be included in this load module. A second load module (startup 
module APL) is generated for discontiguous segment 
determination. 


The conversion program object modules are link-edited and loaded 
as one load module for each of the conversion programs. The load 
module names are: APLCVCMS Cconvert APL/360 and APLSV workspaces 
under CMS), APLCVRPQ Cconvert APL/CMS workspaces under CMS), 
APLCVOS (convert APL/7360 and APLSW workspaces under OS/VS1 or 
OS/VS2), and APLDVDOS (Cconvert APL/360 and AFPLSV workspaces 
under DOS/VS). 


UNDER TSO: The executor, translator, interpreter, and shared 
storage manager object modules are link~edited and loaded as one 
load module with the name VSAFL. 


URDER VSPC: The executor (which includes the auxiliary 
processors), translator, and interpreter object modules are 
link-edited and loaded as one load module. 


Flow of Control 


Flow of control among VS APL modules is determined by the VS APL 
scurce statements received at the terminal or contained within 
the workspace as function definitions that are to be executed. 


The major flow of communication betueen components is shown in 

Figure 1. The flow of communication to the auxiliary processors 
and shared storage manager its not applicable. Under VSPC, where 
the auxiliary processors are contained within the executor, the 
shared storage manager is a component of the host system (YSPC). 
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Figure 1. VS APL Processor Communication Overview 
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< 


Data Set Information 


Installation 


YSTEM CONFIGURATIO 





Processors 





IM CICS/VS: For DGQS/VS, the executor modules reside in the 
system or private core image library: for OS/7VS1l. they reasida in 
LINKLIB or in a CICS/VS load libary: for OS7VS2., thoy resica in 
LPALIB or in a CICS/VS Load Libary. User workspaces raside in 
the APLLIB VSAM entry sequenced data sat for BOSZ7VYS. OS/7VS1. and 
OS/7VS2. 


IN CNS: In CMS, VS APL modules, files, and workspaces exist as 
individual files on VM mini-disks. If VS AFL ts used in a 
discontiguous shared seament (DCSS), then the module imagas also 
reside in the CP system storage. 


IN TSO: Load modules can reside in LPALIB or in another load 
libary. User workspaces reside in saequantial CBSAM) cata sets. 


IM VSFC: The processor rasides in the VS system library: in 
NS/7VS1 it resides on the SYSI.LINKLIB library; in OS7VS2 it 
resides in the SYSI.LFALIB library. User torkspacas reside on 
the SYSLIB2 VSAM entry sequenced data set (OS7VS1 and O5/7VS2). 


VS APL under CMS, CICS/VS, TS0, or VSFC is installed by standard 
crerating systan installation tools. These are SIP (for GE/¥5 
systems), MSHP Cfor DOS/VS systems), and PLC Cfor CS systems). 


Control Information 


UNPRER CICS/ZVS: Yre VS AFL processor ts started either from a 
terminal or from another transection. 


UNDER C5: The VS APL processor 18 entered by means of eae command 
given from the terminal or from on EXEC procedure. The APL 
initialization routine, after analyzing tha comrand para vctars, 
uses a CMS EXEC calied APLEXIT to establish the APL envirenment. 
APLEXIT EXEC 35 invoked again at termination. 


UNDER TSO: The VS APL processor is started by a TSO cormnand 
processor invokad by entering its name CAPLI throuch the 
terminal or fram a CLIST. 


UNDER VSPC: The VS APL processor is sterted at user logan time 
by the YSPC online program if the user's profile specifies VS 
APL. or by the “ENTER APL" command issued at a later time during 
the user's session, 


UNDER CICosvVvS: VS APL operates on all compatible processors 
supported by CICSZYS undar DOSZ7YS, OSZVS1, ar rvs. 


UNDER cs: VS APL operates on all comnatible pracessors 
supported by CMS under the Virtual Machine Facility7370 
CVII7Z379). 


UIDER TSO: VS APL aperates on all comnatible processors 
supportacd by TSO under the MVS operating system. 


UNDER Vsrce: VS APL orerates on all comratible processors 
supported by VSPC under ASZYS] or MYS. 
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Access Methods 


methods, although access to ISAM files through the CICS/VS 
interface is also supported. VSAM requirements tnclude control 
interval processing as well as essentially all of the VSAM 
support available under CICS/VS. 


UNDER CICS/VS: VSAM and SAM are the only required access } 


URDER CMS: The standard CMS file access macros are used to 
access CMS files. Access to VSAM 1s also supported. For a 


description of these macros see JBM Virtual Machine 
Facility/370: CP Command Reference for General Users. 


UNDER TSO: VS APL employs BSAM, BPAM, VSAM, QSAM, and BDAM files 
for APL applications. 


UNDER VSPC: VS APL uses the VSPC library management function, 
based on the Virtual Storage Access Method (VSAM), for all 
library support. It supports all DASD devices supported by VSAM. 
Auxiliary processors may also provide other access method 


support. 
Terminals 
Refer to the following manuals for a description of the - 
terminals supported under VS APL: 
© VS APL for CICS/VS: Terminal User's Guide 
e VS APL for CMS: Terminal User's Guide 
e VS APL for TSO: Terminal User's Guide 
e VS APL for VSPC: Terminal User's Guide 
Supervisor Service Calls ) 


UNDER CICS/VS: Most APL supervisor services are requested 
through CICS/VS interfaces. VSAM control interval processing is 
performed using operating system services directly. In some 
cases,» VS APL uses CICS/VS control blocks and macros that are 
not a part of the CICS/VS external interface. 


UNDER CNS: The VS APL executor routines issue CP and CMS 

commands; CMS macros, such as DMSFREE and DMSFRET; and simulated 

OS macros, such as WAIT, POST, STIMER, and STAX. The executor 

also makes use of some CMS routines whose address constants are 

found in the CMS NUCON macro. Hexadecimal location 449 in the 

CMS NUCON macro is reserved for a pointer to the VS APL global ' 
table (€GLBLTABL). ) 


UNDER TSO: VS APL makes use of the services described in A Guide 
to Writing a Terminal Monitor and Program Command Processor. The 
primary 1TS0 services used are DAIR and TGET/TPUT. MVS operating 
system services are also used. 


UNDER VSPC: VS APL makes use of the service calls provided 
through the defined foraground interface to VSPC. These calls 
are described in "Method of Operations” (Diagram 1.1: 
"Communication with VSPC"™). 
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ERROR HANDLING 


customer Information Centrol System (CICS/VS) 


UNIRER CICS/VS: The integrity of the VS APL user's variables and 
functions is protected by the VS APL executor itself. Errors of 
a single user or program errors Within a processor cannot 
interfere with another user. VS APL executor and interpreter 
routines operate in problem pragram state. 


VS APL under CICS/VS provides an internal dump facility for the 
user's workspace and thea areas asseciated with it. A dump is 
requested automatically by the VS APL processor to provide 
information about certain types of processor-related systam 
errors. 


VS APL under CICS/VS intercepts both processor pace faults and 
program checks. Program checks are passed back to the processor 
to take appropriate action and to issue appropriate diagnostic 
and error messages. 


Conversational Monitor System (CNS) 


UNNER CiS: The integrity of VS APL is protected by the Virtual 
Machine Factlity/7370 (CVM"/4370), CMS, and the VS APL executor 
routines. Vt/370 ensures that no errors of a single user and no 
errors of the VS APL interpreter or executor routines can affect 
any other user. 


VS APL executor and interpreter routines crerate in the virtual 
sunervisor state. The executor routines providca thetr cwn 
storage protection as well as data protecticn for 
non-interpreter routines. Pragramn checks are intercepted by the 
VS APL executor routines and passed back to the interpreter 
through the defined interface. This allows the interpreter to 
issue appropriate diagnostic and error messages. 


VS APL executor routines check VM/370 system messages and return 
codes after issuing system service requests. 


A STAE exit is provided to allow dumping of storage for problen 
determination. The STAE exit stops the virtual machine so that 
thea user can enter CP commands to display storage and help 
tsolate problems. 


For noncatastrorhic errors, diagnostic information is printed at 
the user's terminal and the active workspace is cleared. 


Time Sharing Option (TSO) 


UPSER T59: The integrity of VS APL ts protected by both the 
Multiple Virtual Storage (MVS) and the VS APL executor routines. 
MVS ensures that no errors of a sincle user and no errors of the 
VS APL interpreter or executor routines can affect any other 
user. 


VS AFL empleys ESTAE, SPIE, and ATTACH with the ESTAI option to 
gain control when MVS detects an error. In addition, the 
auxiliary processors set up the DCB ABEND exits. Program checks 
are tntercented by the VS APL executor routines and passed back 
to the interpreter through the defined interface; this allous 
the interpreter to issue appropriate diagnostic and error 
messages. 


The basic thrust of error recovery in VS APL under TSO is to get: 
the active workspace saved in the CONTINUE siorkspace, and to 
cause TSO to reinvoke a clean copy of VS APL which till in turn 
reload the CONTINUE workspace and continue processing. There are 
two principal kinds of abends: 1) X02 and X3E abends brought 
about by operator cancel, timing, TCAM error, etc. In these 
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instances, the CONTINUE workspace is saved normally; 2) all 
other abends constitute error situations in which the CONTINUE 
workspace is marked nonloadable. ; 


VS Personal Computing (VSPC) 


UNDER VSPC: The integrity of the VS APL user's variables and 
functions is protected by VSPC itself. Errors of a single user 
or program errors within a processor cannot interfere with 
another user. 


VSPC provides an internal dump facility for the user's workspace 
and the areas associated with it. A dump is requested 
automatically by the VS APL processor to provide information 
about certain types of processor-related system errors. 


VSPC intercepts both processor page faults and program checks. 
Program checks are passed back to the processor through the 


defined interface to allow the processor to take appropriate 
action and issue appropriate diagnostic and error messages. 


COMPONENT AND MODULE NAMING CONVENTIONS ) 
Obz3ect modules are identified by 5~ to 8-character names that 
describe them by component and function. 


Ob3ect module names, except for the shared storage manager, 
conform to the following convention: 


e A 3-character prefix of: APL 


e Followed by a component identification, described in 
Figure 2. 

° Followed by an abbreviation identifying the function of the 2 
module. 


Entry point names conform to the same convention as module ; 
names, except that, in some cases, the 3-character "APL’ prefix 
is omitted. 


The conversion modules for DOS/VS differ from those for QS/VS. 

These modules are functionally the same, but the DOS/VS modules 

are designed to interface with DOS/VS and the OS/VS modules with 

OS/“VS. The QS/VS modules begin with the characters APLOQ; the 

DOS/VS modules begin with the characters APLD. To avoid 

unnecessary repetition in this publication, only the OS/VS names 

are used in this publication wherever possible. Unless - 
explicitly noted otherwise, substitute the prefix APLD for APLO 

when using this publication for DOS/VS VS APL. 
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Identification Component 

A Session Manager 

C Conversion Program (CMS and TSO——-APL/360 and APLSV 
workspaces) 

D Conversion Program (DOS/V5) 

I Interpreter 

IA Appendage Routines 

IE Exarch 

K Executor (CICS/VS) with shared storage manager, and 
library service program 

KD DOS/VS system-dependent code (CICS/VS DOS/VS) 

KV OS/VS system-dependent code (CICS/VS OQS/V5) 

0 Conversion Program (OS/VS1 and OS/VS2) 

P Executor (VSPC) with auxtliary processors 


Processor Number (nnn) Auxiltary Processors (CMS and TSO) 


Processor Number (nnn Auxiliary Processors (CICS/VS) 
folloied by K) 


Processor Number (nnn) Auxiliary Processors (Common) 


Q Conversion Program (CMS——-APL/CMS workspaces) 
sc Executor (CMS) 
SH CMS and TSO shared storage manager 
x Common Services 
XA Common AP Services 
XB Common Abend Services 
xD Common Dump Services 
XF File System Services 
XG GDDM Interface Services 
XM Main Storage Services 
XP APL Print Services 
XS Stack Management Services 
XT Translate Services 
XV Conversion Services 
XH Wait Post Services 
yu Executor (1T5S0) 


Figure 2. Object Module Component Name Identification 
a ee a eee ORDA a oy Sg EP nl NEY SAAR DIC SR AOR Ee ee 
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SECTION 2. 


METHOD OF OPERATION 


In this section, Hierarchy Input Processing Output CHIPO). 
diagrams are used to describe the functions of VS APL. 


HIPO is a method for graphically describing the internal 
functions of a program without regard for the way itn which the 
functions are implemented or for the shysical oreanization of 
the program. A HIPO package contains a visual table of 
components and a set of method of operation diagrams 
illustrating the functions of a progrenm, in this case, the VS 
APL processor. The visual table of components (see Figure 3) 
shows the contents of each diagram and how it is related to the 
other diagrams in the set. The graphic symbols used in Metnod of 
Operation diaegrams are identified in Figure %. The method of 
operation diagrams are grouped by function. 


The mathod of operation diagrams themselves are divided into 
four distinct arzas of information: input, process, output, and 
extended description (diagram notes). The input information, on 
the left sida of the diagram, describes the input to the process 
er function being described. The process information, the 
central portion of the diagram, describes precesses that make up 
the function. The output information, on the right side of the 
diagram, illustrates the output from the process. The extended 
description information following the diagram is used to provide 
auditional detail or to outline how the function was 
imployented. This section also contains references to the module 
that performs ail or part of the function involved, and any 
rerarences within the remainder of this publication where 
additional information ray be found. 
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0.0: VS APL Processor Overview 
1.0%: Host System Communication 
1.1: Communication with VSPC 
1.1.1: Shared Variable Processing (CVSPC) 
1.2: Communication with CMS 
1.2.1: Shared Storage Manager (CMS and 1TS0) 
1.2.2: Auxiliary Processors (CMS) 
1.3: Communication with CICS/VS 
1.3.1: Shared Storage Manager (CICS/VS) 
1.3.2: Auxiliary Processors (CICS/VS) 
1.4: Communication with TSO 
1.4.1: Auxiliary Processors (TSO) 
1.4.2%: Shared Storage Manager (TS0) (see Diagram 1.2.1) 
2.0: Input Recognition, Translation, and Routing 
3.0: Function Definition and Editing 
3.1: Function Editing 
3.2: Function Definition 
4.0: Statement Execution 
4.1: Statement Scan, Syntax Analysis; and Execution 
4.1.1: Function Call and Function Exit Processing 
4.1.2: Branch Processing 
4.1.3: Primitive Function Processing 
4.1.4: Miscellaneous Processing 
4.1.5: Shared Object Processing 
4.2: Return Code Processing 
5.0: System Command Execution 
6.0: Workspace Conversion 
* No diagram is provided for this component. 


Figure 3 (Part 1 of 2). Table af Components 


LSS a ST RS TS GS TT RT CII TOL CO PTA ST DS EE GIG GE LI TILA 
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7.0: CICS/VS Library Service Program 





8.0%: Host~Independent Executor Services 

8.1*: APL GDDM Interface Services Subcomponent (GDDX) 

8.2: VS APL Session Manager Executor Scheduler 
8.2.1: VS APL Session Manager Executor Processor 

8.3%: Common Auxiliary Processor Services 
8.3.1: Common Auxiliary Processor Services linder CMS & TSQ 
8.3.2: Common Auxiliary Processor Services Under CICS/VS 

8.4%: Common Auxiltary Processors 


8.4.1: VS APL Session Manager Command auxiliary processor 
for CICS/vVS, CMS, and TSO 


8.4.2: GDDM Auxiliary Processor for CICS/VS, CMS, and TSO - 
8.4.3: APL Data File Auxiliary Processor for CMS and 150 
8.4.4%: VSAM Auxtliary Processor (see Diagram 1.2.2 or 1.4.2) 

* No diagram is provided for this component. 


Figure 3 (Part 2 of 2). Table of Components 
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Data Reference, Movement, or Modification 
Control Flow 


Terminal 


Disk 


Magnetic Tape 


Listing or Document 


Card Deck 


Off-chart Connector for a Change of Control Flow 
to Diagram 2.0 


_ 
= 
© 

4 
= 


Shared Storage Manager (CMS and TSO) 


Change of Control Flow to and from ‘Communication 
from CMS” for a Specific Function Detailed on Diagram 1.2.1 





Figure 4. Graphic Symbols Used in Method of Operation Diagrams 
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DIAGRAM 0.0: VS APL PROCESSOR OVERVIEW 


trom CICS/VS, CMS, TSO, or VS 





1. Initialize workspace. 
| —“‘COCsCs*zr 


1.1, 1.2 
— | 2. Recognize and route 


input statements. 


a. Define and edit 
VS APL functions. 


Css 


b. Execute VS APL 
expressions. 


Workspace 







i 





Workspace 


- 


4.0 


c. Execute system 
Library commands. 


w 


JOFF or CONTINUE 
Source Workspaces 


command: 


Library 





To CICS/VS, CMS, 
TSO, or VSPC 








[SCS =. Convert VS APL 


workspaces. 





VS APL Workspaces 


O) 





J 
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Notes for Diagram 0.0 


EXECUTOR 
1. 


re 


When control 
host system CVSPC, 


is received from the 
Cics/vvs, TSQ;, 


or CMS) the workspace is 
initialized. 


TRANSLATOR 


Input 
terminal. 


1s received from the 
The contents of the 


input line and the status of the 
Workspace determine the 
destination of the line. 
[Executor] 


If the first nonblank 

character in the line is a 

del, or if the workspace is 

in function edit status, the 

line is routed to the 3s 
function definition and edit 
routines. 


Section 2. 


b. If the workspace is not in 
function edit status, and the 
first nonblank character of 
the line is neither a del nor 
a right parenthesis, the line 
is routed to the statement 
execution routines. . 
CInterpreter ] 


c. If the workspace is not in 
function edit status, and the 
first nonblank character of 
the line is a right 
parenthesis, the line 15s 
routed to the command 
processor routines. 


The above process is continued 
until an JOFF or )CONTINUE 
command is input. The control is 
returned to the host system. 


The conversion program, run aS a 
batch job, converts source 
workspaces (CAPL/7360, APLSV, or 
APL/CMS) to VS APL workspaces. 
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AGRA 


Krom VSPC 


Register | 


PTC 


Workspace 





Register | 


PTC 


PTCWSPAD 


WS 






From APLFXIIM 


Register 0 


ADDR 


Register | 


APLIFXIIM 
Address 


Register 11 


WSM Address 


PTC 


PTCGTC . 


eee 1. 


3. Handle service 


H MMUNICATION WITH VSPC 


Initialize PTH and 
workspace fields. 

2. Handle asynchronous 
events, as follows: 


a. Attention 


Register | 1 


PTHY YCOD 
PTHSRCOD 
PTHQVAR 
PTHWIDTH 
PTHWSLEN 
PTHACONO 
PTHASY NC 
PTHUSTAT 
PTHMICRO 





WSMPCPSW 





WSMPTHPT 


a 


H 
PTHATTN 
PTHDATTN 
PTHFOFF 
PTHCURSR 
PTHNCOUT 







b. Double attention 


c. Force off 


d. Cancel output 


e. Program check | Lx 


= 


SH 


= 


SM 


WSMPC PSW 


WSMREGSV 
WSMSURGS 


requests. 





a. Non shared variable requests 
Execution Routines 


b. Shared variables 


WSM 
WSMREGSV 
WSMNSI 












WSMASYNC 


WSH 
Shared Variable C...d 
Processing PTH 
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Notes for Diagram 1.1 
APLPCOEX 


1. 


For initialization, the executor 
receives a default size workspace 
from VSPC. The length is 
indicated in PTCWSLEN and pointed 
to by PTCWSPAD. The executor 
takes the top 2K bytes for its 
own use and always informs the 
interpreter that the workspace 1s 
after this 2K byte area. 
CAPLPCENT] 


The executor, within the 2K byte 
block, sets fields in the 
executor control area CECA); that 
is, it initializes the ECADUMP 
field to 0, sets the ECASTAT 
field to indicate that the 
executor has been called, sets 
the ECAPTC field to the address 
of the PTC area, and initializes 
ECAMICRO for microcode assist. 


The executor then initializes 
fields of the PTH and sets the 
WSMPTHPT field to the address of 
the PTH. It initializes 
WSMPCPSW=0. It then places the 
service request YYON in PTHYYCOD 
and passes control to the 
interpreter at its entry point 
APLIINIT. 


For asynchronous event handling, 
the executor receives an 
indication from VSPC, determines 
the type of event, and processes 
it as follows: 


a. Attention-—sets PTHATITN on, 
except if already on, then 
sets PTHDATTN on, sets type 
element to zero position, 
PTHCURSR field to 0, and 

“"WSHPEFLG1.WSHPATN to 1. Sets 
WSMASYNC fields 
correspondingly and returns 
to VSPC to be dispatched at 
the point of interrupt. 


b. Double attention—sets type 
element to zero position, 
PTHATTN.PTHDATTN bits to l, 
WSHPFLG1.WSHPDATK bit to 1, 
and PTHCURSR field to 0. Sets 
WSMASYNC fields 
correspondingly and returns 
to VSPC to be dispatched at 
the point of interrupt. 


c. Force off-—sets PTHFOFF bit 
to 1 for logoff by the 
interpreter and sets 
WSHPFLG1.WSHPSTRM to 1. 
WSMASYNC fields 
correspondingly and returns 
to VSPC to be dispatched at 
the’ point of interrupt. 


Sets 


d. Cancel output~—sets PTHNOOUT 
on, sets WSMSASYNC fields, 
PTHCURSR field to 0, and 
returns to VSPC to be 
redispatched at the point of 
interrupt, with 
WSHPFLG1.WSHPCNCL=1. 


e. Program check-—saves 
registers in WSMSURGS field 
and PSW in WSHPSUSV field. 
For interpreter program 
check, registers and the PSW 
are moved from the WSHREGSV 
and WSHPSHWSV fields, 
respectively, to the WSMREGSV 
and WSMPCPSN fields, 
respectively. The program 
check is acknowledged 
CWISHPFLG1.WSHPPCHK=1), the 
YYPRGX command is simulated, 
and control is passed to the 
APLIINIT routine (the 
interpreter). (See Diagram 
2.0: "Input Recognition, 
Translation, and Routing."™) 
For microcode assist 
initialization error, when 
microcode is not installed, 
the program check is 
acknowledged, the PTHMICRO 
bit 1s set, and control is 
returned to VSPC for 
redispatch at the point of 
interrupt. For executor 
program checks or program 
check loops in the 
Interpreter, messages are 
issued, a dump is taken, and 
the JIENDR error exit 15 
taken. 


APLPFXIM 


S% 


Section 2. 


For service requests, 
addressability to the PTH, WSH, 
SFN, and ECA is set up by backing 
up 2K bytes from the address of 
the WSM. The interpreter's 
registers are saved (except for 
YYDUMP request), the address of 
the next sequential instruction 
is saved in WSMNSI, and the 
request code is entered in the 
PTHYYCOD field. Control is then 
passed to the appropriate request 
handling routine. [APLFXIIM] 


The execution routine returns 
with the service request return 
code set in PTHSRCOD. Control is 
passed to the interpreter at its 
entry point, APLIINIT, where the 
interpreter's environment is 
restored and control is returned 
to the instruction following the 
service request 


For a description of the service 
request codes and the names of 
the VSPC executor routines that 
handle them, see "Values, 
Parameters, and Return Codes for 
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Service Requests™ under "Service 


Request Calls" in "Section 6. 


Diagnostic Aids." 


For shared variable processing, 
control is passed to APLPSHVR to 
route the request to the VSPC 


Licensed Material—Property of IBM 


26 


VS APL Program Logic 


shared storage manager or to the 
internal auxiliary processors. 
(See Diagram 1.1.1: "Shared 
Variable Processing (VSPC).") 





C 


DIAGRAM 1.1.1: SHARED VARIABLE PROCESSING (VSPC) 


Pren Dnagram to] 


ie 


WSMSVLRQ 


od 
c 
T. 
| 


WSMSVLRQ 


mer eee 


WSMSVLRQ 
SCV 


APEFT 


WSMSVLRQ 
a 
APFT 


170 puffer 
: FSM work area 





ty 


wy) 


J Wosignott: 


. For other requests: 
a. Uf partnerids noun 
internal auxiliary 
processor, issue VSPC 





J Uf signon, issue VSPC 


WSHPARMI 


Service TeEquest. 








uw Perminate connecuions 
with internal auxiliary 
PrOCessSOLs, 


PCV 


bh. Issue VSPC service 
request, 


. UP query. issue VSPC 










WSHPARMI1 
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WSMSVLRQ 






WSM 


Buffer 


APFT 


Vo Diagram 1.1 


L,O buffer 


For FSM only 


FSM work area 


For GDDM only 
GDC work area 





Licensed Material—Property of IBM 


Section 2. 


Method of Operation 


27 


Notes for Diagram 1.1.1 


Return and reason codes for each 
request are passed to the interpreter 
in PTHSRCOD. 


APLPSHVR 


} 


For sign-on, the user's ID, 
shared variable quota, and space 
quota are placed in the PCV. A 
VSPC service request SSON is 
issued. [PCSON] 


APLPAPAB 


oie 


For sign-off, each active APFT 
entry is cleared. If the VSAM 
file 1s open, a VSPC service 
request VCLOSE is issued. If FSM 
was active, a TFSCRN EXIT request 
is issued. If GDDM was active, 
GDDMSOFF is called. [APLPAPSF] 


APLPSHVR 


The user's ID is placed in the PCV, 
and a VSPC service request SSOF is 
issued. [(PCSOFF] 


APLPSHVR 

3. For a query, the user’s ID is 
placed in the SCV, and a VSPC 
service request SQRY is 1ssued. 
CPCSQUERY]J 

APLPSHVR 

4. For set access control, copy, 


reference, retract, or specify, 
the APFT entries are searched to 
determine if the partner is an 
internal auxiliary processor (Cone 
distributed as part of VS APL). 
[INTAPCHK J 


For offer, SCVPART in the SCV is 
checked to determine if the offer 
15 to an internal auxiliary 
processor. [CPCSOFFER] 


a. If the partner is not an 
internal auxiliary processor, 
the usar’s ID is placed in 


the SCV, and the appropriate |. 


VSPC service request is 
issued. EPCSACC, PCSCOPY, 
PCSREF, PCSRET, PCSSPEC, 
PCSOFFERJ 


APLPAPAB 


b,. Retraction when partner is an 
internal auxiliary processor. 
If varlable CTL: If file is 
open, a VSPC service request 
VCLOSE or DCLOSE is issued; 
for FSM auxiliary processor, 
a TFSCRN EXIT is issued; for 
GDDM auxiliary processor, 
GDDMCRET is called, and if no 
more paths remain, then 
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GDDMSOFF is also called. 


An SCV is built, including 
flag SCVFDOFR, which 

indicates that both partners 

have retracted, and a VSPC 

service request SRET is 

issued. The APFT entry is 

updated if the other variable 

for a connection is active; 

the entry 1s cleared if it is 

not. [APLPAPRT] 


APLPAPAB 


Cc. 


Offer to internal auxiliary 
processor. The APFT entries 
are searched to determine if 
this 1S a new connection or 
the second variable for an 
existing connection. 
Accordingly, a new APFT entry 
is built, or the existing 
APFT entry is modified. For 
offers to the FSM internal J 
auxiliary processor, only one 
connection jis allowed at any 

one time. For offers to the 

GDDM internal auxiliary 

processor, a maximum of seven 
connections are allowed at 

any one time. In addition, 
concurrent sharing with the 

FSM and GDDM internal 

auxiliary processors is not 

@llowed. An SCV is built, 

including flag SCVFDOFR, } 





which indicates that both 
partners have offered, and a 
VSPC service request SOFR is 
issued. [APLPAPOF] 


For the VSPC command and 
alternate input auxiliary 
processors, the initial value 
of the variable Cif any) is 
checked and the return code 
is set in the APFT Cin case 
the user references the 


variable). 
APLPAPAB J 


d. 


Set access control when 
partner is an internal 
auxiliary processor. SCVACV 
in the SCV is set to binary 
*7111°. CAPLPAPAC) 


APLPAPAB 


Copy when partner is an 
internal auxiliary processor. 
The return and reason codes 
that indicate that the latest 
value is in the workspace are 
placed in PTHSRCOD. 
[APLPAPPR]J 


Reference or specify when 
partner is an internal 
auxiliary processor (finite 
state machine logic, driven 





by APFIFO action stack in 
APFT): If an interlock 
exists, a VSPC service 
request TWAIT is issued. 
[APLPAPPR] 


User specifies the CTL: When 
partner is file~handling 
auxiliary processor, and the 
VSPC file is open for 
sequential input, then if the 
value is null, a VSPC service 
request DCLOSE is issued; 
otherwise, the value is 
ignored. [APUSCTL] 


If the APFIFO action stack in 
the APFT contains a pending 
"TAP references CTL” action 
(the usual case), the finite 
state machine logic in 
APLPAPPR will proceed to call 
the APARCTL subroutine 
immediately after the APUSCTL 
subroutine. The APARCTL 
subroutine contains the 
entire processing logic of 
the VSPC command, alternate 
input, and storage display 
auxiliary processors. For the 
VSPC command auxiliary 
processor, the VSPC service 
request WCMD is issued; for 
the alternate input and 
storage display auxiliary 
processors, the processing 
consists of analyzing the 
request in the user's 
variable and then copying 
data from one place to 
another within the workspace. 
For the other internal 
auxiliary processors, the 
APARCTL subroutine analyzes 
the user's request and calls 
the appropriate routine to 
process it. Routines in 
module APLPAPCD are called to 
handle requests for the APL 
data file, EBCDIC data file 
and VSAM auxiliary 
processors. Routines in 
module APLPAPFS are called to 
handle requests for the FSM 
auxiliary processor. The 
routine GDDMRCTL in module 
APLPAPGC is called to handle 
requests for the GDDM 
auxiliary processor. 


APLPAPCD 


User specifies CTL and VSPC 
file is open for sequential 
output. If the value is null, 
a VSPC service request DCLOSE 
is issued. Otherwise, data is 
transferred from the 
workspace to the I/0 buffer, 
and a VSPC service request 
DWRITE is issued. ([(PWRITE) 


User specifies CTL and the 
VSPC file is open for direct 
input or update. If the value 
is null, VSPC service request 
DCLQSE is issued; otherwise, 
the value is examined to 
determine whether the request 
is to read or write. [APIO] 


If the request is to read, a 
VSPC service request DREAD 
for specified record is 
issued. Data is left in I70 
buffer until the user 
references DAT. [PRDDIR] 


If request is to write, data 
is transferred from the 
workspace to the I/0 buffer, 
and a VSPC service request 
DWRITE for a specified record 
is issued. [PWRITE] 


User specifies CTL and the 
VSPC file is not open. An 
appropriate VSPC service 
request corresponding to the 
user's request is issued. 
CAPCREATE, APFILSIE, AFPSHARE, 
APPASSWD, APOPEN, APDROP] 


User specifies CTL and 
partner is VSAM file 
auxiliary processor. An 
appropriate VSFC service 
request correspending to the 
user’s request is issued. If 
the request is to write, data 
is first transferred from the 
workspace to the I/0 buffer. 
If the request is to read, 
the data is left in the [7/0 
buffer until the user 
references DAT. [CAPVIO]) 


User references CTL and the 
VSPC file is open for 
sequential input. VSPC 
service request DREAD js 
issued, and data is 
transferred from the I/0 
buffer to the workspace. 
CPRDSEQ] 


APLPAPFS 


User specifies CTL and 
partner is FSM auxiliary 
processor. If not already 
obtained in previous 
connections, FSM auxiliary 
processor obtains storage out 
of user's VSPC workspace 
quota, size depending on 
number and characteristics of 
FSM fields defined, for use 
as FSM work area. [CFSMFORNT] 


If user issues request to 
read from display screen, 
VSPC TSFSM READ service 
request is issued. For read 
and read-format requests, 
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data is transferred to 
workspace when user next 
references DAT. [FSMREAD, 
FSMGET, FSMRFORM] 


If user issues a request to 
write to display screen, data 
is transferred to FSM work 
area and VSPC TSFSM WRITE 
service request is issued. 
CFSMWRITE] 


If user issues a request to 
format, modify field 
characteristics, modify field 
intensity, set cursor 
position, or sound alarm, the 
request data is recorded in 
FSM work area to be 
corrmunicated to VSPC at the 
next display screen read or 
write request. [CFSIMFORNT, 
FSHMTYPE, FSMMINT, FSMSETC, 
FSMBUZZJ 


If request is to make hard 
copy of display screen data, 
VSPC TSFSM. PAGE service 
request is issued. [FSMHCOPY] 


APLPAPGC 


If this is the first 
invocation of GDDMRCTL for 
this path (connection via a 
CTL-DAT pair), the GDDXINIT 
routine in module APLPAPGD is 
called to initialize the 
path. 


If DAT variable was specified 
by the user, it is 
referenced; the CTL variable. 
The CTL variable specified by 
the user is analyzed, and the 
appropriate series of GDDIM 
requests are built. The GDDX 
routine in module APLPAPGD is 
called to issue each GDDM 
request that is built. The 
output parameters from all 
the GDDM requests are 
accumulated and formatted 
into numeric and character 
output buffers, which are 
later transferred into the 
user's workspace by the 
GDDNSCTL and GDDMSDAT 
routines (in module 
APLPAPGB), respectively. 
Certain GDDM auxiliary 
processor requests are 
internal to the auxiliary 
processor and do not involve 
issuing a GDDM request; these 
internal requests are handled 
entirely within the GDDMRCTL 
routine. [GDDMRCTL] 
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APLPAPGD 


A path control block index is 
allocated. If this is the 
first path to be allocated, 
GDDM is initialized by 
issuing SPINIT and FSQERR 
requests to GDDM via the VSPC 
service request JTGDDM. 
[GDDXINIT] 


Request built by the caller 
1S analyzed for "pass 
through" or "special case" 
processing. Special 
processing is performed for 
Page, query error, and 
hardcopy requests. If the 
request built by the caller 
requires a "page select” 
operation, then a GDDM FSPSEL 
request is chained to the 
front of the caller's 
request. The VSPC service 
request TGDDM is issued to 
pass the required request(s) 
to GDDM, and the VSPC return 
and reason codes are analyzed 
and converted to standard 
GDDM return and reason codes. 
[GDDX] 


APLPAPAB 


User references CTL (all 
other cases). Return and 
reason codes from prior 
request are transferred to 
the workspace. For GDbii 
auxiliary processor the 
GDDMSCTL routine is called if 
return code vector buffer 
exists. [APURCTL] 


User specifies DAT. Event is 
recorded in APFT entry. No 
further action is taken until 
the user issues a write 
request. [APUSDAT] 


User references DAT. Data 
from prior read request is 
transferred from the I/Q 
buffer or FSM work area to 
the workspace. For GDDM 
auxiliary processor, the 
GDDMSDAT routine is called. 
CAPURDAT] 


APLPAFGB 


CTL variable data in the GDDM 
numeric output buffer is copied 
into the user's workspace and is 
converted to VS APL "variable 
descriptor” format in the 
process. The GDDM numeric output 
buffer is deallocated. [GDDMSCTLJ 











DAT variable data in the GDDM 
character output buffer is copied 
into the user's workspace and is 
converted to VS APL "variable 
descriptor” format in the 
process. The GDDM character 
output buffer is deallocated. 
{GDDMSDAT J 
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DIAGRAM 1.2: COMMUNICATION WITH CHS 
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Notes for Diagram 1.2 
APLSCINI 


As 


oo to locate a VM DCSS for 
APL. 


If a suitable DCSS is found, load 
it using Diagnose 64, and 
transfer to it. 


If DCSS is not to be used, then 
perform a LOADMOD VSAPL and 
transfer to it. 


APLSCINI 


2. 


The initialization process 
(module APLSCINI) performs the 
following functions at VS APL 
startup: 


a. Gets space for and 
initializes the executor 
global table. This table 
(mapped by the APLCMSGL 
macro) contains the PERTERM 
terminal buffers and key 
switches and pointers. It is 
always pointed to from 
location X'440' (CGLBLTABL). 


Scans the startup parameter 
list. Loads text files for 
any auxiliary processors. 


After the parameter list is 
scanned, the APLEXIT user 
EXEC is invoked to establish 
the VM environment. 


Sets STAE and STAX exits. 


b. Allocates space for shared 
memory, auxiliary processor 
work areas (512 bytes per 
auxiliary processor), and the 
“Workspace. Gives back free 
space to CMS. 


c. Reads the library table file 
CAPLIBTAB APLIBTAB) and 
builds the incore library 
table. 


Determines if VS APL 
microcode assist is to be 
used. 


Calls the shared storage 
manager to initialize any 
auxiliary processors. 


Initializes pointers and keys 
in the incore workspace. 


d. Initializes executor services 
for the stack manager, the 
file subsystem, and the 
session manager. 


Determines if the CONTINUE 
workspace is to be 
auto~loaded. 


Determines if terminal is 
display or typewriter and 
initializes accordingly. 


e. Sets SPIE exit. 


Places service request YYON 
in PTHYYCOD and passes 
control to SCAPL. From there, 
control is passed to the 
interpreter at its entry 
point APLIINIT. 


APLSCERR, APLSCTYP 


3. 


Asynchronous handling applies to 
program checks, attention exits, 
and abends. 


Program checks (SPIE exit): 
CSCSPIEJ 


These are handled in module 
APLSCERR, routine SCSPIE Cexcept 
during VS APL startup, when it is 
handled by routine SPIEXIT in 
module APLSCINI). 


Routine SCSPIE does the 
following: 


e Saves the program check 
registers and PSW in WSMSURGS 
and WSMSUPSW (Cin the 
workspace). 


e If the program check occurred 
in supervisor code, prints 
messages $6315, S633I, S634I, 
$635I, and abnormally 
terminates VS APL with the 
user code lixx, where xx is 
the program check code in 
decimal. 


@ If the program check occurred 
in the shared storage manager 
or an auxiliary processor, 
prints message APL114I and 
handles the check as an 
interpreter program check. 


e If the program check occurred 
in the interpreter, checks to 
see if the interpreter is in 
€@ program check loop (prints 
message APLIOGI1I and ABEND if 
so). If not in a loop, moves 
the registers from WSMSURGS 
to WSMREGSV and the PSW from 
WSMSUPSW to WSMPCPSW and 
WSMNSI. 
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If a program check loop occurs, 
the registers and the PSH for the 
next-to-last program check will 
be in WSMREGSV and NSMPCPSW/NSI 
and the registers and PSW for the 
last fatal program check will be 
in WSMSURGS and WSMSUPSW. 


Attention exits (STAX exit): 


The STAC exit is in APLXGCAT. 
APLXGCAT saves information about 
the attention and transfers 
control to the address in 
PTXATTN. This will point either 
to a session manager routine or 
to SCATTN. 


Asynchronous interrupts for the 
active workspace are handled by 
routine SCATTN in module 
APLSCTYP, which does the 


following: 

© Sets attention bit (s) in the 
PERTERM. 

e If attention is pressed 


during wait for message 
response, completion of time 
delay, or shared variable 
request, posts an ECB. 


© If attention is pressed 
during terminal output and/or 
function execution, returns 
le print element to position 


9 Returns to point of 
interrupt. 


Abends (STAE exit): 


There are two types of STAE 
exits. The subsystem STAE exit 
is established by processors 
calling APLXBSXT (in APLSCSVI). 
When a subsequent abend occurs, 
the subsystem exit (BSXTSTXE) 
schedules a retry routine and 
then passes control to it with 
oN all a information in the 


If no exit has been requested, 
message APLS620E is issued, and 
the processor is marked 
nondispatchable. 


These are handled in module 
APLSCERR by routine SCSTAE, which 
does the following: 


a. Prints messages S644E and 
$632D. 


b. Address stops the virtual 
machine to allow the user to 
dump storage and do problem 
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determination in CP mode. At 
the time of the address stop, 
the following information is 
relevant: 


Reg. Contents 


R2 Contains the address of 
the 104-byte STAE work 
area. 


R&8 Contains the ABEND 
code. 


Rio Contains the address of 
the VS APL supervisor 
global table. 


Ril Contains the address of 
the VS APL incore 
workspace slot. (If the 
ABEND code is ixx, then 
the workspace has the 
program-check PSW and 
registers.) 


APLSCFXI 


4. 


Service request handling: 
[routine APLFXIIM] 


Service requests allow the 
interpreter to interact with its 
environment (for example, typa a 
line, load a workspace). Any 
module in the interpreter may 
issue a service request. The 
linkage is: 


L R1,=VCAPLFXIIM) 
BALR RO,R1 
DC AL2(YYCODE) 


Routine APLFXIIM is in executor 
module APLSCFXI. It does the 
following for every service 
request: 


a. Saves the general registers 
in WSMREGSV Cexcept for 
YYDUMP, for which we want to 
preserve the contents of 
WSMREGSV), the floating 
registers in WSMREGFO, F2, 
F4, F6, and the address of 
the caller's resume point 
(RO+2) in WSMNSI. CAl1l1] WSM 
fields are in the workspace. ) 


b. Changes the protect key in 
the PSW from X'D* (the 
interpreter protect key) to 
X'E* (the executor key). 


Changes the storage key of 
the first 4K bytes of the 
workspace from key X'D’ to 
X"E’ so the executor can 
store data there. 











Adds the processor time used 
by the interpreter to an 
accumulated-processor-time 
field (CMSCPUAC) for the 
quad-AI system variable. 


Stores the YYCODE (which 
determines the type of 
request) in the PERTERM 
(field PTHYYCOD). 


Looks up the request type in 
YYTABL (module APLSCFXI) and 
gets the address of the 
execution routine. 


Calls the execution routine 
to execute the service 
request. The execution 
routine will return with the 
service request return code 
set in PTHSRCOD. 


Updates the WSMASYNC bits in 
the workspace to reflect the 
latest status of asynchronous 
events (for example, 
attention). 


Changes the storage key of 
the first 4K bytes of the 
workspace from X'Et back to 
X'D' so the interpreter can 
store data there. 


Sets the current time in 
CMSHOLDT so that processor 
time for the interpreter can 
be accumulated for quad-Al. 


j. Goes back to interpreter in 
PSW key X*D' at its entry 
point, APLIINIT. There, the 
interpreter's environment is 
restored, and control is 
returned to the instruction 
following the service 
request. 


For a description of the service 
request codes and the names of 
the CMS executor routines that 
handle them, see "Values, 
Parameters, and Return Codes for 
Service Requests" under "Service 
Request Calls" in "Section 6. 
Diagnostic Aids." 


For shared variable processing, 
control is passed to ASVPSRVC and 
then to ASVPSERV to route the 
request to the appropriate 
routine in the shared storage 
manager. (See Diagram 1.2.1: 
"Shared Storage Manager.") After 
control returns to ASVPSERV, each 
auxiliary processor whose wait 
has been satisfied receives 
control. Control is then returned 
to the interpreter. 
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DIAGRAM 1.2.1: SHARED STORAGE MANAGE CMS AND TSO) 


Irom ASVPSERV (CMS): Diagram 1.2 
or APLYUSERV (TSO): Diagram 1.4 
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~~ p> |. Initialize for shared 
variable processing. > PARSON 
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Notes for Diagram 1.2.1 


Return codes from each step are 
passed in registers 15 and 0. 


APLSHGET 


l. 


This function occurs as a result 
of an explicit request for the 
shared variable processor or 
implicit request through a shared 
variable command. Space is 
obtained from shared memory for 
the processor control block. 
[PRB] 


APLSHSPB 


The PRBID, PRBSPAC@, PRBVARSQ, 
and PRBECB fields of the PRB are 
set with data from the processor 
control vector. [PCV] 


APLSHSOW 


The count of processors using the 
shared variable facility is 
updated in the PARSON field of 
the shared memory data area. 


2. Shared variable commands are 
processed as follows: 
APLSHSRD 


a. Access control [0 SVC]. The 
address of the field in the 
VAB data area that 
corresponds to the SCV fields 
of the offered shared 
variable is returned in 
register 2. 


APLSHACC 


The ACV, VABACV, and SCVACV 
fields of the VAB area are 
-set to allow access control. 


APLSHGET 


b. Offer [(] SVOJ. Space is 
obtained from shared memory 
for the variable control 
block. [VAB] 


APLSHBVB 


Fields of the VAB are set for 
initial offer. 


APLSHOFR 


For counter offer or general 
offer, the fields are 
updated. 


c. Specification of a shared 
variable. A new value for a 
shared variable is processed 
as follows: 


APLSHSRD 


The address of the VAB field 
corresponding to the SCV 
fields of the shared variable 
is returned in register 2. 


APLSHPUT 


Space used by the previous 
value is freed. 


APLSHGET 


Space required for the new 
value is acquired. 


APLSCSVI (CMS), APLSHSPC, 
APLYUSVI (TSO) 


The new value is entered in 
the VABDATA field of the VAB. 
If necessary, the shared 
variable partner is posted. 


APLSHSRD 


d. 


Reference. The address of-the 
VAB field corresponding to 
the SCV fields of the shared 
variable is returned in 
register 2. 


APLSHREF 


The latest value of the 
variable is moved from shared 
memory to the buffer. 


APLSCSVI (CMS), APLYUSVI 
(TSO) 


If necessary, the shared 
variable partner is posted. 


The storage block for the 
data is freed if both 
partners of the shared 
variable have obtained the 
data. 


Query [O SVQ). For request for 
partner identification and 
offer numbers or for variable 
names and offer numbers, a 
list 1s constructed in the 
buffer whose address is in 

the SCVVALUE field. For 
request for single variable, 
information is entered in the 
SCV fields. 


APLSHSRD 


f. 


Retract. The address of the 
VAB field corresponding to 
the SCV fields of the shared 
variable is returned in 
register 2. 
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APLSHRET 


SCVFLAGS area updated to 
reflect the degree of 
coupling. 


APLSHSUB 

VAB and PRB fields are 
updated to reflect 
retraction. 

APLSHPST 


If necessary, the shared 
variable partner is posted. 


APLSHPUT 


Shared memory used by the VAB 
1s returned. 


APLSHSRD 


3. 


The address of the VAB field 
corresponding to the SCV fields 
of the shared variable is 
returned in register 2. 
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APLSHCPY 


The value of the data is moved 
from shared memory to the buffer 
Whose address is in SCVVALUE. 


For logoff from the shared 
variable processor, processing 
occurs, as follows: 


APLSHSOF 

The number of processors in the 
PARSON field of shared memory is 
decremented. 

APLSHSUB 


Each variable offered by the 
processor is retracted. 


APLSHPUT 


Shared memory used by the PCV 
block is released. 








C 


DIAGRAM 1.2.2: AUXILIARY PROCESSORS (CMS) 
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auxiliary processor. 
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Notes for Diagram 1.2.2 
1. Inititalization 


Initialization is performed as 
follows: The process control vector 
is completely filled in. The SCVID 
and SCVECB fields of the shared 
control vectors are filled in. The 
addresses of the ECBs are placed in 
SVPECBL. The PCV ECBSW switch is set 
in SVPECBL to identify the PCV ECB. 
The auxiliary processor signs on to 
the shared storage manager. 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APL100: CMS COMMMAND 
2. For PCV ECB 


When control is returned from the 
wait state and the PCV ECB is posted, 
the following occurs: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP] 


A query is issued to find the 
variable’'s name. [DOQUERY] 


A counter-offer is issued to complete 
the sharing of the variable. 
C[QUERYSUB] 


The variable is referenced. 
CGETNXVAR] 


The type of command to be executed 
(CP or CMS) is determined. [REFQK] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


3. For SCV ECB 


When control is returned from the 
wait state and an SCV ECB is posted, 
the post code is examined. [CHKPSTCD] 


Processing then occurs as follows: 


If the partner referenced the 
variable, the return code is 
specified. [CRCODE] 


If the partner set the access control 
vector, this event is ignored. 
[CLRPSTCD] 


If the partner retracted the 
variable, the variable is retracted 
and the SCV is made available for 
another variable. [RETRACT] 


If the partner specified the 
variable, the variable is referenced 
and the command is executed. 
(GETNXVAR, TRANZCOD] 


The return code is specified. [RCODE] 
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The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APL101: ALTERNATE INPUT 
2. For PCV ECB 


When control is returned from the 
wait and the PCV ECB is posted, 
processing occurs as follows: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP] 


A query is issued to find the 
variable’s name. [DOQUERY] 


A counter-offer to complete the 
sharing of the variable is issued. 
[QUERYSUB] 


The variable is referenced. 
C[GETNXVAR] 


The stacking and conversion options 
are determined. (CREFQK] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


3. For SCV ECB 


When control is returned from the 
wait state and an SCV ECB is posted, 
the post code is examined. [CHKPSTCD] 


Processing occurs as follows: 


If the partner referenced the 
variable, the return code is 
specified. (RCODE] 


If the partner set the access control 
vector, this event is ignored. 
[CLRPSTCD] 


If the partner retracted the 
variable, the variable is retracted 
and the SCV is made available for 
another variable. [RETRACT] 


If the partner specified the 
variable, it is referenced and 
converted. The line is stacked 
according to the options determined 
in step 2 above. [GETNXVAR] 


The return code is specified. [(RCODE] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APL110: CMS FILE 

2. For PCV ECB 

When control is returned from the 
wait and the PCVECB is posted, 
processing occurs as follows: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP] 





e 


A query is issued to find the 
variable's name. [DOQUERY] 


A counter-offer to complete the 
sharing of the variable is issued. 
[QUERYSUB] 


The variable is referenced. 
[GETNXVAR] 


The conversion option is determined, 
and the file name is placed in the 
FSCB. CINIT] 


Whether the file exists or not is 
determined, and the rest of the FSCB 
is filled in. (CTRYFILE] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 3. For SCV 
ECB 


When control is returned from the 
wait and an SCV ECB is posted, the 
post code is examined. [CHKPSTCD] 


Processing continues as follows: 


If the partner referenced the data 
variable, the file is read and the 
data converted according to the 
options determined in step 2 above. 
C[PARTREF] 


The converted data is then specified. 
[CSPEC1i] 


If the partner referenced the control 
variable, the return code from the 
last operation involving the data 
variable, the read-pointer, the 
write-pointer, and the number of 
records to be processed are specified 
as a 4-element integer vector. 
[RCODE] 


If the partner set the access control 
vector, this event is ignored. 
C[CLRPSTCD] 


If the partner retracted the 
variable, the file is closed, the 
variable is retracted, and the SCV is 
made available for another variable. 
[RETRACT] 


If the partner specified the data 
variable, it is referenced and 
converted according to the options 
determined in step 2 above. 
[GETNXVAR, CONVERT] 


The converted data is then written to 
the CMS file. [WRITE1L] 


If the partner specified the control 
variable, the read and write pointers 
and number of records to be processed 
are altered as specified. [SETCTL] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APLI11: QSAM 
2. For PCV ECB 


When control is returned from the 
wait and the PCV ECB is posted, 
processing occurs as follows: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP] 


A query is issued to find the 
variable's name. [DOQUERY] 


A counter-offer to complete the 
sharing of the variable is issued. 
C[QUERYSUB]J 


The variable is referenced. 
[GETNXVAR] 


The conversion option is determined 
and the file name is placed in the 
DCB. [CHKPARM] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


3. For SCV ECB 


When control is returned from the 
wait and an SCV ECB is posted, the 
post code is examined. [CHKPSTCD] 


Processing continues as follows: 


If the partner referenced the data 
variable, the file is read and the 
data converted according to the 
options determined in step 2 above. 
CPARTREF] 


The converted data is then specified. 
CSPEC1] 


If the partner referenced the control 
variable, the return code from the 
last operation involving the data 
variable is specified. [RETNCODE] 


If the partner set the access control 
vector, this event is ignored. 
CCLRPSTCD] 


If the partner retracted the 
variable, the file is closed, the 
variable its retracted, and the SCV is 
made available for another variable. 
CRETRACT] 


If the partner specified the data 
variable, it is referenced and 
converted according to the options 
determined in step 2 above. 
CGETNXVAR, CONVERT] 


The converted data is then written to 
the 0S file. [CWRITE] 


If the partner specified the control 
variable, it is referenced and 
ignored. [(CLRPSTCD] 
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The auxiliary processor waits: for an 
ECB to be posted. [WAIT] 


APL1L23: VSAM 
2. For PCV ECB 


When control is returned from the 
wait and the PCV ECB is posted, 
processing occurs as follows: 


An SCV is associated with the 
variable. [CSCVLOOP] 


A query is issued to find the 
variable's name. [DOQUERY] 


If the name does not begin with CTL 
or DAT or if it is greater than 11 
characters or if the name is already 
shared, the offer is not accepted. 


A counter-offer to complete the 
sharing of the variable 1s issued. 
[INIT] 


After a counter-offer, the auxiliary 
processor waits. [WAIT] 


3. For SCV ECB 


When control is returned from the 
wait and an SCV ECB is posted, the 
post code is examined. [CHKPSTCD] 


Processing continues as follows: 


If the partner retracted the 
variable, the sharing of the variable 
is terminated, the file is closed Cif 
it was opened), and the SCV is made 
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available for another variable. 
Processing of any outstanding offer 
is attempted. [RETRACT] 


If the partner specified the control 
variable, an appropriate action is 
performed: 


a. For an OPEN request, the file 
is opened if available but 
not opened if already open. 
{VOPEN] 


b. For a CLOSE request, the file 
is closed. [VCLS] 


c. For READ, the file is read, 
and the data is specified 
into the DAT variable. 
[FILREAD] 


d. For WRITE, the DAT variable 
is referenced, and its data 
written to the file. 
{FILWRITE] 


e. For ERASE and POSITION, the 
appropriate action is taken. 
{VERASE, VPOS] 


f. For KEYFEEDBACK, the key of 
the record last processed is 
specified in the DAT 
variable. [CKEYFDBK] 


The control variable is 
specified with a 2-element 
return code for all 
operations. 








DIAGRAM 1.3: COMMUNICATION WITH CICS/VS 
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Notes for Diagram 1.3 


APLKASON, APLKAGBL, APLKLIBB 


1. 


APLKASON calls APLKAGBL which 
determines whether the global 
table is active and, if not, 
loads the global modules and 
calls APLKLIBB to initialize the 
library control blocks. 


Using the sign-on message as 
input, APLKASON initializes a 
perterm for the user. 


Using the user profile directory 
record as input, APLKASON then 
performs user and terminal 
verification, attaches the user 
task CAPLKADSP), and exits. 
Output is the user perterm (PTH, 
PTX» PTK,» and PRO control 
blocks). 


APLKADSP, APLKIFIX 


APLKADSP sets up the user task 
environment, including APLKWAIT 
and APLKEXIT macro services and 
dependent process control. 
APLKADSP then starts the 
interpreter process by calling 
APLKIFIX, which sets up the 
interpreter interface and calls 
APLASCHD and APLKLIBC. 


APLASCHD 


Initializes the terminal. 


APLKIFIX 


2. 


Accepts requests from the 
interpreter tn the form of YY 
codes passed in the workspace 
and, based on the type of 
request, routes control as 
follows: 


Module Entry Point(s) Function 


APLASCHD TYO, TYI, TYOI Terminal 
Services 


for I70 
APLKISVI SON, SOFFER, Shared 
SRET, SQUERY, variable 
C, SSPEC, services 
SREF, SCOPY, 
SOFF 
APLKLIBU COPI, COPO, Library 
COPZ, LOAD, services 


COPA, SAVE, 


DROP, LIB, 
CLEAR, WSID, 
PASS 
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Module Entry Point(s) Function 
APLKMSCA TIME, QAI, Time and 
DELAY, DUMP, error 
SYSER, CMD services 
APLKMSCB QZ, ATOFF, Miscella- 
TABS, WIDTH, neous 
MBL, TRAN, local and 
QUOTA, OFF unsup- 
ported 
services 


APLASCHD 
Performs terminal IZ0. 
APLKEMGR, APLKEHKCP 


The destination manager. Provides 
an interface to CICS transient 
data and to 3270 printer 
terminals. 


APLKLIBU, APLKLIBF, APLKLIBG, 
APLKLIBV, APLKLIBA, APLKLIBB, 
APLKLIBR 


The library manager. Provides 
access to VS APL workspaces and 
files, all of which are stored in 
the APL library. In performing 
these operations, these modules 
call on CICS file services and 
DOS/VS or OS/VS VSAM services. 


APLKISVI, APLKSSVP, APLKSSUB, 
APLKADEF 


The shared storage manager and 
the interpreter interface to the 
shared storage manager. Provides 
communication between auxiliary 
processors and APL users and 
manages the use of shared memory. 


APLKMSCA, APLKMSCB 


Performs miscellaneous services 
for the interpreter. In 
performing these services, the 
CICS dump services and global 
task timer services may be 
called. 


APLKADOPS, APLKVOPS, APLKASTB 


Performs services dependent on 
use of the operating system. 
Modules APLKDOPS (for DOS/VS) and 
APLKVOPS Cfor OS/VS) provide VSAM 
macros, handling of VSAM and ISAM 
return codes, and timer support 
for time slicing. APLKASTB 
provides support for DOS/VS page 
fault overlap conditions. 


Note: The following information 
applies to both steps 1 and 2 of 
diagram 1.3. 





APLKLIBO, APLKLIBV, APLKLIBA 


Services a library request made 
by APLXLIBF or APLKLIBU. These 
modules execute as separate 
CICS/VS tasks started by 
APLKASTB. APLKLIBG gains control 
first, and performs most of the 
services for APLKLIBU. For 
APLKLIBF services, it calls 
APLKLIBV. Either APLKLIBG or 
APLKLIBV may call APLKLIBA to 
allocate or deallocate space in 
the library. 


APLKASON, APLKTCTL, APLKTCHWR, APLXGKT 


3. 


APLKASON is initiated as a 
Sign-on attention transaction if 
the user sends input when the 
terminal is in listen state (Cin 
other words, when APL has more 
work to do for the user, but no 
terminal read or write operations 
are outstanding). 


If the APL user.is already signed 
on, APLKASON give control to the 
APLXGKT if GDDM is being used, 
control is given to APLKTCTL. 


APLKLIBC, APLASCHD, APLXNSCB 


4. 


APLXMSCB controls sign-off 
processing, calling on library 
and session manager termination 
routines to assist in sign-off 
processing. APLKLIBC cleans up 
the workspace storage and 
APLASCHD initiates session 
manager and terminal cleanup as 
a ie in diagrams 8.1 and 


APLKIFIX, APLKADSP, APLKAGBL 


When APLKIFIX receives control 
from APLKMSCB after a YYOFF 
request, it exits to APLKADSP; 
APLKADSP then terminates any 
processing being done by 
dependent auxiliary processors, 
deletes the user's sign on entry 
from the sign on table, and, if 
no other users are signed on to 
the system, causes the global 
task to terminate processing 
Cunless independent auxiliary 
processors are still using the 
shared storage manager). 
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GRA 3.1: SHARED STORAG NAGE ICS/VS ) 
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Notes for Diagram 1.3.1 


The return code and the reason code 
are passed in R15 and in RQ. For 
tasks 2, 3, and ¢ on entry, RO has 
the request code. 


APLKSSUB 


1. 


Obtains space for and initializes 
the shared memory (5M). The 
CICS/VS service DFHSC TYPE = 
GETMAIN, CLASS = PROGRAM is 
employed to derive the storage. 
CAPLKSINI] 


APLKSSVP 


2. 


Storage used by the shared 
variable processor (5M) is 
released and shared variable 
processing is terminated. 
CTAPLKSSR] 


APLKSSVP [CAPLKSSR] 


3. 


Options when the terminal is in 
listen state: 


ea. SIGN-ON: A processor control 
block (PERPROC) is obtained 
from SM for the user. The 
user ID, shared variable 
number quota, and space quota 
are placed in the PERPROC. 


b. SIGN-OFF: All of this user's 
shared variables are 
retracted, and PERPROC is 
released. 


APLKSSVP [CAPLKSSR] 


Options when the user signs off 
the system: 


a. SET ACCESS CONTROL: The 
access control vector (ACV) 
for a shared variable is 
altered. The effective ACV is 
returned. 


b. RETRACT: Retracts the sharing 
of a single variable. If the 
partner has already 
retracted, the PERSHARE for 
this variable is released. 


c. OFFER: Offers to share a 
single variable with another 
processor. If it is not a 
counter-offer, a share entry 
CPERSHARE) for this variable 
is obtained from the SM. 


d. COPY: Copies the latest value 
of a shared variable. The 
access state of the variable 
is not changed. 


e. QUERY: Obtains information 
about shared data items. 


f. REFERENCE: References the 
latest value of a shared 
variable. 


g. SPECIFICATION: Specifies a 
new value for a shared 
variable. 
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AGRAM 1.3.2: AUXILIARY PROCESSORS (CICS/VS) 
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Licensed Material—Property of IBM 
48 VS APL Praegram Logic 


Notes for Diagram 1.3.2 

APLIO0OK, APL100KO 

1. APLIOOK issues CICS/VS commands, 
and attaches APL100K0O, which 
starts CICS/VS transactions. 

AP102K 

2. Displays storage for the user. 

AP120 

3. See Notes for Diagram 8.4.1. 

APL121K 

4. Creates, writes, updates, reads, 
and/or deletes APL object files. 
Uses library services (part of 
the CICS/VS executor) to access 
the APL Library. 

APL123K 

5. Using CICS/VS file services, 
reads from and writes to VSAM and 
ISAM data sets. 

APL124K 

6. Permits APL functions to format 


and control the user display 
terminal. Calls the terminal 


manager (part of the CICS/VS 
executor) to provide physical 
terminal services. 


APL102K 

7. Displays storage for the user. 

APL125K 

8. Provides an interface to CICS 
DL/I services for the CICS/VS 
user, 

APL126 


9. See Notes for Diagram 8.4.2. 
APL1I32K 


10. Accesses CICS/VS transient data, 
including both intrapartition and 
extrapartition destinations (for 
example, sequential devices). 
Communicates with transient 
destinations through the 
destination manager (part of the 
CICS/VS executor). 


APL139X 
ll. Passes user-~supplied data from 


the shared storage manager to the 
sesston manager. 
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D AM §: COMMUNICATION WITH TSO 


From TSO 


GLBLTABL 
MVS Catalog 1. Initialize for communication 
with TSO, as follows: 


a. Build executor Global Table 
global table 
Acaese b. Build MVS catalog list. 7 > MVS Catalog list 
Handler c. Acquire workspace 
Program check storage. >>| Workspace 
Handler 


ABEND Handle d. Initialize for 
asynchronous events 


Continue WS 


> =e. Start VS APL PERTERM 
| interpreter [CO PTHYYCOD 


PTHSRCOD 





Via SPIT: exit To Interpreter 
2. Handle asynchronous events. 
as follows: 








a. Program interrupt 





eneral Registers 


PERTERM 


cd Db. Attention signal 


To TSO via BR14 
PTHASYNC Via STALE exit 


Via STAX 
exil 






To Interpreter 





c. Abnormal termination 
l-rom Interpreter 









To TSO 


JSTBL 
3. Handle service 





YYCODE 


Workspace requests. 
Pd a. Non shared variable 
PARMO requests Global Table 
Meee ae 
Address of 
Execution 
b. Shared variables and Routine 
session manager Workspace 


WSMREGSV 


PERTERM 
PTHY YCOD 
PTHSRCOD 






Shared Storage Manager 








To Interpreter 
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Notes for Diagram 1.4 
APLYUINI 


a 
i. 


The initialization process 
Cmodule APLYUINI) performs the 
following functions at VS APL 
startup: 


Gets space for and initializes 
the executor global table. This 
table (mapped by the APLTSOGL 
macro) contains the PERTERM, 
terminal buffers, switches and 
pointers. It is always pointed to 
from all VS APL tasks from each 
task's TCBFSA field. 


Scans the invocation parameters 
and sets session values. Loads 
any auxiliary processor modules. 


Allocates space for shared 
memory, auxiliary processor work 
areas (512 bytes per auxiliary 
processor), and the workspace. 
Gives back FREESIZE amount to 
TSO. . 

Determines if VS APL microcode 
assist is to be used. 


Calls the shared storage manager 
to initialize any auxiliary 
processors, including the session 
manager task and the GDDM task. 


Initializes pointers and keys in 
the incore workspace. 


Determines if the CONTINUE 
workspace is to be auto-loaded. 


Determines if terminal is display 
(with or without session manager) 
or typewriter and initializes 
accordingly. 


Sets SPIE, STAE, STAX Cattention) 
exits. 


Places service request YYON in 
PTHYYCOD and passes control to 
SCAPL. From there, control is 
passed to the interpreter at its 
entry point APLIINIT. 


APLYUERR 


2. 


Asynchronous handling applies to 
program checks, attention exits, 
and abends. 


Program checks (SPIE exit): 
CSCSPIE] 


These are handled in module 
APLYUERR, routine SCSPIE Cexcept 
during VS APL startup, when it is 
handled by routine SPIEXIT in 
module APLYUINI). 


Routine SCSPIE does the 
following: 


Saves the program check registers 
and PSW in WSMSURGS and WSNSUPSW 
Cin the workspace). 


If the program check occurred in 
supervisor code, prints messages 
APL1021I, APL104I, APL1iIOSI, 
APL1061I, and abnormally 
terminates VS APL with the user 
code lxx, where xx is the program 
check code in decimal. 


If the program check occurred in 
the shared storage manager or an 
auxiliary processor, prints 
message APL114I and handles the 
check as an interpreter program 
check. 


If the program check occurred in 
the interpreter, checks to see if 
the interpreter is in a program 
check loop and prints message 
APL101I and ABEND if in a loop. 
If not in a loop, moves the 
registers from WSMSURGS to 
WSMREGSVY and the PSW from 
WSMSUPSW to WSMPCPSW and WSMNSI. 


If a program check loop occurs, 
the registers and the PSW for the 
next-to-last program check will 
be in WSMREGSV and BISMPCPSW/NSI, 
and the registers and PS)! for the 
last fatal program check will be 
in WSMSURGS and WSMSUPSW. 


Attention exits (STAX exit): 
CSCATTN] 


These are handled by routine 
SCATTN in module APLYUERR, which 
does the following: 


Sets attention bit(s) in the 
PERTERM., 


If the attention is pressed while 
an auxiliary processor is 
executing, the auxiliary 
processor is terminated. (The 
purpose is to break endless or 
uncontrolled loops.) 


If the attention is pressed while 
auxiliary processors and VS APL 
are in deadlock, the deadlock is 
broken. (An auxiliary processor 
has issued a wait without first 
posting any other auxiliary 
processor or VS APL for work.) 


Returns to point of interrupt. 
Abends (STAE exit): ([(SCSTAE] 
These are handled in module 


APLYUERR by routine SCSTAE, which 
does the following: 
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® Prints messages APL115I. and 
APL103D. 


® Attempts to save a CONTINUE 
workspace. 


° Terminates VS APL. 


APLYUFXI 


Ss 


Service request handling: 
Croutine APLFXIIM] 


Service requests allow the 
interpreter to interact with its 
environment (for example, type a 
line, load a workspace). Any 
module in the interpreter may 
1ssue a service request. The 
linkage is: 


L R1,=VCAPLFXIIM) 
BALR RO,R1 
DC AL2(YYCODE) 


Routine APLFXIIM is in executor 
module APLYUFXI. It does the 
following for every service 
request: 


° Saves the general registers 
in WSMREGSV Cexcept for 
YYDUMP, which preserves the 
contents of WSMREGSV), the 
floating registers in 
WSMREGFO, Fe, F4, Fé, and the 
address of the caller's 
resume potnt (RO+2) in 
WSMNSI. CAlL WSM fields are 
in the workspace. ) 


@ Adds the processor time used 
by the interpreter to an 
accumulated-time field 
CCMSCPUAC) for the quad-AI 
system variable. 


° Stores the YYCODE (which 
' determines the type of 
request) in the PERTERM 
Cfield PTHYYCOD). 


© Looks up the request type in 
YYTABL (module APLYUFXI) and 
gets the address of the 
execution routine. 
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° Calls the execution routine 
to execute the service 
request. The execution 
routine will return with the 
service request return code 
set in PTHSRCOD. 


© Updates the WSMASYNC bits in 
the workspace to reflect the 
latest status of asynchronous 
events (for example, 
attention). 


@ Sets the current time in 
CMSHOLDT so that processor 
time for the interpreter can 
be accumulated for quad-Al. 


© Goes back to interpreter in 
PSW key X'D' at its entry 
point, APLIINIT. There, the 
interpreter's environment is 
restored and control is 
returned to the instruction 
following the service 
request. 


For a description of the service 
request codes and the names of 
the TSO executor routines that 
handle them, see "Values, 
Parameters, and Return Codes for 
Service Requests" under “Service 
Request Calls” in "Section 6. 
Diagnostic Aids.” 


For shared variable processing, 
control is passed to APLYURVC and 
then to ASVPSERV to route the 
request to the appropriate 
routine in the shared storage 
manager. See Diagram 1.2.1: 
"Shared Storage Manager (CMS and 
TS0)." After control returns to 
ASVPSERV, each auxiliary 
processor whose wait has been 
satisfied receives control. 
Control is then returned to the 
interpreter. 








DIAGRAM 1.4.1: AUXILIARY PROCESSORS (TSO) 


l‘'rom Diagram 1.2.1 
via ASVPOST macro 





. Initialize control blocks and 
sign on to shared storage 


manager. Enter wait state. Pee 


. For PCV ECB, process shared 
variable. Perform operations 










iil 






specific to the particular SVPECBL 
auxiliary processor. 
. For SCV ECB, examine post 
code and take action 
appropriate to the SCV 


particular auxiliary processor. 


Return 
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Notes for Diagram 1.4.1 


1. Initialize 


Initialization is performed as 
follows: The process control vector 
i5 completely filled in. The SCVID 
and SCVECB fields of the shared 
control vectors are filled in. The 
addresses of the ECBs are placed in 
SVPECBL. The PCV ECBSW switch is set 
in SVPECBL to identify the PCV ECB. 
The auxiliary processor signs on to 
the shared storage manager. 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APLYU1LO0: TSO COMMAND 
2. For PCV ECB 


When control is returned from the 
wait state and the PCV ECB is posted, 
the following occurs: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP) 


A query is issued to find the 
variable'ts name. [DOQUERY] 


A counter-offer ts issued to complete 
the sharing of the variable. 
CQUERYSUB) 


The variable is referenced. 
[LGETNXVAR] 


The type of command to be executed 
(TSO) ts determined. [CAPLYUCMD] 


After verifying the command, a call 
15 made to CMNDAPO Centry point in 
APLYUUSR) to confirm authority for 
user to execute command. 


The TSO command 1s ATTACHed. 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


5. For SCV ECB 


When control ts returned from the 
wait state and an SCV ECB is posted, 
the post code is examined. ([CHKPSTCD] 


Processing then occurs as follows: 


If the partner referenced the 
variable, the return code is 
specified. [RCODE] 


If the partner set the access control 
vector this event ts ignored. 
C{CLRPSTCD] 


If the partner retracted the 
variable, the variable is retracted 
and the SCV is made available for 
another variable. [RETRACT] 
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If the partner specified the 
variable, the variable is referenced 
and the command is executed. 
[GETNXVAR, TRANZCOD] 


The return code is specified. [RCODE]) 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APLYU1LO1: ALTERNATE INPUT 
2. For PCV ECB 


When control is returned from the 
wait and the PCV ECB is posted, 
processing occurs as follours: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP] 


A query is tssued to find the 
variable'ts name. [DOQUERY] 


A counter-offer to complete the 
sharing of the variable is issued. 
CQUERYSUB] 


The variable is referenced. 
CGETNXVAR] 


The stacking and conversion options 
are determined. [REFOK] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


When control is returned from the 
wait state and an SCV ECB is posted, 
the post code is examined. [CHKPSTCD] 


Processing occurs as follows: 


If the partner referenced the 
variable, the return code 15 
specified. [CRCODE] 


If the partner set the access control 
vector, this event is tgnored. 
LCLRPSTCD] 


If the partner retracted the 
variable, the variable is retracted 
and the SCV is made available for 
another variable. [RETRACT] 


If the partner specified the 
variable, it is referenced and 
converted. The line is stacked 
according to the options determined 
in step 2 above. [GETNXVAR] 


The return code is specified. [RCODE) 


The auxtliary processor waits for an 
ECB to be posted. [WAIT] 


If remaining items are in the stack, 
a GETMAIN is issued followed by 
invocation of the STACK macro for TSO 
execution after APL has completed 
Sign-off processing. 





APLYULO2: STORAGE DISPLAY 
2. For PCV ECB 


When control is returned from the 
wait state and the PCV ECB is posted, 
the following occurs: 


If PCVESOFF was posted, APLi192 signs 
off. [SIGN-OFF] 


If SCVEOFFR was posted, then an offer 
is processed as follows: COFFER] 


If there is no free SCV, then 
APL1092 returns to the wait state. 


If the offered name is not of the 
form DAT... or CTL...» the offer 
is ignored. [REFUSE] 


If the offered name is of the 
form CTL...» the access control 
is set. If the offered name is of 
the form DAT..., processing 
continues wtth the next step. 


If a match to the offered name 
exists, the pair of variables 
(DAT... and CTL...) are 
cross-connected. [CHKPAIR] 


If this is a CTL... variable, its 
inttial value is referenced. If 
the reference is successful, the 
variable is processed at SPECO1 
as if a partner had been 
specified. [LOFFEROK] 


Follomwitng this, APLiO2 returns to the 
wait state. 


3. For SCV ECB 


When control is returned from the 
watt state and an SCV ECB is posted, 
the following occurs: 


If the partner is retracted, the 
current variable is retracted. 
CRETRACT] 


If the partner is specified, 
processing takes place as 
follows: [SPECIFY] 


If the variable is of the 

form DAT..., tt is ignored 
and APL102 returns to the 

wait state. 


If the variable is of the 
form CTL...» it is checked to 
see if it is paired, its 
value is referenced, and the 
main storage display is 
processed as requested. 
Storage display data is 
returned in DAT by the 
routine RETDATA. 


Finally, a return code 1s set in 
CTL and SSM its called to specify 
CTL and DAT. 


If the partner is referenced, 
processing occurs as follows: 
CREFER] 


If CTL is referenced, the 
last return code 15 gtven. 
CREFER1] 


If DAT ts referenced, the 
return code is set to 5 (DAT 
referenced out of sequence). 
CREFERiJ 


The return code 1s specified and 
APL192 returns to the wait state. 


APLYU111: QSAM 
2. For PCV SCB 


When control ts returned from the 
watt and the PCV ECB ts posted, 
processing occurs as follows: 


An SCV is assigned to be used by the 
shared variable. [(SCVLOOP] 


A query 18 issued to find the 
variable's name. [DOQUERY] 


A counter-offer to complete the 
sharing of the variable is tssued. 
CQUERYSUB] 


The variable its referenced. 
CGETNXVAR] 


The conversion option 1s determined 
and the file name is placed in the 
DCB. [CCHKPARM] 


The auxiltary processor waits for an 
ECB to be posted. [WAIT] 


3. For SCV ECB 


When control is returned from the 
watt and an SCV ECB is posted, the 
post code is examined. [CHKPSTCD] 


Processing continues as follows: 


If the partner referenced the data 
variable, the file is read and the 
data converted according to the 
options determined in step 2 above. 
CPARTREF] 


The converted data is then specified. 
[SPEC1] 


If the partner referenced the control 
variable, the return code from the 
last operation involving the data 
variable is specified. CRETNCODE] 


If the partner set the access control 
vector, this event is tgnored. 
[CLRPSTCD] 
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If the partner retracted the 
variable, the file is closed, the 
vartable ts retracted, and the SCV is 
made available for another variable. 
[RETRACT] 


If the partner specified the data 
variable, tt is referenced and 
converted according to the opttons 
determined in step 2 above. 
[GETNXVAR, CONVERT] 


The converted data is then written to 
the OS file. CWRITE) 


If the partner specified the control 
variable, it is referenced and 
ignored. [CLRPSTCD] 


The auxiltary processor waits for an 
ECB to be posted. CWAIT] 


APLYUZ10: BDAM FILES 

2. For PCV ECB 

When control is returned from the 
wait and the PCV ECB is posted, 
Processing occurs as follows: 


An SCV is assigned to be used by the 
shared variable. [SCVLOOP] 


A query is issued to find the 
variable's name. [DOQUERY] 


A counter-offer to complete the 
sharing of the variable is issued. 
C{QUERYSUB] 

The variable is referenced. [GETNX1] 
The conversion option is determined, 
and the file name is placed in a DCB. 
C[GETDCB] 


The auxtliary processor waits for an 
ECB to be posted. [WAIT] 


3. For SCV ECB 
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When control is returned from the 
wait and an SCV ECB ts posted, the 
post code is examined. ([(CHKPSTCD] 


Processing continues as follows: 


If the partner referenced the data 
variable, the file ts read and the 
data converted according to the 
options determined in step 2 above. 
LPARTREF] 


The converted data is then speci fied. 
{SPEC1] 


If the partner referenced the control 
vartable, the return code from the 
last operation involving the data 
variable, the read-pointer, the 
write-pointer, and the number of 
records to be processed ere specified 
as a 4-element integer vector. 
LRETNCODE] 


If the partner set the access control 
vector, this event is ignored. 
C[CLRPSTCD] 


If the partner retracted the 
variable, the ftle is closed, the 
variable is retracted, and the SCV is 
made available for another variable. 
CRETRACT] 


If the partner specified the data 
variable, it 1s referenced and 
converted according to the options 
determined in step 2 above. 
C[GETNXVAR, CONVERT] 


The converted data is then written to 
the BDAM file. CWRITE] 


The auxiliary processor waits for an 
ECB to be posted. [WAIT] 


APLi23: VSAM 


See Diagram 1.2.2. The same code is 
used for CMS and TSO. 


J 





J 


DIAGRAM 2.0: INPUT RECOGNITION, TRANSLATION, AND ROUTING 


( leom Diagrams 1.1, 3.0.4.0, 5.0 


. Process special 
conditions. 


. Outpul prompt and 
obtain terminal input. 


WSMBUFE 


See 3. Analyze input and 
: route to appropriate 
routine: 


Function Edit 


( 3.0 


Statement 
Execution 4.0 


‘SS Command 


rey eR . 
Processor $0) 
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Notes for Diagram 2.9 
APLITINP 


1 


Before terminal input is 
requested, special conditions are 
checked for and processed as 
follows: CITINPUT] 


If workspace is newly loaded and 
quad-LX is not null, the 
statement “execute quad-LxX" is 
Placed in WSMBUFF. Control is 
passed to the. statement execution 
routine. [LDOQLX] 


If force-off (PTHFOFF=1), a 
continue command is placed in 
WSMBUFF and control is passed to 
the command processor. [LITFORCOF] 


If the user's keyboard is 
normally locked, the YYRWAIT 
service request is tssued. 
CDOWAITD] 


If attention or cancel-output is 
Pending (PTHATTN=1, PTHDATTN=1, 
or PTHNOOUT=1), the YYATOFF 
service request its tssued before 
terminal input is obtained. 
[DOATTN] 


APLITINP 


2. 


The user prompt is output, and 
input is obtained as follows: 
LGETINP] 


If workspace is in function 
definition mode (CFDOPEN=1), a 
bracketed line number 1s butlt tn 
WSMBUFF. The YYTYOI service 
request is issued to output the 
prompt and obtain input. 


If workspace is in quad-prime 
input mode (STQ@PBIT=1), WSMBUFF 
15 filled with blanks up to the 
position indicated by PTHCURSR. 
The YYTYI service request is 
issued to obtain input. 


If workspace 15 in quad-input 
mode (STQ@BIT=1), a quad, colon, 
and new line character are placed 
in WSMBUFF. The YYTYO service 
request its issued to output the 
prompt. 


In all other cases, and following 
the output of the quad-input 
prompt, six blanks are placed in 
WSMBUFF. The YYTYOI service 
request 18s 1ssued to output the 
prompt and obtain tnput. 
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APLITINP 


a 


The result of the YYTYI or YYTYO!I 
is analyzed and processed as 
follows: [CHKINPUT] 


If input exceeded size of 
WSMBUFF, SPACE NOT AVAILABLE 
message is output, and processing 
is resumed at step 1. [CITTYIZ] 


If entry error, ENTRY ERROR 
message is output. Then YYTYOI ts 
issued to output the line up to 
the point of error and obtain 
input. Processing is resumed at 
step 3. CITTYIZ] 


If tnput ts O-U-T, an interrupt 
exit ts taken. CITTYIZ] 


If any other error return from 
service request, a system error 
exit is taken. LITTYIZ] 


If quad-prime tnput, control is 
returned to caller with input 
length in register 7. 


If input 1s null or all blanks, 
processing is resumed at step 1. 


If in function definition mode or 
if first non-blank is a del, the 
function edit and definition 
routine is called. (See Diagram 
3.0: “Function Definition and 
Edit.™) 


If the first non-blank is a right 
parenthes!ts» command processor i5 
called. (See Diagram 5.0: “System 
Command Execution.™) 


If input ts &@ comment, processing 
is resumed at step ] 


For all other cases, ITEMPFUN is 
called to build an immediate 
execution temporary function 
whose single statement is the 
tokenized input line. See Diagram 
3.2, step 2, for a description of 
tokenizing. The tnternal name of 
the functton 1s returned in 
register 4. If quad-input, 
control is returned to the 
caller; otherwise, the statement 
execution routine is called. (See 
Diagram 4.0: Statement 
Execution. ) 


Note that function definition and 
edit, statement execution 
routine, and command processor 
CDiagrams 3.9, 4.9, and 5.0) are 
called as subroutines. When they 
return control, processing is 
resumed at step 1. 














TAGRAM 3.0: FUNCTION DEFINITION AND EDIT 





From Diagram 2.0 









WSMBUFE 


[ taput ine 





Receive new function 
definition or edit 
existing function 


definitions pr Oca 
Clohals 


Function Editing 
3.1 


WSMFDnxxx 











‘rom Diagrams 
3.1. 4.1.3, 5.0 


Workspace 


Interna) Text of 
Function 


FBLIST 


(Argument List to hie 
Function, ay 2. Build internal tokens 


Definition) for defined function. 


Function Definition 
Ag 





To Caller 
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Notes for Diagram 3.0 


APLITFDO 


1. 


L 
6 


1 
0 


When a request to edit a function 
is received, the function-open 
routine receives a 
character-string beginning with a 
del or pdel character. [ITFDOPEN, 
ITLINEO] 


The routine validates the 
request; and if it is valid, puts 
the user's workspace in edit mode 
by setting a flag in WSMFDIOG, 
and a prompt-line number value in 
KSIFDLIN. If the function is a 
new one, APLITHDR is called to 
check its syntax. The header line 
is saved in character form. 


APLITINP 


While in edit mode, the user is 
prompted with a bracketed 
line-number. CITINPUTI 


APLITFDE 


Once in definition mode, 
subsequent input strings are 
passed to the function edit 
routine. It performs the 
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requested action and, assuming 
the definition is still open, 
sets a new value in WSMFDLIN. 
CITFDEDIT] 


APLITFDC 


New or replaced statements are 
saved in character form. If the 
edit request calls for closing 
the definition, the function 
close routine builds the internal 
text of the function and takes 
the user workspace out of edit 
mode. CITFDCLOS]) 


APLITHDR ~ 


2. 


The function definition process 
is generalized so it may be 
called from function edit, from 
the COPY system command, or from 
the quad-FX appendage routine. 


Line 0 of the function is 
converted to internal form by 
APLITHDR. Each body line is 
tokenized by module APLITLXS. 
Module APLITFDC gets space for 
the function object and builds a 
tail entry for each statement in 
it. 





DIAGRAM 3.1: FUNCTION EDITING 


From Diagram 3.0 


1, Validate function 
header line and open | 
the definition. (—__ WSME1D 


WAMEDTOG 
WSMEDIEWI 


WAM} DSC 


WSM 


WSMI-DLMX 


WSMIPFDHED 


WSMEDITAL 





TO «2. Process edit mode 






Decision input. as follows: 

a. Add new function PDVECTOR 

b. Display lines. a 
WSMFDHED 


ce. Delete a line. 


d. Modify existing 
line, 





3. Close definition. SS N Vinitir 


WSMFDHED 


VS APL Source 
Line 


VS APL Source 
Line 


VS APL Source 
i E> 
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Notes for Diagram 3.1 


1. The content of the header line 


examined: 
APLITFDO 


The syntax is checked; the 
function name is tsolated and 


converted to the internal name. 


CITFDOPEN, ITLINEO] 
If the name is not globally 


1s 


defined, it its processed as a new 
definition: the lLine-zero syntax 


is checked Cand rejected with 
DEFN ERROR if erroneous); the 


text of the line ts saved in an 


FDVECTOR object; FDNEWFUN and 


FDOPEN are set in WSMNFDYTOGG; and 


the edit globals are set to their 
initial values. For an existing, 
unlocked function, the definition 


is opened by setting FDOPEN in 
the WSMFDTOG flag to 1, and the 


edit globals to the values of the 


existing definittton. 


2. The function being edited 


consists of a set of specially 


formatted character vectors 


CFDVECTORS) tn a chain whose head 


is named in the WSMFDHED field 
and whose tail is named in the 
WSMFDTAL field. Each input line 


1S passed to APLITFDE tn WSMBUFF, 


exactly as itt appears at the 
terminal; that its, the prompt 
line-number forms part of the 
input, 


APLITFDE 


The input 18s scanned and each 
component of the edit syntax 


(bracketed line numbers, quad or 
delta symbols, closing del) noted 
in the EDSCANO1] byte of DECISION, 
a field in the R13 stack used by 


APLITFDE. CLITFDEDIT) If a new 


statement 15 encountered, it is 


collected and stored in an 


FDVECTOR. LITFDONWLN, APLIYFDN] 


The presence of a label is noted 


and all names used are entered 


the symbol table. [LITSTSRCH] 


DECISION now contains a value 


in 


between 0 and 63, indicating the 


action to be taken. 
APLITFDE 


a. A new line is added, as 


follows: If the line number 


to be processed is higher 
than the line number in 
WSMFDLMX, the new line is 
entered at the.end of. the 
chain. CLITFDEDIT- 
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APLITHDR 


If the line number is zero 
(header line), the header 
syntax is validated, previous 
header line is deleted, and 
the new line inserted. 
LITLINEO] 


APLITPRL 


b. Function lines indicated by 
the user are displayed. If 
the function being edited 
exists only as an internal 
function object and not tn 
display format, the ITPRLINE 
routine is called to put the 
lines itn the display buffer. 
In this case, the line 
numbers exist only as 
integers. [RULE89] 


If the function ts in display 
format, the text vectors are 
moved to the buffer from the 
beginning number indicated 
until a line number excaeding 
the end number is found. 
LR9OA} 


c. The indicated line is 
deleted. [RULE10] 


d. The line is modified, as 
follows: The specified line 
is found and displayed. 
Blanks are displayed to 
position the cursor as 
requested; the edit mask its 
saved; and the edited line 
burlt in the buffer. 
Backspaces are built to 
position the cursor to the 
first inserted blank (Cif 
any). Buffer contents are 
then displayed and the input, 
overstruck on the display, is 
obtained. The new line 1s 
then processed as itn step b 
above. 


APLITFDC 


a5 


If the edit request calls for 
closing the definition, the 
function close routine builds the 
internal text of the function and 
removes the workspace from edit 
mode. [LITFDCLOS, CL2] 


Internal text is built, as 
follows: The FBLIST parameter 
block is prepared and each line 
15 passed to the function 
definition routines (see Diagram 
3.2: "Function Definition"). The 
WSMFDHED field contains the name 
of the function header text 
vector CFDVECTOR DSECT), and each 
line has the name of the next 
line. The last step of function 











definition returns a temporary 
internal name of the new function 
object. Note that text vectors 
are not deleted until the 
function has been completely 
created. [CL4A] 


Changing line 0 of a suspended 
functton or any part of a pendant 
function causes damage to the 
operation stack. In either case, 
a message is issued. Any existing 
function definition corresponding 


to the edited one, is freed. The 
new function object is assigned a 
permanent name. [CL4B] 


The temporary address table entry 
is copied to the permanent one 
named by WSMFDOLD; the object 
DN-word 15 updated; and the 
temporary entry is freed. Edit 
mode 1s ended; all text vectors 
are freed and the WSMFDTOG flag 
1s set to zero. 
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DIAGRAM 3.2: FUNCTION DEFINITION 


rom Disgram 3.0 


“BLIST > |.” Process header line of 


function by building FBDNWORD 


(Arguinent 
List to Function a function header. = 


Definition) 





Header 
Information 


. Process each line of 
the function body, as 


T. 
ow) 
n 
f 
- 
a 
bo 


follows: 
: FBTHISLB 
a. Identify lexical 
b. Translate quad EBUILD 
names. 


c. Convert numeric 
input. 





d. Convert names. 





Output Lines 


FBLILD 


Register 4 


3. Complete the 


function object. [SSCS 






FBDNWORD 


New Address Tabie 
Entry 


aa 


FHEDDN 
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Notes for Diagram 3.2 
APLITHDR 


1. 


Input is in or pointed.to by the 
FBLIST DSECT prepared by the 
caller and addressed by register 
2. The value in FBUILD is used to 
set the DN-word address of the 
function. The internal names for 
"function-name,”™ “result,” and 
Yarguments” are entered in the 
function header. [CITLINEOQ] 


The number of internal names 
found determines the function 
syntax. The FBSYNT field is set 
to the values of the SBITFUNO, 
SBITFUN1, and SBITFUN2, 
respectively. [HDOVER] 


APLITHDR 


Local variable names are 
converted CITSTRCH, APLITIDSJ and 
are appended to the function 
header. [CLOCALOOP] 


Cperation stack space required to 
call the function is computed and 
entered in the function header. 
The offset from the beginning of 
the function to the first label 
position is set in the FBLBLOFF 
field. (LABELS) 


Four bytes are reserved for each 
label that will be encountered 
later, as given itn FLABELS. 
[DONEJ 


The end-of-locals mark is X'0002' 
or any halfword whose low-order 
bits are set to 10. If errors are 
found, register 0 ts set to an 
abnormal termination code, and 
the ERROR? exit to the caller is 
taken. [CDEFNERR] 


The FBUILD and FBUILDL fields are 
set to reflect the space used by 
the header. [CDBONE] 


APLITFDC, APLITLXS 


2. 


As input, register 2 contains the 
address of the FBLIST DSECT 
prepared by the caller and 
updated as in step 1 above. 
CITFDCLOS, ITOKENIZ]) 


The string addressed by the 
FBSRCE field ts examined and 
identified as either: identifier, 
numerte scalar, numeric vector, 
character scalar, character 
vector, primitive operator, or 
label. [SCAN] 


These are processed as follows: 


Identifier: an initial alphabetic 
signals a name. The symbol table 
is searched and an internal name 
is returned as follows: [IDENT] 


Internal names are found by the 
symbol table search: the ITBLDID 
routine isolates the name string, 
calculates its length, and enters 
these tn the WSMNEWID field. 


CITBLDID] 


APLITIDS 


Initial hashing to the symbol 
table index CWSMSYMX] combines 
the first 8 bytes of the name, 
its length value, and some prime 


,numbers to get an index between 


zero and the value in the 
WSMSYMBL field. CITSTSRCH] 


Each symbol table entry is a pair 
of adjacent address table 
entries, one for the name of an 
object, the other for its current 
value. The symbol table 1s 
searched for a match to the name 
in the WSMNEWID field. If a match 
is found, the tinternal name of 
this entry is returned via 
register 4. If a match is not 
found and the caller wants the 
name entered in the table 
C(WSMISC.STCREATE=1), the 
namestring is put in the free 
space as a character vector. If 
WSMISC .STCREATE=8, a code of 0 is 
returned. If entry of the 
namestring causes the symbol 
table to become full, or, if 
there is not enough space in the 
workspace for the character 
vector containing the namestring, 
an error code is returned (that 
is, register 0 is set to ABSTFU 
or ABWSFU). 


Initial T or S causes a test for 
the diagnostic trace and stop 
vectors. [CSDLETA, TDELTA} 


APLITIDS 


If an initial quad starts a 
distinguished name (shared 
variable or primitive system 
function, APLITLXS), the 
character part of the name is 
entered in the WSMNENID field and 
the APLITQ@VB table is searched 
for a match. CITBLD@D) 


Internal names corresponding to 
system variables and operation 
tokens corresponding to primitive 
system functions Cas defined in 
the APLIOPERC macro), are 
returned in register 4. 
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Li 
66 


APLITLXS 


A quad symbol not beginning a 
distinguished name is treated. as 
a primitive. [QUAD] 


APLITNCV 


Numeric scalar: An initial 
numeric signals the start of a 
numeric literal. The Literal is 
scanned and converted to internal 
form by the numeric input 
conversion routine. The routine 
has three entry points: ITININT 
for conversion from typed integer 
constant; ITFDCVT for conversion 
of a typed line number from a 
function definition; ITNUMCVT for 
conversion of numeric constant 
character strings. Each entry 
point sets the WSMNCVSW switch to 
indicate the kind of output 
needed, that its, integer or 
floating point. [LITNUMCVT] 


APLITLXS 


If the absolute value of the 
literal exceeds 65K bytes or is 
real, a general scalar is built 
consisting of a halfword header 
followed by the value. [SCALAR, 
SSCALI, SSCALFJ 


Small integer values are encoded 
as immediate scalars in the 
format of an address-table 
imnediate value. ([CSI16BIT] 


Numeric Vector: When a numeric is 
followed by another numeric, a 
vector numeric literal is built. 


The first integer is examined for 
size: fer 1 or 0, a boolean 
vactor is begun. For greater than 
l, an integer vector ts begun. 
C[VECTOR3,VECTOR) 


For floating-roint, a floating 
point vector is begun. Successive 
integers are converted to 
internal format es with a numeric 
scalar providad that they are of 
the same type as the initial one. 
CSTORE) 


If a value appears that requires 
more space than the previous 
onas, all values are converted to 
the larger size. [CVTEST, CVT1l] 


Note: An invalid numeric literal 
CITNUMCVT returns 
WSMNCVSWN.NCVFAIL? causes the 
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statement to be encoded as an 
ill-formed line. Numeric literals 
that are larger than 7E75 
CITNUNCVT returns 
WSHNCVSW.NCVOFLOW or 
WSMHCVSN.NCVUFLOW) are specially 
encoded to cause a VALUE ERROR at 
execution. CNERROR] ' 


Character scalar and character 
vector: An inittial quotation mark 
denotes a character literal. 
[CHARLIT] 


The null character is replaced by 
the internal name for a constant 
null string. [CEND] 


For a l-byte character scalar; an 
immediate character literal ts 
built. [CEND2] 


Primitive operators: Primitive 
operators are replaced by their 
internal codes found by tndexing 
into the OPTAB table, using the 
graphic byte value. CPRIMITIVE) 


Tests are made for correct use of 
the branch arrow and for 
balancing of parentheses and 
brackets. [GOTO, LBRACKET, 
RBRACKET, LPAREN, RPAREN] 


Labels: blhen a colon its found, 
the name preceding it is put tn 
the FBTHISLB field for later 
movement to the hrader line. 
[COLON] 


The line is then inverted so that 
it can be scanned right to left 
for execution. [CENDLINEJ 


The FBUILD and FBUILDL fields are 
updated to reflect the space 
used. [CEXTTR2] 


APLITFDC 


3. 


Finally, the FHEDT field of 
FHEDDN is set to the displacement 
from the beginning of the 
function of each end-of-statement 
token of each line of the 
function. CITCLOSETI 


APLIESPA 


Duplicate local variable names 
are marked, Space is obtained for 
the FRUILD and FBDNI!OGSD fields 
and a temporary name for the 
function is created. [CIESFIND]) 








G 4.0: STATEM x 


From Diagram 2.0 


Register 4 


Le : di 


execution temporary 
function and 


operation stack. (—_______ >| WSMFUNCT 


WSMNXINS 


ee eet 


WSMTSADR 


aa 








Scan statement, 
analyze syntax, and 
execute function. 


Statement scan, 

syntax analysis, 

and execution 
4.1 


WSMABTYP 


a . Process return codes 


from execution 
routines. 


Return code 
processing 
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APLITEX 
Notes for Diagram 4.0 


1. The name of the immediate 
execution temporary function is 
placed in field WSMFUNCT. The 
address of the first token is 
placed in WSMNXINS. A null token 
is placed on the operation stack, 
and WSMTSADR is set so that the 
null is the top token. [ITEXECUT] 


2. Control is passed to the 
interpreter for statement scan 
syntax analysis and execution. 
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The interpreter processes the 

function and any invoked 

functions, statement by 

statement. Control remains in the . 
interpreter until a translator 
service is required. (See Diagram 

4.1.3 


The service indicated by the 
return code in WSMABTYP ts 
provided (see Diagram 4.2). 
Control then is either returned 
to ITINPUT to obtain terminal 
input or again passed to the 
interpreter to resume statement 
execution. (See Diagram 4.1.) 








DIAGRAM 4.1: STATEMENT SCAN, SYNTAX ANALYSIS, AND EXECUTION 


From Diagram 4.0 





R13 Stack 


1. Save translator's 


environment, (~~ 


Build operation stack 
for VS APL statement, 
as follows: 


J 


WSMNAXINS 


~~ > a. Deterinine class of 


next input token. 


b. Enter token and 


necessary . 
information on WSMTSADR 


operation stack, (7 
OPSTACK 
3. Execute VS APL 
statement, as follows: | Token” 
WSMTSADR 


ae a. Examine two top po 


tokens on 
OPSTACK operation stack 

and identify 
pe syntax class for 
each. 


b. Take required 
. ad 


action using syntax 
decision table. 









Function Call and 
Exit 
4.1.1 





Branching 
4.1.2 
Pe 
Pr)ymitive 


Function 4 .).3 


Pe 
Miscellaneous 


Processing 414 















Shared Object 
Processing 4.1.5 





4. Continue statement 
scan until translator 


service is required. aa) 
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Notes for Diagram 4.1 d. 
APLIEXAR 
1. Save translator's environment: 


The translator's on-vector and 
registers 12 through 15 are saved 
in the R13 stack. (See "R13 
Stack” in "Section 5. Data 
Areas".) The syntax of the top 
token on the operation stack 
determines the processing that is 
to occur. If the token is null, 
statement scan occurs (step 2). 
For other cases, syntax analysis 
eccurs using the top two tokens 
on the operation stack (step 3). 
[IEXARCH] 


Reentry conditions to the 
interpreter are as follows: 


a. An escape exit for an 
ill-formed line, an error 
exit, or a "nothing to do” 
exit to the translator was 
taken and terminal input was 
obtained. The top token on e. 
the operation stack is a null 
token. The WSMNXINS field 
contains the address of the 
first token of an 
immediate-execution temporary 
function whose body is the 
tokenized terminal input. 


b. A stop, trace, print, or 
attention exit to the 
translator was taken at the 
end of the prior statement; 


or an escape exit for t. 


assignment to a trace or stop 
vector was taken and the next 
token was EQS. The top token 
on the operation stack is a 
null token. The WSMNXINS 
field contains the address of 2. 


A branch in a quad-input or 
execute temporary function 
caused exit to the 
translator. For quad-input: 
The translator took an error 
exit and reentry i5 aS In a 
above. For execute, the 
branch is to be evaluated in 
the context of the pendant 
function. At exit, the 
operation stack was: EOS, 
fast or normal branch 
operator (the argument of a 
normal branch), null, FCB for 
execute temporary function, 
prior token(s), FCB for 
pendant function. The 
operation stack 18s now: 
normal branch, argument of 
branch, prior token (null), 
FCB for pendant (now current) 
function. The WSIMNXINS field 
contains the address of the 
token following the execute 
token in the calling 
function. [CEOS] 


Assignment to a trace or stop 
vector caused exit and the 
next token is not EQS. The 
operation stack was: escape 
token, left arrow, right 
argument, prior token. The 
operation stack is now: right 
argument, prior token. The 
WSPINXINS field contains the 
address of the token 
following the escape token in 
the current function. 


Initial entry from the 
translator is as in step a 
above. 


APLIESCA 
Build operation stack for VS APL 


-the first token of the next statement: 
statenent in the current 
function. a. The token whose address is in 


c. The end of the only statement 
of a quad-input or execute 
temporary function caused 
exit to the translator, 
because the trace bit is 
always set. to 1 in the EOS 
token of these functions. At 
exit, the operation stack 
was: EQS, result of 
quad-input or execute, null, b. 
function call block C€FCB) for 
temporary function, prior 
token. The operation stack is 
now: result, prior token. The 
WSMNXINS field contains the 
address of the token 
following the quad or execute 
in the calling (now current) 
function. ; 
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the WSMNXINS field is 
identified as one of the 
following: internal name, 
operator or separator, 
literal, fast branch, escape 
special operator, indirect 
special operator, comment, or 
system function. [CIESCANG, 
ACTIONO] 


The token is entered on the 
operation stack, that is» it 
is placed in the word whose 
address is in WSMTSADR. CSee 
"Operation Stack” in "Section 
5. Data Areas"™.) Entering 
takes place as follows: 


J 





Internal name: The name is 
placed in the right half of 
the stack word. The syntax 
and primary descriptor from 
the address table are placed 
in the left half. CACTO] 


Operator or separator: The 
token is put on the operation 
stack duplicated in the left 
and right halves of the stack 
word. If the operator is 
overstruck with a hyphen, the 
operator index value of 0 is 
placed in the fourth byte of 
the stack word. [ACTQ1] 


Literal: For 16-bit literal, 
the token is put on the stack 
as a stack immediate 
variable. For other literals, 
a temporary internal name and 
a block of free space are 
obtained; the descriptor and 
value are put in the block; 
and the internal name is put 
on the stack with the syntax 
of a temporary remote 
variable. [CACTOLIT] 


Fast branch: The token and 
the following token 
Cend-of-statement) are put on 
the stack and the branch 
processing routine is called. 
(See Diagram 4.1.2: "Branch 
Processing.™) [CACTOSP] 


Escape special operator: This 
token indicates an ill-formed 
line or assignment to a stop 
or trace vector. The token is 
put on the operation stack as 
a stack immediate variable. 
An escape exit to the 
translator is taken. 


CACTOSP2] 


Indirect special operator: 
This operator is used in 
embedded VS APL functions. 
The next token containing the 
internal name of a primitive 
operator is obtained. The 
operator is then obtained 
from the address table, and 
put on the stack duplicated 
in the left and right halves 
of the stack word. CACTOSP33 


Comment: The WSMNXINS field 

1s set to the address of the 
token following the comment. 
Statemant scan is resumed at 
step 2a. [ACTUSP5] 


System function: The token is 
put on the stack in the right 
half of the word. The quad-q 
operator is put in the left 
half of the word. CACTOSP6] 


APLIESCA 
3. 


Execute VS APL statement: 


The WSMNXINS field is set to 
the address of the token 
following the one processed. 
The WSMTSADR field is 
decremented by four. The 
token just entered on the 
operation stack now becomes 
the top token or the current 
token. (CDECIDE] 


The action to be done is 
selected according to the 
syntax class of the two top 
tokens on the operation 
stack. [DECIDE2] 


Syntax class codes are as 
follows: 


Code Meaning 


Co Um™~]SLUCCUCOUM &* WN FF & 


Qo ss >» ~~ 


Oo 


Null 

Operator 
Variable 

Dyadic function 


Right parenthesis or 
bracket 


Left parenthesis or bracket 
Semicolon 
Assignment Cleft arrow) 


Right operator index 
bracket 


Niladic function 

End of statement (CE0S) 
Monadic function 

Shared object (quad, 
quote-quad, system 
variable, shared variable) 
Not used 

Not used 


System object (group, 
printname) 


The syntax decision table which 
follows is used to determine the 
appropriate action. 
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Current Token 


Syntax 
Class 7 ‘ 


Codes 345678 JA BCDEF 
0 15101111 

>|! 4184419 1 

; | 2 911051 

'@] 

r 73 [19 

T)}4 111 

'@] 

Kis 19 

€ 

n 


6 I] 


7 15 


Explanation: The actions 
symbolized by the action codes 
are as follows: 


Code Action 


0 Continue statement scan. 
CIESCANG, ACTIONO] 

1 Syntax error. Exit to 
translator. CIESCANG, 
ACTION1 3 

2 Do dyadic operation (see 


Diagram 4.1.3: "Primitive 
Function Processing”). 
CIESCANG, IEDYAD] 


3 If the prior token is a 
slash or backslash, do 
reduction or scan operation 
Csee Diagram 4.1.3: 
"Primitive Function 
Processing”). For other 
cases, do Action 4. 
CIESCANG, ACTION3] 


4 If the current token is a 
period, do inner or outer 
product operation; for 
other cases do monadic 
operation (see Diagram 
4.1.3: "Primitive Function 
Processing”). [LIESCANG, 
ACTION4] 


5 Do function call (see 
Diagram 4.1.1: "Function 
Call and Function Exit 
Processing”). CIEFUNN] 


6 Do subscripting operation 
(see Diagram :. 1.4: 
"Miscellaneou 
Processing”). * EIEINDD] 
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10 


11 


12 


13 


14 - 


Do assignment (see Diagram 
4.1.4: "Miscellaneous 
Processing”). CIESCANG, 
ACTION7] 


If current token is left 
bracket, continue statement 
scan. If current token is 
left parenthesis, operation 
stack is: left parenthesis, 
variable (result of 
parenthesized expression), 
right parenthesis,» prior 
token. Modify operation 
stack so that it is: 
variable, prior token. 
Select next action (see 
step 3b above). CIESCANG, 
ACTIONS] 


Change syntax class of 
current token from 8 
Coperator index bracket) to 
4 Cright bracket). Then do 
Action 16. CIESCANG, 
ACTIONS] 


Process end of statement 
(see Diagram 4.1.4: 
"Miscellaneous 
Processing”). CIESCANG, 
ACTIONI0O] 


Do shared object reference 
see Diagram 4.1.5: "Shared 
Object Processing”). 
CIESCANG, ACTIONI1]) 


Crperation stack i138: 
operator, left bracket, 
variable Coperator index), 
right bracket, prior token. 
Get value of operator index 
and put it in fourth byte 
of stack word containing 
operator; set explicit 
indexed operator bits 
CGOPHASIND and OPEXIND). 
Modify operation stack so 
that it is: operator, prior 
token. Continue statement 
scan. [LIESCANG, ACTION12) 


Operation stack is: right 
separator, left arrow. Set 
SSASGN bit ‘to 1 in right 
separator to indicate 
subscripted assignment. 
Then do Action 17. 
CIESCANG, ACTION13] 


Operation. stack is: 


semicolon ‘or left bracket, 
semicolon or right bracket. 
Modi fy operation stack so 
that it is? semicolon or 
left bracket, empty 
subscript marker, semicolon 
or right bracket. Continue 
statement scan. [CIESCANG, 
ACTION14¢]) 


J 


~ 


15 Do shared object 
specification €see Diagram 
4.1.5: "Shared Object 
Processing”). [LIESCANG, 
ACTION15] 


Note: Actions 16 through 19 are 
done when the current and prior 
tokens are such that there may be 
a named permanent variable on the 
operation stack that has not yet 
been evaluated. Before it is 
evaluated, a new value may be 
assigned to the name. To provide 
consistent right-to-left 
execution, the value of a named 
variable when it is encountered 
in the statement scan must be 
preserved. If the variable in 
question is temporary or stack 
immediate, nothing is done. In 
any other case, a copy or synonym 
of the value with a temporary 
internal name is made; the 
permanent name on the stack is 
replaced with the temporary name. 


16 Copy prior token (see note 
above). Then continue 
statement scan. CIESCANG, 
ACTION163 


17 Copy third token (see note 
above). Then continue 
statement scan. [IESCANG, 
ACTION1I7] 


18 Copy third token (see note 
above). Then do function 
call. CIESCANG, ACTION18] 


13 If current token is other 
than quad, do Action 1l. 
For other cases, copy third 
token (see note above). 
Then do Action ll. 
CIESCANG, ACTION192 


Continue statement scan until 
translator service is required. 


All actions described above 
eventually terminate in one of 
three wavs: 


With a return to the translator 
for one of the following reasons: 
an error is discovered; stop, 
trace, print, or attention 
service is required; or the 
operation stack is exhausted. The 
reason code is passed in field 
WSMABTYP Csee Diagram 4.2). 


With control passed to 
IESCANG-ACTIONO to continue 
statement scan (step 2). 


With control passed to 
IESCANG-DECIDE2 to do syntax 
analysis (step 3). 
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DIAGRA -4: FUNCTIO ALL AND FUNCTION E PROCESSING 


From Diagram 4.1 


1. At function call, 
process as follows: 


WSMTSADR 
TCO > a. Copy function } 

arguments. WSMTSADR 
OPSTACK [| 


OPSTACK 


Null Token 


Prior Token 


> ©. Build function call 





Called Function block (FCB) on 

operation stack WSMFUNCT 
and shadow local 

WSMFUNCT variables, 
arguments, and 
labels. 





Called Function 

Object 

c. Begin execution of [ 
called function. 


Address Table 


Calling Function 


WSMNXINS 


Address Table & 





WSMTSADR From Diagram 4.1.2 Address Table 


2. At function exit, 
process as follows: 


© 
o 
m=] 
> 
A: 
a 


a. Give result a new WSMFUNCT 
Null Token a P ry 
ECB b. Activate shadowed 
|| result, arguments, Ee 
. d labels Calling Function 
locals, and labels Object 
Address Table WSMNXINS 
po c. Restore pointers | 
to calling function. WSMTSADR 


d. Enter result on [| 
operation stack. [~~~ > __ opstack 


e. Resume execution 
of calling function, 
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C 


Notes for Diagram 4.1.1 


1. At function call, the operation 
stack 15 in one of the following 
conditions: 


Left argument, dyadic function, 
right argument, prior token. 


Monadic function, right argument, 
prior token. 


Niladic function, prior token. 


APLIEFNM 


A copy ts made of the 
arguments, giving them 
temporary internal names. 
This is done so that 
references to the arguments 
within the function are to 
their local values and not to 
their global values. [CIEFUNN, 
FUNN1 J 


A function call block (FCB) 
is built on the operation 
stack overlaying the input 
tokens. The space required 
for the FCB is obtained from 
the FHEDK field in the called 
function header. The FCB is 
built as follows: 


The internal name of the 
calling function is obtained 
from the WSMFUNCT field and 
entered in the FCB; the 
internal name of the called 
function is entered in the 
WSMFUNCT field. CFUNN3] 


The offset to the next token 
in the calling function is 
computed and entered in the 


FCB. CFUNN3] 


The active referent of each 
variable named in the 
function header Cthat is, 
FHEDZ through FHEDLOCLn 
fields) is shadowed (that is, 
the global value is saved in 
the FCB, and an initial local 
value is assigned). Shadowing 
occurs as follows [CFCLOOP]: 


The internal name and address 
table entry are entered in 
the FCB. 


The internal name in the 
value block and any 
associated synonym blocks are 
changed to that of the 
address table entry saved in 
the FCB. 


For system variables, the 
no-value and implicit-error 
bits CATIMNOVL and ATIMERR) 


in the address table entry 
are set to 1. For quad-IO and 
quad-CT system variable, the 
implicit-error bits (SWQIOQIMP 
and SWQCTIMP) in WSMASYNC are 
set to ll. For quad-HT system 
variables, null tab settings 
are sent to the executor. 


For labels, the statement 
number is entered in the 
address table entry with a 
syntax descriptor of X'2Fll' 
Cindicating a read-only 
variable with immediate 
integer value). 


For all other local names, 
X*2700 0000" Cindicating a 
variable with no value) is 
entered in the address table 
entry. 


Translator flags, obtained 
from the FHEDBITS field, and 
the length of the FCB, are 
entered in the FCB. [CFUNNG] 


Function arguments are 
activated by changing their 
address table entries from 
"no value” to the specified 
values using the copies 
described in step a above. 
The temporary names of the 
copies are discarded. [FUNN5] 


A null token is entered on 
the operation stack, and the 
WSMTSADR field is set to make 
the null the top token on the 
operation stack. CFUNN6] 


The WSMNXINS field is set to 
the address of the first 
token of statement 1 of the 
called function. [FUNN6] 


Execution of the function is 
begun as follows: 


If the stop bit CEOQSTPBIT) is 
not set for statement 1, 
control is passed to IESCANG, 
ACTIONC to resume statement 
scan. [FUNNXIT] 


APLIESCA 


If the stop bit is set, the 
WSMNXINS field is set to the 
address of the EGS token of 
statement 0. The E0S token is 
placed on the stack, and the 
WSMTSADR field is set to make 
the EGS the top token on the 
operation stack. A "stop" 
exit to the translator is 
taken. [LIESCANG, ENTRY12] 
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APLIEFNM 


2. 


Function exit processing is as 
follows: 


If the function has a result, 
the result is given a new 
temporary internal nama, and 
its real address table entry 
is set to "no value.” This is 
done so that the shadowed 
referent can be activated 
without destroying the 
result. CIEUNFN, UNFN] 


The shadowed referent of each 
local variable named in the 
function call block CFCB) is 
activated. [CUNLOOP] 


Processing occurs as follows: 


For a system variable: the 
IAUNSHAD routine is called to 
unshadow the system variable. 
[Called by IASHRPST] 


For a shared variable: the 
IARTRACT routine is called to 
retract the shared variable. 
CCalled by IASHRPST] 


For a remote value: the value 
block is freed. 


The address table entry saved 
in the FCB is reentered in 
the address table. The 
internal name is reentered in 
the value block and in any 
associated synonym blocks. 
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The calling function is set 
as the current function by 
moving its internal name from 
the FCB to the WSMFUNCT 
field. CUNFN3] 


If the WSMFUNCT field 
indicates that damage has 
been done to the calling 
function, an SI DAMAGE error 
exit to the translator is 
taken. For other cases, the 
input pointer is set to the 
address of the token 
following the function call 
by obtaining the offset to 
the next token from the FCB, 
computing the address of the 
token, and entering the 
address in the WSMNXINS 
field. CUNFN4] 


The function result is placed 
on the operation stack 
following the token that 
preceded the FCB. The 
WSMTSADR field is set to make 
the function result the top 
token on the operation stack. 
If the function has no 
result, the constant WSMNOVAL 
(variable with no value) is 
used as the result. [UNFN5] 


Execution of the calling 
function is resumed with a 
syntax analysis of the result 
and prior token. CIESCANG, 
ENTRYL1I] 


GRAM 1.2: BRANCH PROCESSING 


From Diagram 4.1 





WSMTSADR 
es) Sree) 1. Locate target WSMTSADR 
statement number. (7s 


OPSTACK 


Stop Word or 
FCB 


Stop Word or 


2. Determine which 
function contains the WSMFUNCT 


target statement. [7 —OT 


Current 
Function Object 


Current 
Function 


= ro) 
wa m 9 
z a % 
"Tl i@ 7] > 
Cc ra) 
rs - 
2; 


WSMTSADR 


Stop Word 


Suspended 3. Exit function if target 
Function staternent is outside 
its range. 


3 
7] 
ay 
> 
‘@] 
A 


4. Resume statement 
scan with target WSMNXINS 


statement; (2 
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Notes for Diagram 4.1.2 
APLIEFNM 


Ls 


For permanent functions with 
trace requested (OPTEMPGO=0 and 
EOSTRBIT=1) or quad-input or 
execute temporary functions 
COPTEMPGO=!1 and EOSTRBIT=1), 
control is passed to the 
translator, where all processing 
occurs. CIEGOGOMN, PRINT3J 


Target statement is determined, 
as follows: 


For fast branch operator: 
Operation stack consists of these 
tokens: EOS, operator, null, stop 
word, or beginning of function 
call block (FCB). Target 
statement number is bits 1 
through 11 of the branch 
operator. The WSMTSADR field is 
set to make the null the top 
token on the operation stack. 
CIEGOGOCSC] 


For normal branch operator: 
Operation stack consists of E0S, 
operator, right argument, null, 
stop word or beginning of FCB. 
Processing is as follows: 


For permanent function with null 

argument: End-of-statement 

ae occurs (see Diagram 
~1.4). 


For immediate-execution temporary 
function with user-coded branch 
COPTEMPGO=1 and EOSTRBIT=0) with 
null argument: The suspended 
function statement number in the 
stop word is the target statement 
number. [GOGOMN3]7 


For.all other cases: The target 
statement number is the first or 
only element of the argument. 
CGOGOMNG] 


If the argument is temporary, its 
internal name and block of free 
Space are freed. [(GOGOMNS5] 


The WSMTSADR field is set to make 
the null token the top token on 
the operation stack. [GOGOMN6] 


The internal name of -the current 
function is obtained from the 
WSMFUNCT field, and the current 
function is located. If it is a 
permanent function, it contains 
the target statement. If it is an 
immediate execution temporary 
function, the function that 
contains the target statement is 
located as follows: 


py sGee Material—Property of IBM 
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The temporary internal name of 
the immediate-execution temporary 
function and its block of free 
space are freed. [G0G0] 


If there is no suspended function 
Cthat is, the stop word indicates 
the end of stack condition), 
control is returned to the 
translator. [CNORMEX] 


If there is a suspended function 
but it is damaged Cindicated as 
such by the stop word), the SI 
DAMAGE error exit is taken. 
C[GOTOEX] 


If there is a suspended function 
Cnot damaged), the internal name 
of the suspended function is 
obtained from the stop word and 
entered in the WSMFUNCT field; 
the suspended function is now the 
current function. The stop word 
is replaced with a null token, 
and the WSMTSADR field is set to 
make the null the top token on 
the operation stack. [G0G0] 


If the target statement is not 
within the range of statements in 
the current function, processing 
is as follows: 


If there is no pendant function 
Cooperation stack item preceding 
the null token is a stop word), 
control is returned to the 
translator. [CNORMEX] 


If there is a pendant function 
Coperation stack item preceding 
the null token is the beginning 
of a function call block), 
control is passed to the function 
exit routine (see Diagram 4.1.1: 
"Function Call and Function Exit 
Processing"). [GOG04] 


If the target statement number is 
greater than 0 and no greater 
than the number of statements in 
the current function, processing 
is as follows: 


APLIESCA 


If stop has been requested 
CECSTPBIT=1), the WSMNXINS field 
is set to the address of the 
end-of-statement ¢€E0S) token of 
the statement preceding the 
target statement. The EGS token 
is put on the operation stack, 
and the WSMTSADR field is set to 
make the EOS the top token on the 
operation stack. Control is 
passed to the translator via the 
stop exit. CIESCANG, ENTRY12] 





APLIEFNM 


If attention has been signalled, 
the WSMNXINS field is set to the 
address of the EOS token of the 
statement preceding the target 
statement. Control is passed to 
the translator via the attention 
exit. CATTNEX] 


For other cases, the WSMNXINS 
field is set to the address of 
the first token of the target 
statement. Control is passed to 
IESCANG, ACTIONO to resume 
statement scan. [(GOGOXIT] 
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DIAGRAM 4.1.3: 


PRIMITIVE FUNCTION PROCESSING 





From Diagram 4.1 
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Notes for Diagram 4.1.3 
APLIESCA, APLIEMND 


A 


The argument(s) and operator are 
processed as follows according to 
the type of primitive function: 


Monadic functions: The right 
argument entry is obtained from 
the operation stack, and the 
IEGETV routine is called to set 
up the right argument block 
CWSMRGETV) for data fetching. The 
primitive function (operator) is 
obtained from the operation stack 
and placed in field WSMOPND. 
CIEMONAD] 


Dyadic functions: The left 
argument entry is obtained from 
the operation stack, and the 
IEGETV routine is called to set 
up the left. argument block 
CWSMLGETV) for data fetching. The 
right argument and operator are 
processed as described above. 
CIEDYAD] 


Reduction and scan functions: The 
right argument is processed as 
described above. The reduction or 
scan operator (€O0P2) is obtained 
from the operation stack and 
placed in field WSMOPWD. The 
primitive function (0OP1) is 
obtained from the operation stack 
and placed in the left argument 
block. CIESCANG, ACTION3] 


Inner and outer product 
operations: The operators are 
catenated into one word on the 
operation stack. For inner 
product, the stack word contains 
Cin bytes): dot (period), dot, 
OP1, OP2. For outer product the 
stack word contains: dot, jot 
Csmall circle), OP2, OP2. Then 
statement scan and execution 
continue until the operation 
stack contains: left argument, 
catenated operators, right 
argument. These are then 
processed as described above for 
routine IEDYAD. CIESCANG, 
ACTION4G] 


Control is passed to some routine 
(see below) to perform the 
function. In general, an operator 
routine computes the shape and 
size of the result, obtains a 
temporary internal name and a 
block of free space, builds the 
result, enters the syntax and 
internal name of the result in 
the WSMRSULT field, and passes 
control to a result-processing 
routine (€see step 3). Exceptions 
to this dre: 


Normal branch operator: exit to 
routine IEGOGOMN; see Diagram 
4.1.2. 


Operations that are completed by 
subscripting: OB, QB, and AQB, 
when B is an array; and A9%B, when 
A is sealar are performed as B[R] 
where R is a subscript list built 
by the operator routine. In these 
cases, the routine builds a 
subscript list in free space, and 
enters its descriptor and 
internal name in the right 
argument block. 


Operations that return a function 
as the result: the result of the 
execute operation is a temporary 
niladic function whose body is 
the tokenized right argument. The 
result of certain cases of encode 
and decode is a dyadic embedded 
VS APL function. (See "QGperation 
Stack” in "Section 5. Data 
Areas"”.) The result of certain 
cases of scan is a monadic 
embedded VS APL function. 


The processing of all monadic 
functions begins in routine 
IEMGNAD. The monadic functions 
and the routines that perform 
them are: 


Function Routine 


+B IEMONAD, PLUS 

-B TEMONAD, NEG; performed 
as O-B 

xB IEMONAD, SIG 

+B IEMONAD, RECIP; 
performed as 1+ B 

LB IEMONAD, FLCL 

[Bs TEMONAD, FLCL 

*B IEMONAD, EXP; performed 
as eXB 

@B IEMONAD, EXP; performed 
as eeB 

|B IEMONAD, MAG 

: IEMONAD, FACT 

2B IEMONAD, ROLL 

OB IEMONAD, PI; performed 
as pix B 

~B IEMONAD, NOT; performed 
as OwvB 

OB IEMONAD, SIZE 
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Function Routine 


»#B IEMONAD, RAVEL 

1B IEMONAD, IOTA 

4B TAGRADE 

VB IAGRADE 

dB IEMONAD, REV; 

eo IAREVARY if argument is 
an array 

QB TAMTRAN 

aly ITAMDOM 

2B IAEXECTE 

ob ITAMFORM 

Ox (System functions): 
IADSHARE 


The processing of all dyadic 
functions begins in routine 
IEDYAD. The dyadic functions and 
the routines that parform them 
are: 


All dyadic scalar operations: 
(+-xtL[*@| !Oavaw<<>2=z ): IEDYB 


Function Routine 


A?B TADEAL 

ApB IERSHP 

A,B TECOMMA 

A\B IEEPSIOT 

AéB IEEPSIOT 

AtB IETKDP; IATKDP if A is 
nonscalar 

AYB IETKDP; IATKDP if A is 
nonscalar 

A/B TECMEX 

A\B IECMEX 

AOB IAROTA 

AQB IADTRAN 

ALB IADECODE 

ATB IAENCODE 

Als ITADDOM 

ATB IADFORM 

AQxxB - (System functions): 
ITADSHARE 
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The composite functions and the 
routines that perform them are: 


Function Routine 


op/ B TAREDU 
op \B TASCAN 
Ae 2p B IEDYB 


The outer product function is 
executed in one of two ways 
according to the shape of the 
arguments. If either argument is 
scalar, the function is done as 
an ordinary dyadic scalar 
function. Otherwise, the function 
is done as a series of dyadic 
scalar functions using the right 
argument and successive elements 
of the left argument for each 
iteration. The latter case is 
identified by bit OPISMIX = 1 in 
WSMOPWD. 


A opl.op2 B IAIPROD 


The inner product function is 
executed in one of two ways 
according to the shape of the 
arguments. If one argument is a 
vector and the other is an array, 
or if both arguments are arrays, 
the function is done by routine 
IAIPROD. Otherwise the function 
is done in two steps. First the 
dyadic scalar function A op2 B is 
performed by routine IEDYB. Then 
the opl reduction of the result 
is performed by routine IAREDU. 


Processing of the result varies 
according to its type. Exarch 
operator routines pass control 
directly to the appropriate 
result-processing routine. 
Appendage operator routines set 
WSMAFLG2 to indicate exceptional 
result types, and then return 
control to their calling routine 
CIEMONAD; IEDYAD; or IESCANG, 
ACTION3). Control is then passed 
to the appropriate 
result-processing routine. 


Various types of results are 
processed as follows: 


Operation is to be completed by 
subscripting 
CWSMAFLG2=AFLG2MOR+AFLG2TSP): 
exit to subscripting routine 
IEINDB (see Diagram 4.1.4). 


Result is a niladic function 
Csyntax class is 9}: The syntax 
and internal name are transferred 
from WSMRSULT to the operation 
stack, replacing the right 
argument entry, and the WSMTSADR 
field is set to make it the top 


token on the operation stack. 
Exit to function call routine 
(see Diagram 4.1.1). [LIESCANG, 
ENTRY5AJ 


Result is a monadic function 
(syntax class is B): The syntax 
and internal name are transferred 
from WSMRSULT to thea operation 
stack, replacing the operator 
entry, and the WSMTSADR field is 
set to make it the top token on 
the operation stack. Exit to 
function call routine (see 
Diagram 4.1.1). CIESCANG, 
ENTRYS5A]J 


Result is a dyadic function 
Csyntax class is 3): The syntax 
and internal name are transferred 
from WSMRSULT to the operation 
stack replacing the operator 
entry. Exit to function call 
routine (see Diagram 4.1.1). 
CIESCANG, ENTRY2B] 


Result equals right argument 
CWSMAFLG2=AFLG2MOR+t+AFLG2RT): If 
the right argument is an address 
table immediate value, it is 
placed on the operation stack as 
a stack immediate value. If the 
right argument is a remote value, 
it is marked as permanent, and 
the operation stack is left as 
is. CIESCANG, ENTRY9J 


Result is a logical or integer 
scalar returned in register 2 by 
exarch operator routines: If the 
result is logical or a small 
integer, it is placed on the 
operation stack as a stack 
immediate value, replacing the 
right argument entry. If the 
result is a large integer, a 
temporary internal name and a 


block of free space are obtained; 
the value block is filled in; the 
syntax and internal name are 
placed on the operation stack 
replacing the right argument 
entry. CIESCANG, ENTRY3 or 
ENTRY6] 


Result is a real scalar returned 
in floating-point register 4% by 
exarch operator routines: a 
temporary internal name and a 
block of free space are obtained; 
the value block is filled in; the 
syntax and internal name are 
placed on the operation stack 
replacing the right argument 
entry. [CIESCANG, ENTRY or 
ENTRY7 J 


Result is a variable whose name 
or value is returned in field 
WSMRSULT: the syntax and internal 
name or immediate value are, 
placed on the operation stack 
replacing the right argument 
entry. CIESCANG, ENTRY2 or 
ENTRY5] 


For all cases in which the result 
is a variable, the WSMTSADR field 
is set to make the result entry 
the top token on the operation 
stack. [LIESCANG, PUSHDOWN] 


If the operation was dyadic and 
tha left argument is temporary, 
its internal name and value block 
are freed. If the right argument 
is temporary, its internal name 
and value block are freed. 
[CIESCANG, LFREE] 


Control is passed to routine 
ITESCANG, ACTIONO to resume 
statement scan. 
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DIAGRAM 4.1.4: MISCELLANEOUS PROCESSING 
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Notes for Diagram 4.1.4 
APLIEIDX 


i 


The subscripting routine is 
called either to do ordinary 
subscripting or to complete a 
transpose or rotate operation. 


The arguments are set up as 
follows for each case: 


For ordinary subscripting: 


The operation stack contains 
the left argument followed by 
one or more subscripts. Each 
subscript is either a stack 
immediate value, the syntax 
and internal name of a remote 
value, or an empty subscript 
marker Cindicating that all 
elements of the corresponding 
left argument dimension are 
selected). 


The left argument entry is 
obtained from the operation 
stack, and the IEGETV routine 
is called to set up the left 
argument block CWSMLGETV) for 
fetching of data. [IEINDD, 
SECTION1I] 


If the left argument is a 
vector, there can be only one 
subscript. The subscript 
entry is obtained from the 
operation stack, and the 
IEGETV routine is called to 
set up the right argument 
block CWSMRGETV) for fetching 
of subscript data. If the 
subscript is an empty 
subscript marker, a temporary 
internal name and a block of 
free space are obtained, and 
@® subscript in the form of an 
arithmetic progression CAP) 
vector is built. CIEINDD, 
SECTIONS] 


If the left argument is an 
array, there is one subscript 
for each of its dimensions. A 
temporary internal name and a 
block of free space for a 
subscript list are obtained; 
the right argument block 
CLISMRGETV) is set up to 
address it. Each subscript 
entry is obtained from the 
operation stack, and the 
appropriate data is placed in 
the subscript list. The 
format of the subscript list 
is described in the listing 
of routine ITEINDD. CIEINDD, 
SECTION2 and SECTIONS] 


If the operation is a 
subscripted assignment, the 
operation stack also contains 


a right argument. Its entry 
is obtained, and the IEGETV 
routine is called to set up 
an argument block (ZZBLOCK) 
for fetching of data. 
C[IEINDD, SECTIONS] 


For subscripted assignment, 
the left and right arguments 
must be the same data type; 
the left argument must not be 
a synonym or arithmetic 
progression (AP) vector. If 
necessary, a copy of the left 
or right argument is made 
with the elements converted 
to the required data type. 
CIEINDD, SECTION6] 


For completion of transpose 
or rotate: 


The transpose or rotate 
operator routine has built a 
subscript list and placed its 
internal name in the right 
argument block (see Diagram 
4.1.3 step 2). The IEGETV 
routine is called to set up 
WSMNRGETV for fetching of 
subscript data. The left 
argument entry is obtained 
from the operation stack, and 
the IEGETV routine is called 
to set up the left argument 
block CWSMLGETV) for fatching 
of data. CIEINDB] 


Subscripted reference is 
processed as follows: 


A temporary internal name and 
a block of free space for the 
result are obtained. The name 
is placed in WSMRSULT. 
CIEINDD, SECTIONS] 


The result is built by 
fetching elements of the left 
argument as indicated by the 
subscript(s) and placing them 
in the result block. CIEINDD, 
SECTIONY and SECT10] 


APLIESCA 


The syntax and name of the 
result are transferred from 
WSMRSULT to the operation 
stack, replacing the right 
bracket entry. The WSMTSADR 
field is set to make the 
resulting entry the top token 
on the operation stack. 
CIESCANG, ENTRY10] 


Control is passed to IESCANG, 
DECIDE2 to do syntax analysis 
using the result and the 
prior token. [CIESCANG, 
ENTRY10B] 
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c. Subscripted assignment is 
processed as follows: 


Element,s of the left 
argument as indicated by the 
subscript(s), are replaced by 
successive elements of the 
right argument. CIEINDD, 
SECTIONS and SECTI0) 


If the left argument is a 
shared or system variable, 
control is passed to the 
IASHRPST routine. The 
remainder of the processing 
is described in Diagram 
4.1.5, step 3. LIEINDD, EXIT] 


APLIESCA 


The WSMTSADR field is set so 
that the right bracket is the 
top token on the operation 
stack. The result of the 
subscripted assignment is the 
right argument, not the 
modified left argument. A 
check is made for and of 
statement as described in 
step 2b below. CIESCANG, 
ENTRYLOB3 


2. Assignment is processed as 
follows: 


a. For assignment, left and 
right arguments are examined: 
If the left argument is 
temporary, a SYNTAX ERROR 
exit is taken. If it is 
read-only (Ca label), a DOMAIN 
ERROR exit is taken. If the 
left argument has a remote 
value, the space for its 
value block is freed. 

-CIESCANG, ACTION7] 


The value of the right 
argument is assigned to the 
left argument, as follows: 


If the left and right value 
blocks are the same size and 
neither argument is a 
synonym, the right block is 
copied into the left block. 
CACTION7] 


If the right argument has an 
immediate value, an address 
table immediate value is 
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built for the left argument. 
CACT7C) 


For other cases, a copy or 
synonym of the right argument 
is made and is given the 
internal name of the left 
argument. [ACT7E] 


b. If the next input token is 
EOS, control is passed to the 
end-of-statement processing 
routine. 


For other cases the WSMTSADR 
field is set so that the 
right argument is the top 
token on the operation stack. 
Control is passed to IESCANG, 
ACTIONO to resume statement 
scan. CACT7X] 


3. End-of-statement processing 
occurs as follows: 


a. An exit to the translator is 
taken if any of the following 
conditions are true: 


Trace is requested; in EOS 
token, EOSTRBIT=1. CIESCANG, 
ENTRY&8 or ACTIONIO3 


Stop is requested; in EOS 
token, EQSTPBIT=l1. CIESCANG, 
ENTRY& or ACTIONIO] 


There is something to be 
printed; on the operation 
stack, the token preceding 
the E0S is a variable that is 
not the result of the 
assignment. [CIESCANG, 
ACTIONIO) 


The user has signalled 
attention; in WSMASYNC, 
SWATTN or SWDATTN=1. 
CIESCANG, ACTIOA] 


b. For other cases, the WSMTSADR 
field is set so that the null 
token that precedes the E05 
token or the result of 
assignment is the top token 
on the operation stack. 
Control is passed to IESCANG, 
ACTIONO to resume statement 
scan. CIESCANG, ACT1OC] 


DIAGRAM 4.1.5: SHARED OBJECT PROCESSING 
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Notes for Diagram 4.1.5 


APLIESCA 


1. Processing for the shared object 
reference is as follows: 


The token for the shared 
object is obtained from the 
operation stack, and entered 
in the left argument block 
CWSMLGETV). CIESCANG, 
ACTION11] 


APLIATRN 


The type of shared object is 
determined by the IAQUADS 
routine, and processed as 
follows: 


For quad: The ITINPUT routine 
is called to obtain input 
from the terminal. The 
ITEMPFUN routine is then 
called to build a temporary 
niladic function in free 
space; the body of the 
function is the tokenized 
terminal input. The syntax 
and internal name of the 
function are then entered in 
the WSMRSULT field. [CLIAQUADS, 
CALLIN] 


For quote-quad: the ITINPUT 
routine is called to obtain 
terminal input. If the input 
is null, the syntax and 
internal name of the null 
character vector (WSMNULCH) 
are entered in the WSMRSULT 
field. If the input is 
scalar, it is entered in the 
WSMRSULT field as a stack 
immediate value. For other 
input, a temporary internal 


" name and a block of free 


space are obtained, the input 
is entered in the block as a 
character vector, and its 
syntax and internal nome are 
entered in the WSMRSULT 
field. [LIAQUADS, QUADP] 


APLIASYV 


For system variable: The 
value of the variable is 
either computed (quad-WA and 
quad-LC}, obtained from the 
executor (quad-AI and 
quad-TS$), or obtained from 
the variable's address table 
entry or value block (Call 
other system variables). If 
the value is logical or a 
small integer scalar, it is 
entered in the WSMRSULT field 
as a stack immediate value. 
For other cases, a temporary 
internal name and block of 
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frea space are obtained. The 
current value of the system 
variable is entered in the 
block, and its syntax and 
internal name are entered in 
the WSMRSULT field. 
[LIASYSREF]) 


APLIASHV 


For shared variable: The 
YYSREF service request is 
issued to transmit the 
current value of the shared 
variable from shared memory 
to the unallocated block. A 
temporary internal name 15 
obtained and given to the new 
value block. The IACHK 
routine is called to validate 
the data. The internal name 
of the new value block is 
entered in the variable's 
share-ID block. The old value 
and its internal name are 
freed. The syntax and 
internal name of the new 
value block are entered in 
the WSMRSULT field. CIASCOPY] 


APLIESCA 


b. 


The syntax and internal name 
or immediate value of the 
result is obtained from the 
WSMRSULT field and entered in 
the operation stack in place 
of the shared object entry. 
CIESCANG, ACT11C] 


c. Control is passed to IESCANG, 
DECIDE2 for syntax analysis 
using the result and prior 
token. 

APLIESCA 


2. Processing for shared object 
specification is as follows: 


a. 


The entries for the shared 
object and right argument are 
obtained from the operation 
stack and entered in the left 
and right argument blocks 
CWSMLGETV and WSMRGETYV). 
CIESCANG, ACTION15] 


The type of shared object is 
determined by the IAQDSPEC 
routine, and processed as 
follows: 


APLIATRN 


Quad or quote-quad: the 
IAGOUT routine is called to 
transmit the value of the 
right argument to the 
terminal. CIAQDSPEC, 
CALLGOUTJ 


APLIASYV 


System variable: For a 
read-only system variable, 
the specification is ignored. 
For other cases, the right 
argument value is entered in 
the system variable'’s address 
table entry or value block. 
If the value is invalid, the 
implicit error bit CATIMERR) 
is set to 1 in the system 
variable's address table 
antry. If the system variable 
1s quad-PW or quad-HT, thea 
new value Cif it is valid) is 
transmitted to the executor. 
CIASYSPEC] 


APLIASHV 


Shared variable: A temporary 
internal name and block of 
free space are obtained and 
the right argument is copied. 
The internal name is entered 
in the WSMRSULT field. The 
YYSSPEC service request is 
issued to transmit the new 
value to shared memory. The 
internal name of the new 
value block is entered in the 
shared variable’s share-ID 
block. The old value block 
and its internal name are 
freed. [IASHSPEC] 


APLIESCA 


b. 


If the next input token is 
EOS, control is passed to the 
end-of-statement processing 
routine (see Diagram 4.1.4). 
For any other case, the 
WSMTSADR field is set so that 
the right argument is the top 
token on the operation stack. 
Control is passed to IESCANG, 
ACTIONO to resume statement 
scan. [LIESCANG. ACT7X] 


Processing for shared object 
subscripted specification is as 
follows: 


The token for the shared 
object is obtained from the 
operation stack and entered 
in the left argument block 
CWSMLGETV). In the right 
bracket token, the ‘SHRASGN 
bit is set to 1 to indicate 
subscripted assignment to a 
system or shared variable. 
CIESCANG, ACTIONLI] 


APLIATRN 


The type of shared object is 
determined by the IAQUADSA 
routine, and the current 
value is obtained as follows: 


APLIASYV 


System variable: For system 
variables with an immediate 
value, a RANK error exit is 
taken. For read-only system 
variables, a copy of the' 
variable'’s current value is 
made; the syntax and internal 
name of the copy its placed in 
the WSMRSULT field. For other 
cases, the syntax and 
internal name of the 
variable's value block are 
entered in the WSMRSULT 
field. [IASYSREF] 


APLIASHV 


Shared variable: The current 
value of the shared variable 
is obtained as described in 
la above. CIASCOPY] 


APLIESCA 


The result is processed as 
described in step lb above. 
Then control is passed to 

IESCANG, DECIDE2 for syntax 
analysis. CIESCANG, ACT1IC] 


Since the current token on 
the operation stack is nee an 
ordinary variable, and the 
prior token is a left 
bracket, the subscripting 
routine CIEINDD) is called. 
(The subscripted assignment 
is done as described in 
Diagram 4.1.%, step 1). At 
completion, WSMLGETV contains 
the internal name of the' 
shared object's new value; 
that is, its current valve as 
modified by subscripting,. 


The type of shared object is 
determined by the IASHRPST 
routine, and the new value is 
processed as follows: 


APLIASYV 


System variable: For 
read-only system variables, 
the new value and its 
internal name are freed. For 
quad-HT, the new value Cif it 
is valid) is transmitted to 
the executor. For other 
cases, no processing of the 
new value is needed. 
CIASYSPST]J 


APLIASHV 


Shared variable: The YYSPEC 
service request is issued to 
transmit the new value t 
shared memory. [CIASHSPEC 


Licensed Material—Property of IBM 
Section 2. Method of Operation 89 


APLIESCA 


The WSMTSADR field is set so 
that the right bracket is the 
top token on the operation 
stack. CIESCANG, ENTRY10B] 


If the next input token is 
EOS, control ts passed to the 
end of the statement 


Licensed Material—Property of IBM 


90 


VS APL Program Logic 


processing routine (see 
Diagram 4.1.4). 


For other cases, the WSMTSADR 
field is set so that the 
right argument is the top 
token on the operation stack. 
Control is passed to IESCANG, 
ACTIONO to resume statement 
scan. CIESCANG, ACT7X] 


DIAGRAM 4.2: RETURN CODE PROCESSING 


C From [iagram 4.1 
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Notes for Diagram 4.2 
APLITEX 


1. At normal end, the null token is 
deleted, and the temporary 
function is fread. CITEXECUT, 
EXNORM] 


If the statement that was 
executed was a branch <o line 
zero and the operation stack was 
empty, the temporary function is 


erased before control returns to Cc. 


this routine. On exit from this 
module, the WSMNXINS and WSMFUNCT 
fields are set to empty values. 


APLITERR 


2. Execution error is signalled by 
an abnormal termination code 
greater than the value of ABESCA. 
Error processing occurs in a 
loop. Each time that the calling 
function 15 made the active 
function, processing returns to 
step a below. Termination 


conditions are: An unlocked d. 


function is found and suspended; 
an end-of-stack condition is met; 
a quad-temporary is found and 
execution is restarted. 
Ordinarily, control passes to the 
ITERRORS routine, where 
processing is as follows: 


a. The operation stack contains 
entries representing the 
state of the expression baing 


evaluated when the error e. 


occurred. These include: 
primitive functions, 
temporary results, 
separators, subscript lists, 
etc. Each operation stack 


entry 1s deleted and remote f. 


' temporary variables are 
freed, until a suspended 
function or end-of-stack 
condition, or a function call 
block (FCB) is met. The FCB 


is for the function named in g. 


the WSMFUNCT field; suspended 
functions and end-of-stack 
conditions indicate that the 
function named in the 
WSMFUNCT field is an 
immediate execution function. 
CITERRORS, ERLOOPI] 


b. Subsequent processing depends h. 


on the type of the active 
function: If the active 
function is locked, the error 
indicated as RANK, VALUE, 
etc. in the WSMABTYP field is 
changed to a DOMAIN ERROR. 
CERLOCK] 


The caller of this function 
1s made active; the FCB for 
the function is deleted from 
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the operation stack by the 
ITESUNFUN routine. 


Note: The calling function 
may be damaged (that is, 
erased, or modified by an 
edit command). Damage to a 
function is discovered during 
type determination. The 
function is then treated as 
locked and the error is 
changed to SI DAMAGE. 


If the function is an execute 
temporary function, the 
temporary function is freed, 
and the trouble report 
(prefixed by the execute 
symbol) is displayed. 
[EREXEC ] 


The ITESUNFUN routine is 
called to delete the function 
call block of this function 
and the caller of the deleted 
function is made the active 
function. 


If the function 15 a quad 
temporary function, the error 
message is displayed, the 
temporary function is freed, 
and its caller is made active 
(see step b above). The 
WSMNXINS field is decremented 
by two so that it addresses 
the quad token for 
reexecution and the 
interpreter is recalled. 


If the active function is 
defined and not locked, the 
error message is displayed 
and the function is 
suspended. [ERNOLOCK] 


If the function is an 
immediate execution function, 
the error message is 
displayed and the temporary 
function is freed. CERIMNEX] 


If the caller of the ITERRORS 
routine is a system command 
processor (see Diagram i.1) 
requesting an interrupt after 
a save command during 
quad-input, control 15s 
returned to the system 
command processer. (CEXIT] 


If the caller of the ITERRORS 
routine is the ITEXECUT 
routine, and the error is not 
such as to reinvoke a quad 
function, registers 13 and 14 
are set to the bottom of the 
R13 stack. CEXIT] Control is 
passed to the tnput routine. 
LCITINPUT] 


If the error occurred in 
quad-input, control is 
returned to the caller 
CITEXECUT) to reinvoke the 
interpreter. CEXIT] 


APLITERR, APLITSUB 


3. 


If the line is to be traced, the 
ITPRFNLN routine is called to 
enter the function name and line 
number in the buffer. If the line 
is a branch statement, a 
right-arrow graphic is entered in 
the buffer. LITPRFENLUN] 


APLITEX 


For end-of-line printing, or for 
tracing, the value on top of the 
operation stack is passed to 
IAGOUT to be formatted and placed 
in the buffer (to follow the 
trace output, if any). 


If an attention signal is 
received, part of the display may 
be built but printing does not 
occur. 


The escape token signals either 
an ill-formed line or the 
assignment to a trace or stop 
vector. The escape token is in 
the right half of the word at the 
top of the operation stack. If 
its high-order byte contains 
zero, this signals the head of an 
ill-formed line. The WSMNXINS 
field contains the address of the 
error code CABSYNT or ABDOMA], 
followed by the text of the line. 
The ITERRORS routine is called to 
display a SYNTAX or DOMAIN ERROR 
message. CITEXECUT, ESCAPE] 


If the escape token signals a 
diagnostic trace or stop vector, 
processing is done by the TSTEST 
routine as follows: 


a. The ITFETCH routine is called 
to validate the value given 
and to procure its elements. 
CTSBOTH] 


b. For each integer value, a 
trace or stop bit is set in 
the named function. 


APLITEX 


5. 


For attention signal only, 
Processing is as follows: 


The buffer is cleared. If the 
current function is locked, 
execution continues. CA locked 


function is never suspended. ) 


CATTN] 


If the function is an 
immediate-execution function, the 
function is freed and the — 
ITEXECUT routine returns to its 
caller. | 

If the current function is,a 
temporary function built from a 
quad-input statement or the 
execute primitive, processing 
occurs as in step 6 ' 


For the defined, unlocked © 
function, processing occurs as 
for stop, described below. | 
CATTPERM] | 


For stop or attention, the 
function is suspended. That is, 
the number of the next line to be 
executed, the name of the 
function, and a bit to indicate 
that the function is not damaged, 
are placed on the operation stack 
Cin place of the initial null and 
adjacent to the FCB for this 
function). Control is then 
returned to the caller. ([(STOPP] 


The temporary function created 
from quad-input or the argument 
of execute is deleted from the 
operation stack. The value 
resulting from its evaluation is 
placed on top of the operation 
stack and the calling function is 
made the active one. CUNQUEX] 


If there was no value, the 
position in the calling function 
is checked: If at end of line, 
execution continues; if not, 
ITERRORS is called to cause a 
VALUE error. In any case, if the 
calling function is at 
end-of-statement, a test ig made 
for the presence of conditions 1! 
through 5. 


Note: Any combination of 
conditions 1 through 6 can occur 
together, or recursively. When 
all conditions have been cleared, 
one of three cases obtains: 
Execution is over; control is 
returned to ITINPUT to pronpt the 
user; an error exists, ITERRORS 
is called to handle it; execution 
continues, and IEXARCH jis called 
to resume execution. 


Licensed Material—Property of IBM 
Section 2. Method of Operation 93 
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Notes for Diagram 5.9 
APLITCMD 


1. 


The type of command is determined 
and the corresponding verb is 
located in the VERBTABL table. 
The command syntax is analyzed 
and execution parameters are 
built. Control is passed to a 
routine (see below) to execute 
the command. CITSYSCMD] 


The commands and the routines 
that execute them are listed 
below. For commands that affect 
the system outside the active 
Workspace, service request calls 
to the executor are issued by the 
routines. 


Command Routine 
CLEAR ITCMCLEA 
CONTINUE ITCMCONT 
COPY ITCMCOPY 
DROP ITCMDROP 
ERASE ITCMERAS 
FNS ITCMFNS 
GROUP ITCMGROU 
GRP ITCMGRP 


command 
GRPS 
LIB 
LOAD 
MSG 

OFF 

OPR 
PCOPY 
QUOTA 
SAVE 

SI 

SINL 
STACK 
SYMBOLS 
VARS 
WSID 
WSSIZE 


Any other syntactically~valid 
command will ba passed to 


ITCMCMD. 


Section 2. 


Routine 
ITCMGRPS 
ITCMLIB 
ITCMLOAD 
ITCMMSG 
ITCMOFF 
ITCMOPR 
ITCMPCOP 
ITCMQUCT 
ITCMSAVE 
ITCMSI 
ITCMSINL 
ITCMSTAC 
ITCMSYMB 
ITCMVARS 
ITCMWSID 
ITCMWSSI 
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DIAGRAM 6.0: WORKSPACE CONVERSION 
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Notes for Diagram 6.90 
APLCINIT (CNS), APLOINIT (VSPC) 


The three versions of the VS APL 
conversion program described are: 


° CMS under CMS, converston from 
APL/3660 or APLSV to VS APL. 


e VSPC under OS/VS or DOS/VS, 
conversion from APL/360 or APLSV 
to VS APL. 


_@ PRPQ under CMS, conversion from 
APL/CMS CPRPQ) to VS APL. 


1. CNVTFLAG consists of bits that 
are set to indicate options 
specified in the convert command 
(CMS) or specified by convert 
command cards (VSPC). The SELIST 
is built from select parameters 
CAPLCPARM, APLOPARM). Then 
storage is obtained (by GETMAINS) 

or: 


@. The APL/360 or APLSV 
workspace or directory 


b. The VS APL workspace 
c. The display buffer 


The tape label and first data 
record on the tape are read to 
compute buffer size. The tape is 
then repositioned to the first 
data record. Also, the printer 
data set is opened. The XM6NWS 
pointer is set to point to the 
start of the APL/360 workspace. 
The VSWS pointer is set to point 
to the start of the VS APL 
workspace. The BUFFSTRTI pointer 
is set to point to the display 
buffer. 


2. The input tape is now read, 
workspace by workspace. However, 
there are two types of workspaces 
that are very similar in 
structure: directories and 
workspaces proper. If there are 
directories on the tape, they all 
precede the workspaces proper. 
There may be any number from 60 to 
n of directories. Therefore, the 
directory Cif any) is read and 
reconstructed from its condensed 
tape form into the APL/360 slots 
CAPLCINIT and APLOINIT). 


If APLCINIT or APLOINIT 
identifies this workspace as a 
directory, it calls APLCDIRE or 
APLODIRE to process it. In CMS, 
APLCDIRE is a dummy routine which 
prints the message "DIRECTORY" at 
the terminal. In VSPC, APLODIRE 
extracts data from each PERLIB of 
interest, and saves the extracts 
in DIRSLOT. It is saved until the 


-.workspace and account to which it 


pertains is finally found, later 
on the tape. If full conversion, 
extracts from all PERLIBs are 
saved. If select conversion, only 
those PERLIBs pertaining to 
workspace and accounts in SELIST 
are saved. If resume conversion, 
only those of PERLIBs pertaining 
to the workspace at which 
conversion is to resume, and all 
following workspaces are saved. 


DIRSLOT holds extracts for up to 
400 accounts (there is one PERLIB 
per account). If there are more 
accounts, DIRSLOT overflows; it 
is written as a block to a 
temporary data set CAPLDIRE) to 
make the slot available for 400 
more accounts. Tha first word in 
DIRSLOT is a high water mark 
pointer which points to the next 
available position for an 
extracted PERLIB. The data 
extracted is: 


APL/360 library Caccount number) 
PASSWORD 

WORKSPACE QUOTA 

SHARED VARIABLE QUOTA Cif any) 
MAX TIME BETWEEN INTERACTIONS 


If the account is empty Cno 
workspace for this library), the 
PERLIB is ignored. Later, when a 
workspace proper is converted, 
these saved extracts will be used 
to create the VSPC user profile 
record and directory entry 
record. 


Eventually, APLCINIT or APLOINIT 
reconstructs the first of the 
workspaces. When this happens, 
there are no more directories 
because a directory cannot follow 
a workspace on a VS APL dump 
tape. Upon identifying the 
workspace as a workspace, 
APLCINIT or APLOINIT calls 
APLCCULL CCMS) or APLOCULL CVSPC) 
to determine if the workspace 
should be converted. APLCCULL or 
APLOCULL chacks Cif select 
conversion) if the workspace is 
in SELIST. If not and if select 
conversion, the workspace is 
ignored and APLCINIT or APLOINIT 
gets the next workspace. APLCCULL 
and APLOCULL also validate the 
library number and workspace 
name. If VSPC, and either is 
invalid and not renamed in 
SELIST, the workspace is 
rejected. If cCtiS and either is 
invalid, APLCCULL or APLOCULL 
requasts a new number and/or a 
new workspace name from the 
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terminal. If resume conversion, 
workspaces are ignored until the 
one specified in the resume 
command is encountered. 
Thereafter, conversion reverts to 
full conversion logic. If the 
Workspace passes culling, control 
is returned to APLCINIT or 
APLOINIT, which calls APLCWKSP 
(CMS) or APLOWKSP CVSPC) to 
manage workspace conversion. 


4. Construct VS APL workspace: 


a. The VS APL slot is 
initialized. This is a clear 
workspace CAPLCLEAR, 
APLOLEAR, or APLQLEAR) with 
the workspace environment 
converted by CLEAR. APLCWKSP, 
APLOWKSP, or APLQWKSP then 
calls APLCIBNM, APLOIBNM, or 
APLQIBNM to provide a unique 
name for the IBEAM simulator 
function which may have to be 
added to the workspace as a 
result of idiom conversions. 
Then APLCWKSP, APLOWKSP, or 
APLQWKSP unshadows global 
names so that each active 
symbol table or address table 
entry points to its most 
global value Cif any). 


b. At this point, conversion of 
workspace objects begins. For 
the rest of this workspace, 
APLCWKSP, APLOWKSP, or 
APLQWKSP is driven by the 
symbol table or address table 
through which it loops 
looking for variables, 
groups, and functions which 
have values. APLCVARB (CMS), 
APLOVARB CVSPC), or APLQVARB 
CPRPQ) is called to validate 
and convert variables. 
APLCGRUP (CMS), APLOGRUP 
CVSPC), or APLQGRUP CPRPQ) is 
called to convert groups. The 
converted objects (variables, 
groups) are entered into the 
VS APL workspace symbol table 
by APLITIDS. Space for the 
objects in the sink workspace 
free space is obtained by 
calling APLIESPA. These are 
VS APL interpreter routines 
borrowed by conversion and 
require VS APL linkage 
CAPLCALL, APLEXIT macros). 


Upon encountering a function 
in the symbol table, WKSP 
calls APLCFUNC CCMS), 
APLOFUNC CVSPC), or APLQFUNC 
(CPRPQ)} to manage the 
conversion of the function. 
It is here that idiom 
(context) conversion takes 
place. 
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Functions are converted line 
by line from internal tokens 
to display format by 
APLCDISP, APLODISP, or 
APLQDISP. First, FUNC calls 
DISP to display the header 
line. Syntax errors are not 
tolerated here; if any are 
found, the function is 
ignored. If no errors are 
found in the header, FUNC 
calls VS APL interpreter 
routine APLITHDR to tokenize 
the function header into the 
VS APL workspace. Also, 
APLITHDR enters the name of 
the function into the VS APL 
symbol table along with any 
declared locals, results, and 
arguments. Then FUNC calls 
DISP to display and make 
idiom conversions for each 
line. DISP returns with a 
summary of idioms found which 
FUNC places in the summary 
table with the function line 
number to which it pertains. 
FUNC enters each displayed 
(converted) line into VS APL 
by calling APLITLXS. Finally, 
all function lines are 
processed; FUNC formalizes 
the converted function by 
calling APLITFDC. Then FUNC 
analyzes the summary table, 
calling APLCRPRT CCMS), 
APLORPRT CVSPC), or APLQRPRT 
(PRPQ) to print a summary of 
idioms found and the lines in 
which the idioms occurred. 
There is no printing if no 
idioms occurred. The summary 
table is reset for the next 
function, and control 15 
returned to WKSP for the next 
object. 


FUNC does not go through this 
process, however, for 
identifiable workspace 
functions: ORIGIN, SETLINK, 
SETFUZZ, WIDTH, DELAY, and 
DIGITS (from distributed 
library 1 in XM6). If FUNC 
detects a locked, two-line 
function, it calls APLCWSFN 
CCMS) or APLOWSFEN CVSPC) 
only. This routine checks the 
function bit by bit for a 
match with one of the WSFNS 
functions listed above. If it 
does not match, control is 
returned to FUNC, which 
processes the function in the 
normal way. If it does match, 
WSFN returns to FUNC with a 
"hit® return code and a 
Pointer to a function that is 
the VS APL equivalent. FUNC 
then calls APLCSHIP (CMS and 
PRPQ) or APLOSHIP CVSPC) to 
process the substitute. SHIP 
enters the substitute by 


calling in turn APLITHDR, 
APLITLXS, and APLITFDC. FUNC 
then prints the message 
"REPLACED" on the conversion 
report via RPRT. Eventually, 
WKSP exhausts the XM6 symbol 
table. At this point, WKSP 
adds the IBEAM simulator 
function to the VS APL 
workspace if appropriate. It 
does this by calling APLCSHIP 
or APLOSHIP with a pointer to 
the VS APL definition of the 
simulator function. APLCSHIP, 
or APLOSHIP enters the 
simulator in the same way it 
entered the workspace 
functions. Conversion of the 
workspace is now completed. 
WKSP then calls APLCSAVE 
(CMS), APLOSAVE CVSPC), or 
APLQSAVE CPRPQ) to write out 
the converted workspace. 


In CMS, APLCSAVE writes the VS 
APL workspace to the user's 
A-disk and calls RPRT to print 
the CMS file identification of 
workspace. In VSPC, saving is 
more complex. If the workspace is 
the first encountered in an 
account (THIS LIBNO # LASTLIBNO), 
SAVE creates a user profile 
record which it writes to tape 
CAPLOUT). To do this, it 
retrieves the extracted PERLIB 
from DIRSLOT by calling GETDIRE 
in APLODIRE. If there were no 
directories, SAVE uses default 
values to create the user 
profile. This logic occurs only 
for the first workspace 
encountered in each Library. For 
all workspaces, SAVE creates and 
writes to tape a VSPC directory 
entry record describing the 
workspace. Finally, SAVE writes 
the workspace on APLOUT as 16K 
byte control intervals as if the 
workspace were a member of a VSAM 
data set. Control then returns to 
WKSP, which returns control to 
INIT to get the next workspace. 
PRPQ APLQSAVE writes the 
workspace either to VSPC input 
tape or to the user's CMS A-disk. 


CHS and vsec 


Tape structure. An example of tape 
structure is shown below: . 


a. Tape label, one or two 
80-byte records. 


First record is optional VOL1 
record 


Second Cor first if no VOL1) 
is HDR1 record; contains 
record size in bytes 57, 58. 


APL LIBRARY DUMP 
APL SVS LIBRARIES RECORD SIZE 





b. Data: directories and 
workspaces, variable length 
records. Each directory or 
workspace: 


lst record 144 bytes from 
workspace (Cor 
directory) 
origin through 
SV1. 


n records of variable 
length from 
PARREL through 
m-entries to 
beginning of 
free space. 
Last record may 
be padded with 
a few bytes of 
free space if 
too short for a 
tape record. 


n records of variable 
length from top 
of execution 
stack Clow 
core) through 
bottom sa) 
core) of R13 
stack. 


Sequence is: directory 0 
through directory n followed 
by workspaces in directory 
and PERLIB order Centry 
sequence, not collating 
sequence). In APL/360 tapes, 
workspaces are in PERSAVEW 
order; that is, entry 
sequenced. 


c. Trailer label 


EOF1 if end of file 
EOVI if end of volume 
m columns 1 through 4 


APLQINIT (PRPQ) 


1. APLFLAGS consists of bits 
describing conversion options. 
These bits are set by APLQPARM 
from execution parameters and 
terminal input. 


APLQINIT establishes the first 
values for most other modules. 
APLQINIT takes all of virtual 

storage with the CMS macro 
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DMSFREE. Conversion cancels if 
there is not at least 64K bytes 
avatlable. APLQINIT then returns 
to CMS, 16K bytes at the low end 
and 16K bytes at the high end of 
the area taken. This is to 
provide CMS with free space for 
implicit GETMAINS and DMSFREEs. 
The remaining storage is then 
allocated for the VS APL 
workspace and the APL/CMS CPRPQ) 
workspace. The display buffer 
comprises the PRPQ R13 stack and 
the VS APL WSMBUFF. 


2. No directory for PRP®. 


3. APLQINIT builds APL/CMS CPRPQ) 
workspaces in the PRPQ slot from 
a CMS dump tape input. On the 
tape, the workspaces are 
compacted, thus they have to be 
properly constructed in storage. 
Also, internal workspace pointers 
are relocated. If the option is 
resume, APLQINIT checks the 
fileid for a match with the 
resume point fileid and bypasses 
further processing of this 
workspace if there is no match. 
When the match is found, APLQINIT 
processes that workspace and all 
subsequent workspaces on the 
input tape. 


4. Same as numbers 4@ and 5 for CMS 
and VSPC. 


A 
CMS dump tape structure for APL/CMS 


CPRPQ) workspaces 805-byte physical 
records as shown below. 








Prefix Data 800 Bytes 
Records 
1 to nel 
02 CMS 40 






File Record 800 Bytes 






Prefix 


64 Bytes File ID 
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Record n 


«4-18 Bytes —— 


However, the data portion represents 
logical disk records as shown below. 





Work |Length|Length 
space 
Length 






23 
££ | HDR [Bytes 







<—___—_——— §? By tes ——-_____> 


1. One or more logical records 
containing workspace from ortgin 
to beginning of free space. 


2. One or more logical records 
containing end of free space to 
end of R13 stack as shown in the 
example that follows. 





* (MS Preis 
L} © Db abtewert J heeupetts el beqggal peut in Dyes 


Lot Mabtesegd bergetds ot began ae Byles 


to End [Unused] H ‘80° 


J 


IAG 0: ICS/VS LIBRARY SERVICE PROGRA 














l‘rom 
Operating System |. Initialize global communication 
area (SPG) and open system 


data sets. Register 11 points to the SPG 


System input . Read control statements. 





data set 

. Analyze control statements. 

. Open the input and output 
data sets required to process 
each control statement. 

OS or APL . Process the control statement 
DATA SET 










(AUTH, FORMAT COPY, 
IMPORT, or EXPORT). 


. When all control statements 
have been processed. close 


all data sets. Return 
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Notes for Diagram 7.0 


The APL library service program runs 
as a batch job, separate from the VS 
APL online subsystem. The library 
management commands are control 
statements for the service program. 
These commands are COPY, EXPORT, 
IMPORT, FORMAT, AUTH, and 
ENVIRONMENT. The commands are 
contained in the SYSIN data set. 


The service program executor module, 
APLKVEXC, is the first-level module. 
It controls the execution of the 
second-level subroutines: APLKVINT 
and APLKVTRM, which initialize and 
terminate each service program 
request, and APLKVCMD, which analyzes 
each control statement request. 
Another set of second-level routines 
actually process the control 
statements. Input and output are done 
by a set of third-level modules 
called by the second-level routines. 


The message processor module, 
APLKVMSG, writes output to SYSPRINT 
in response to calls from all three 
module levels. Communication among 
the service program modules is made 
using a global work area, the SPG. It 
is addressed using register il. 


The APL data sets used by the service 
program are either the APL directory 
data set, a key-sequenced VSAM data 
set, or the APL library 
Centry-sequenced VSAM data set that 
contains the library data). 


APLKVEXC 


1. Initializes the SPG and calls 
ALKVPIN to read the JCL input 
parameters and open the required 
data sets. 


@. Reads and scans the next control 
statement and moves it to the 
buffer in the SPG. Calls APLKVMSG 
to print the control statement 
(passwords are converted to 
blanks). If the control statement 
is continued, the remaining data 
is read, a card image at a time, 
and printed. Continuation marks 
are removed, and a complete 
statement is prepared in the 
buffer. CREADCOMM] 


APLKVCMD 


3. This module contains the syntax 
tables defining the valid control 
statements. When called by 
APLKVEXC, it calls APLKVSCN. 
APLKVSCN processes the control 
statement against the tables in 
APLKVCMD and returns the encoded 
control.statement in SPGPARMA. A 
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code representing the control 
statement type 1s placed in 
SPGCOMM. 


APLKVINT 


4. 


APLKVEXC passes input to this 
routine in the SPGPARMA and 
SPGOPENA fields. This routine 
checks for invalid data set names 
in a TO or FROM operand. 


This routine then completes DCBs 
with default values for 
parameters not specified by the 
user's JCL, and an end-of-data 
exit address. Initialization 
procedures, by control statement, 
follow: 


e AUTH ~- none 


e COPY - Open the data sets 
named TO and FROM operands. 
If TO and FROM aren't both 
named, open APLLIB and 
APLDIR. If the COPY statement 
is to the APL library, open 
the APL library for output. 


e FORMAT - Ensure that the APL 
directory and library data 
sets are open. 


e EXPORT ~- Open the output data 
set and ensure that the APL 
library is present. 


e IMPORT ~- Open the input data 
set, and open the APL library 
for output. 


APLKVEXC calls the second-level 
modules that follow to process 
the control statements. Note that 
IMPORT accesses an OS data set as 
input; EXPORT produces one as 
output. COPY can accept 
COPY-produced sequential data 
sets in lieu of an APL input 
library; COPY can produce an O5 
output data set. 


APLKVAUT ~- AUTH Control Statement 


If user level authorization is 
requested, reads the user profile 
from the APL library. Compares 
the password passed with the AUTH 
control statement with the user 
log-on password. The user's 
identification from the AUTH 
control statement is saved in the 
SPGUSID fiaeid. If system level 
authorization is requested, 
checks the password against that 
in APLKPASS CAPL directory update 
password). The privilege level of 
APL library access is saved in 
SPG-PRIVA. 


APLKVFMT - FORMAT Control 
Statement 


Requires complete library level 
authority over the APL library 
and an unformatted library. 
Formats the APL library data set 
into 4K blocks. Builds a free 
space profile and writes it to 
the APL directory. If USERS is 
requested on the FORMAT control 
statement, writes the user 
profiles for libraries 1, 2, and 
314153. 


APLKVCPY - COPY Control Statement 


Requires a system level authority 
over libraries being accessed 
when a range of libraries are to 
be copied. Searches the input 
library or FROM data set over a 
range of one or more user 
identifications, calling APLKVLBI 
for I/O. For each user profile 
read, either ignores (for the 
REMOVE option) or writes profile 
to output library or TO data set 
calling APLKVLBO or APLKVTPO for 
I/0. If copying to the APL 
library, calls APLKVALD to 
allocate space for the files. For 
each user written library, 
inspects directory records for 
all files owned and writes files 
matching the TYPE attribute. 


APKLVEXP - EXPORT Control 
Statement 


Calls APLKVLBI to read directory 
entry from input data set. Calls 
APLKVLBI to read each control 
interval of the member from the 
APL library and calls APLKVDSO to 
deblock and write the contents of 
the control intervals to the 
operating system data set. 


APLKVIMP - IMPORT Control 
Statement 


Checks input parameters for 
consistency. Calls APLKVLBI to 
read the library profile of the 
library being imported to. Calls 
APLKVALD to allocate space for 
the file. Creates a new directory 
entry and calls APLKVLBO to write 
the entry to the output Library. 
Calls APLKVDSI to read the input 
data set being imported and block 
its records into a control 
interval. Calls APLKVLBO to write 
each control interval to the APL 
library. 


APLKVTRM 


6. 


Checks the SPGOPEND field to 
determine whether there are open 
OS data sets. If so, issues a 
CLOSE macro instruction to close 
the data sets whose DCBs are 
identified in the SPGRDDCB and 
SPGWQDCB. 
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DIAGRAM 8.2: VS APL SESSION MANAGER EXECUTOR SCHEDULER 


Eram CICS/VS, CMS, or TSO 
executor or AP 420 


l-or subroutine call during normal 
task entry. call the appropriate 
module to: 


. Display an error message 


. Start a VS APL session 
manager session 


. Prompt tor password 


. Enda VS APL session 
nlanager session 


. Geta line ot input for the 


inlerpreter 
WSM 


EL . Write a line of output from 


the interpreter 


. Write a tine and ger a line of 
output 


. Execute a command 





Retin 
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WSM 


Notes for Diagram 8.2-. .--.. 
APLASCHD 


l. 


The purpose is to request the VS 
APL session manager to display an 
error message for an abending 
executor, an auxiliary processor, 
or for any other reason. It also 
waits for the message to be 
displayed before returning. 
[LAPLAERRM] 


Tells the VS APL session manager 
to start the session, then waits 
for the session to start before 
returning. [LAPLAINIT] 


Requests that the VS APL session 
manager prompt the user for a 
password. [CAPLAPASS] 


Shuts down the session, waits, 
then returns. [CAPLATERM] 


Tells the VS APL session manager 
to put a line of text in the WSM. 
CAPLATYI] 


Tells the VS APL session manager 
to take a line of text from the 
WSM. [CAPLATYOJ 


Tells the VS APL session manager 
to write a line of output from 
the WSM, get a line of input from 
the terminal, and put it in the 
WSM. CAPLATYOTI] 


A text string is passed as an 
argument, and the entry point 
tells the VS APL manager session 
manager to process this string as 
a VS APL session manager command. 
CAPLAXCMD] 
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From CICS/VS, CMS 
or TSO initialization 


Process VS APL Session 
Manager request. - 


. Take the request off the 
DSM request chain. 


2. Cajl the appropriate module to: 
A. prompt for input. 

. queue input lines. 

. execute a command. 

. redefine the display screen. 


. redefine the line column or 


user specified field. 


. refresh the display input area. 


. add a line to the display 


input area. 


. display a message. 


. update the session log. 





Return 
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Notes for Diagram 8.2.1 
APLACRCP 


1. 


Takes a single request off the 
DSM chain and calls 
APLACPRO to process it. 


APLACPRO 


2. 


Determines the type of request 
and calls one of the modules 
listed below to process it. 


APLACPRM 
a. Prompts user for input. 
APLACQUE 


b. Queues and dequeues a series 
of commands or input 
lines. 


APLACXCM 


c. Verifies the syntax of a 
command passed by APLACPRO, 
and, if valid, tries to 
execute it. If the command 
1s tnvalid, 1t returns a 
message. 


APLACNDP 
d. Defines the position and size 


of the VS APL session manager 
display in the user's screen. 


APLACRSA 


e. Defines or redefines the line 
column and user-specifiable 
area when the display size or 
position has changed, or 
there has been an error 
message for some session 
manager error. 


APLACRDA 


f. Redefines condition of 
display input area after the 
user has changed the display 
column or line setting, or 
the setting of the display 
command. 


APLACOSL 


g. Either is called repeatedly 
by APLACRDA to define each 
line of the display area, or 
15S called by APLACPRO to add 
a single line to the display 
area. 


APLADMSG 


h. Displays an informational or 
error message. 


APLACSF 


i. Maintains the session log. 
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DIAGRAM 8.3.1: COMMON ILIA PR SSOR SERVICES UNDER CMS AND TSO 





lrrom APIS 20, 


APL}, 
APL126 
ASO 
Po |, Validate invocation 
parameter list und get 
storage. if necessary. 
| Workspace | 
ANC 
2. Initialize anchor block. (——— —— 
3. Establish abend exit 
ioutine. 
ANC (CMS, TSO) 
4. Initialize PCV and sign 
On to shared storave 


5. Get storage tor AP control 


| oe area and initialize that arca. 
| 
| 


G. Issue a wail to the shared 
storage manager and interpret 
; the event that satisfied the 
i wall, 


munager in CMS or TSO. 














a dan POW. LCR. determing whether 
this is a sien-ett or un otter and 
luke the Necessans geton. 


h, Por SOV IROCB. esumine the 
post cede und take the mecessurt 
action. Return to Caller’s 


Offer Exit Routine 


APC 








APC 7. Process AUTHCHECK,. COPY, 
GET. or POT, 
pe Return to Caller 
If the request is ABORT, 
determine which option to 
use and process it. Then 
call the retract exit routine 
in the auxiliary processor. Call Caller’s Retract 
Exit Routine 
&. Process ABLND. 
Cull AP’s Abend 
Exit Routine 


APC 


oo ——E 
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Notes for Diagram 8.3.1 
APLXASD(CMS}), APLXAYD(TSO) 


1. 


In CMS, APLXASD scans the 
invocation parameter list until 
the end-of-list marker 1s 
reached. The DMSFREE macro is 
invoked to obtain storage. The 
parameter is copied to the new 
storage, and a pointer to the 
storage is returned to APLXAC. 
The back size of storage obtained 
is also passed to APLXAC. 
CAPLXAINP]) 


APLXAMSG routes messages from 
APLXAC to the terminal. 


In TSO, APLXAYD picks up the 
parameter count from the 
parameter list, invokes macro 
GETMAIN, and moves these 
parameters to the new storage. A 
pointer to the storage and the 
back size of storage obtained are 
passed to APLXAC. CAPLXAINP] 


APLXAMSG routes messages from 
APLXAC to the terminal. 


APLXAC(CHS/TSO) 


2. 


Every auxiliary processor has an 
anchor block Known as ANC. This 
contains information passed by 
the auxiliary processor at 
sign-on, as well as additional! 
data needed by APLXAC. 


APLXAC(CHS/TSO) 


3. 


Calls APLXBEND to establish an 
abend exit for these modules. 


APLXAC(CHS/TSO) 


4. 


PCV 1s a process control vector. 
APLXAC sets fields, as requested, 
in the auxiliary processor 
sign-on request block for CMS and 
TSO. It then issues a sign-on to 
the shared storage manager (59M). 
If the sign-on fails. the 
auxiliary processor 15 
terminated. 


APLXAC(CHS/TSO} 


5. 


GETMAIN is invoked for the 
auxiliary processor control area. 
This area will contain the ECB 
list, the SCV ECBs, and the SCVs. 
The SCV is the shared control 
vector; there is one SCV per 
shared variable. 


The addresses of ECBs are now put 
in the address list. In each SCV 
15 placed the address of the 
corresponding ECB. In each ECB is 
placed the index to the SCV list 
of the corresponding ECB. 


APLXAC(CMS/TSO) 


6. 


Passes the acdress of the EC8 
list. When tne wait is satisfied, 
one of two avents can taxe place: 


‘a. PCV EC8 has been posted. 


Determine if sign-off request 
or offer is received. If 
sign-off request, free the 
storace, retract any shared 
variables (calling the 
auxiliary processor retract 
exit fer each set of 
variables), and issue a 
sign-off to the shared 
storage manager. 


If offer is received, and it 
was tho primary variable, 
counter-offer that variable, 
and initiate on offer for 
each menber o7 the shared 
variable set. Get storage for 
an ACS and sat ihe 
aporonriate fields. Transfer 
contre: to the auxiliary 
processor's offer exit 
routine. 


b. If SCV ECB has been posted, 
one of tho events can taka 
place: 


The user has retracted a 
variable. Jf tnis is a 
primary variable, retract the 
set of variables, and call 
the auxiliary processor 
retract exit routina. If it 
is not the primary variable, 
ignore it. 


Or if the interlock is 
broken, shared storage 1s nov: 
available, or the user has 
specified a value, taxe 
appropriate action; 
Otherwise, ignore and 
continue to wait. 


APLXAC(CHS/TSO) 


7. 


There are five available service 
requests: 


AUTHCHECK: Set zero return and 
reason codes. 


COPY: Issue a CCPY request for 
the variable to the shared 
storage manacer. If there is a 
temporary reject cendition. enter 
a wait state and try the COPY 
again if the AP has so requested. 
If the translate option is set, 
translate character data. 
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ic 
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GET: Issue a reference for tha 
variable to the shared storage 
manager, and proceed as for COPY. 


PUT: If the translate option is 
set, translate character data. 
Issue a specification to the 
shared storage manager. If there 
is a temporary reject condition, 
enter a wait state and try the 
reference again if the AP has so 
requested. 


ABORT: There are two 
options—abort and abort all. For 
abort, retract the set of 
variables, pass control to the 
invoking auxiliary processor's 
retract exit routine, and free 
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the storage for this set of 
variables. 


For abort all, pass control to 
the invoking auxiliary 
processor's retract exit routine, 
once for each set of variables, 
to retract all sets; then issue a 
sign-off to the shared storage 
manager (CMS or T50). 


If an abend occurs in the 
auxiliary processor, restore the 
processor’s registers and call 
the processor's abend exit, if 
there is one. Then retract the 
variables in the set and enter a 
wait state. 


GR 8.3.2: COMMON AUX ARY PROCESSOR SERVICES UNDER CICS/VS 


From APL120, APL126 


. Validate offered variables. 





. Get storage for AP work area, 


shared variable work area, 
| | and APC, and initialize SCVs, 


ANK, and APC. 


3. Establish abend exit. 


4. Counter offer primary 
variable and initiate offer for a. 
a iabl Return to Caller’s 
remaining Variables. Offer Exit Routine 


APC 
5. Process AUTHCHECK, 


COPY, GET, or PUT. Return to Caller 
APC 


ee ——e 
lf request is ABORT, 


determine which option to 
use and process it. Then call 
the retract exit routine in the 
auxiliary processor. 





Call AP’s Retract 
Exit Routine 


6. Process abend. Then call the 
abend exit routine in the Call AP's Abend 
auxiliary processor. Exit Routine 





APC 


SF —— 
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Notes for Diagram 8.3.2 
APLXAK(CICS/VS } 
1. 


Validate that the shared variable 
offered is a valid primary 
variable as defined by the AP in 
the AP sign~on block (ASQ). If 
not, do not counter-offer, but 
return. 


APLXAK(CICS/VS } 
2. 


Every auxiliary processor has an 
anchor block known as an ANC. 
This contains the address of the 
auxiliary processor sign-on 
block, as well as additional data 
needed by APLXAK. Every set of 
shared variables has an 
associated APC employed as a 
communications block between the 
AP and common auxiliary processor 
services. 


APLXAK(CICS/VS ) 

3. Calls APLXBEND to establish an 
abend exit. 

APLXAK{(CICS/VS } 

4. Counter offer, through the shared 


storage manager, the primary 
variable, and initiate an offer 
for each member of the shared 
variable set. 


Transfer control to the auxiliary 
processor's offer exit routine. 


APLXAK(CICS/VS } 
5. 


Lj 
1 


ic 
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There are five available service 
requests: 


AUTHCHECK: Issue an AUTHCHECK to 
the shared storage manager. 
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COPY: Issue a COPY request for 
the variable to the shared 
storage manager. If there is a 
temporary reject condition, enter 
a wait state and try the COPY 
again if the AP has so requested. 
If the translate option is set, 
translate character data. 


GET: Issue a reference for the 
variable to the shared storage 
manager, and proceed as for COPY. 


PUT: If the translate option is 
set, translate character data. 
Issue a specification to the 
shared storage manager. If there 
1S a temporary reject condition, 
enter a wait state and try the 
PUT again if the AP has so 
requested. 


ABORT: There are two options: 
abort and abort all. For abort, 
retract the set of variables, 
pass control to the invoking 
auxiliary processor's retract 
exit routine, and free the 
storage for this set of 
variables. 


For abort all, pass control to 
the invoking auxiliary 
processor's retract exit routine, 
once for each set of variables, 
to retract all sets. 


If an abend occurs in the 
auxiliary processor, restore the 
processor's registers and call 
the processor's abend exit, if 
there is one. Then retract the 
variables in the set and enter a 
wait state. 


~ 


ITAGRAM 8.4.1:° VS APL SESSION MANAGER AUXILIARY PROCESSO 
Is9 


from APLKADSP 
APLYUSVI 
APLSCSV] 







WORK AREA 


| $12 Byes 


— 


. Sign on to shared storage 

manager through common 
auxiliary processor 
services 

















. As long as the VS APL 
session manager is active. 
receive the request through 
common auxiliary processor 
services, and pass it to 
VS APL session manager 
executor Scheduler for 
execution. 


3. Do cleanup for this variable 


4. Enter abend exit routine for 
error recovery 


Return 


CIcs/vVS, CMS, AND 


ASO 


APC 


CPB 
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Notes for Diagram 8.4.1 
APL120 
1. 


L 
1 


ic 
14 


Invokes common auxiliary 
Processor services (CAPS) to 
issue a Sign-on to shared storage 
manager. Control is returned to 
one of three entry points: 
OFF120, RET120, ABE120. CAPL120] 


A variable has been successfully 
offered and counter-offered. 
Local initialization Cvia main 
storage services) is done, and 
the CTL variable is referenced 
through common auxiliary 
processor services. If the 
partner specified CTL with a VS 
APL session manager request, the 
request is passed to the session 
manager for execution, using the 
CPB request block. 
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The CTL variable is specified 
with a 2-element return code. Any 
text produced as a result of the 
execution of the request is 
returned as a character matrix in 
the DAT variable. [COFF121] 


Control returns here from common 
auxiliary processor services if 
the partner has retracted the 
variable. Necessary cleanup is 
performed for this variable 
instance. [RET120] 


This is the entry point for the 
occurrence of dn sabend. Dump 
services is called to dump the 
local work ereas and registers. 
All variables shared with this 
auxiliary processor are retracted 
and control returns to common 
auxiliary processor services. 
CABE120] 


APC 


4.2: GDDM AUXILIARY PROCESSOR FO IcS/VS, CM N s 


Irom APLYUSVI 
APLSCSVI 
APLKADSP 





. [ssue a sign on to common auxiliary ASO 


processor services. aa ie 


. Establish addressability to storage 


and code. 


a) If first offer, initialize the 
AP communication area. 


b) Issue a GET to common auxiliary 
processor services for the control APC 


— Rexeceaeneenn> Oe 


. If first reference, call APLXGDDM 


to initialize a path for the set of GDM 


shared variables. aa: |e 


. Interpret the request and perform 


appropriate action. 


. Issue a PUT to common auxiliary 


processor services for the DAT 
variable to return all character APC 


data to the user. eee, 


. Issue a PUT to common auxiliary 


processor services to return the 
return code vector and any 
numeric data in the control APC 


variable. Se eC 


. Repeat steps 2b-6 until the set 


of variables is retracted. 


. Ifa retract or signoff request has 
occurred, free storage and terminate 
the path to GDDX. 
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Notes for Diagram 8.4.2 
APL126 (CICS/VS, CHS, and TSO) 


1. 


Creates a sign-on block and calls 
APLXAC (CMS/TSO) or APLXAK 
(CICS/VS) to establish the 
environment, and sign-on to the 
shared storage manager (SSM). 


APL126 [OFF12$] 


2. 


Lic 
116 


This entry point is entered when 
a control variable has been 
offered by a user. The address of 
the auxiliary processor work area 
is in the APC, and is used to 
establish the addressability for 
APL126. 


a. The GDM request block is for 
requesting services to GDDM. 
This block is built by 
analyzing an entry in the 
GDDM call table. The 
auxiliary processor 
communication area is 
initialized to contain the 
number of active paths to 
GNNX. 


b. Issues a GET to common 
auxiliary processor services 
(CAPS) to wait for the first 
user request. 


There is a single path for each 
pair of shared variables. This 
call to APLXGDDX establishes a 
path, and returns a unique path 
ID to APL126. 


There are three categories of 
requests: 
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wd 


a. AP Control Request: Request 
to the auxiliary processor to 
either establish an 
environment, or perform 
functions exclusive of GDDM. 


b. Zero Request: No-ops result 
in no action. 


c. Normal GDDM Request: Passed 
to GDDM, in some cases with 
special processing first. 


Any character returned by GDDM is 
put into vector form in the DAT 
variable, and translated, as 
determined by the user. 


The CTL variable returned is in 
vector form, with the first 
element representing the highest 
severity of any error incurred in 
the processing string. 


This 1s followed by a 
four-element return code and any 
numeric data for each request in 
the string. 


Continue to perform tasks 2b 
through 6 until the user retracts 
or signs off, or an abnormal 
termination occurs. 


APL126 [RET126] 


8. 


Control is passed to this label 
when a shared variable set is 
retracted by common auxiliary 
processor services (CAPS). Frees 
storage associated with this 
shared variable pair, and calls 
APLXGDDX to terminate this path, 
and returns to common auxiliary 
processor services (CAPS). 


AGRAM 6.3: APL DA 


From APLYUSVI 
APLSCSVI 


WORK AREA 


512Bytes [~~ 





LE AUXILIARY OCESSOR R CMS/ ae 


ASO 


_ Sign on to shared storage ce — 


manager through common 
auxiliary processor services. 


. Initialize control blocks. issue [7 s— 


GET to common auxiliary 

processor services and call 

appropriate subroutine to 

process request, and pass 

control to file services to PAB 


process file. >? e—SY 


. Close the file and release 


buffers. 


. In case of abend, take dump 
and retract shared variables. 
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Notes for Diagram 8.4.3 
APL121 


1. 
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Invokes common auxiliary 
processor services (CAPS) to 
issue a sign-on to the shared 
storage manager. Control will 
return to one of three entry 
points: OFF121X, RET121X, 
ABE121X. [APL121X] 


Control comes here from common 
auxiliary processor services when 
a shared variable has been 
successfully offered and 
counter-offered. Local 
initialization is done, and the 
CTL variable is referenced 
through common auxiliary 
processor services. If the 


‘partner specified CTL with a 


request, the appropriate action 
is executed. The FAB control 
block is used in communicating 
with file services. [LOFF121X] 


For the sequential read request, 
the file is opened, each record 
1s read sequentially and 
specified in the CTL variable. 
CSRFILE] 


For the sequential write request, 
the file is opened, the CTL 
variable is continuously 
referenced and written into the 
file. [CSWFILE] 


For the create request, a new 
file is created if it doesn't 
already exist. [CFILE] 


For a drop request, the specified 
file is deleted. [DFILE] 


VS APL Program Logic 


For the file size change request, 


the size is changed according to 
the specified value. [FSFILE] 


For the direct update request, 
the file is opened for direct 
processing, the DAT variable is 
referenced, and the corresponding 
record is updated. [DIRUPRDJ 


For the direct read request, the 
file is opened for direct 
processing, the record is read, 
and specified in the DAT 
variable. [DIRUPRD] 


For the change share status 
request, an error is returned in 
CMS/TSO. [SHFILE]J 


For the password change request, 
an error is returned in CMS5/TSO. 
[PFILE] 


The control variable is specified 
with a l-element return code for 
all operations. 


If the partner retracted the 
variable, control comes from 
common auxiliary processor 
services to this entry point 
wrere the file is closed and 
buffers are released. [RET121X] 


This entry point is invoked by 
common auxiliary processor 
services if an abend occurs. A 
dump is then taken and all shared 
variable instances of this 
auxiliary processor are 
retracted. [ABE121X] 
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Entry points are listed in alphabetic 
order in this section. 


FOR DOS/VS: The conversion modules 
for DOS/VS differ from those for 
OS/VS. The modules are functionally 
the same, but the DQS/VS modules are 
designed to interface with DOS/VS and 
the OS/VS modules with OS/VS. For 
CMS, the OS/VS modules begin with the 
characters APLO; the DOS/VS modules 
begin with the characters APLD. For 
CICS/VS, the OS/VS modules begin with 
the characters APLKV; the DOS/VS 
modules begin with the characters 
APLKD. To avoid unnecessary 
repetition in this publication, only 
the OS/VS names are used in this 
publication wherever possible. 


APCREATE 
Module: APLPAPCD 
Called By: APLPAPPR 


Description: Executes service request 
to internal auxiliary processors 
spiel and AP122 to create a VSPC 
file. 


Exit: Returns; ERSAVEAR CError), 
ERENDEX (Error) 


APDFN 
Module? APLPAPCD 
Called By: APCREATE, APDROP, 


APFILSIZ, APSHARE, APPASSWD, APOPEN, 
APVIO 


Description: Converts file 
identification in service requests to 
internal auxiliary processors to VSPC 
Standard file name. 


Exit: Returns; ERSAVEAR (Error) 


APDROP 

Module: APLPAPCD 

Called By: APLPAPPR 

Description: Executes service request 
to internal auxiliary processors 
API2Z1 and AP122 to drop a VSPC file. 


Calis: APDFN, ERMSGRIN 


Exit: Returns; ERSAVEAR (CError), 
ERENDEX CError) 


APFILSIZ 

Module: APLPAPCD 
Called By: APLPAPPR 
Description: Executes service request. 
to internal auxiliary processors 
AP121 and AP122 to change the size of 
a VSPC file. 

Calis: APDFN, ERMSGRTN 


Exit: Returns; ERSAVEAR (CError), 
ERENDEX (Error) 


APIO 

Module: APLPAPCD 

Called By: APLPAPPR 

Description: Validates request to 
internal auxiliary processors AP1i21 
and AP122 to read or update a VSPC 
file directly. 


Exit: Returns; ERSAVEAR (Error) 


APL 
Module: APL 


Called By: CMS 
Description: Locates VS APL under 
Cis. 


Exit: To APL DCSS or module VSAPL 


APL 

Module: APLYUINI 

Called By: Operating system (initial 
entry) 


Description: Initializes VS APL under 
TSO. 


Calls: APLAINIT, APLXDUOP, APLXGYON, 


APLYUFXI, APLYULNE, APLYUTIO, 
APLYUUSR, SCCONT, SCSUPINI 
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Exit: Returns 


APLACCBE 
Module: APLACCBE 


Called By: APLACPRM, APLAC@QRY, 
APLACRDA, APLACRSA 


Description: Converts a binary number 
to EBCDIC. 


Exit: Returns 


APLACDSL 
Module: APLACDSL 
Called By: APLACPRO, APLACRDA 


Description: Displays a single line 
on the screen. 


Calls: Macro APLXG - 


Exit: Returns 


APLACHLP 
Module: APLACHLP 


Called By: APLACXCM 


Description: Executes the APL session 
manager HELP command. 


Calls: APLACMSG. 
Exit: Returns 


APLACMDF 


Module: APLACNDP 


Called By: APLACPRM, APLACPRO, and 
APLADNSG 


Description: Part of the session 
manager new display position routine. 
It updates the contents of the 
command field, and saves a copy of 
the contents in DSMCMTAT. 


Calls: APLACREA, APLACRDA, APLADMSG. 
Macro APLXG 


Exit: Returns 


APLACMDX 
Module: APLACMDX 
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Called By: APLACXCM 
Description: Contains a default exit 


that approves all commands passed to 
the APL session manager. 


Calls: Macro APLPATCH 
Exit: Returns 


APLACMER 


Module: APLACQRY 


Called By: APLACPRO, APLACOPY, and 
APLACXCM 


Description: Part of the session 


manager command query module. For a 
given error number, it inserts the 
message, return code, and return 
status into the CPB, and, if 
appropriate displays the error 
message and command on the session 
manager screen. 


Calls: APLADMSG, APLADSON 
Exit: Returns 


APLACNDP 
Module: APLACNDP 


Called By: APLACRPO, APLACXCM, 
APLADNMSG 


Description: Part of the session 


manager new display routine. Defines 
the APL session manager display at a 
new position on the screen. 


Calls: APLXG 


Exit: Returns 


APLACOPL 

Module: APLACOPY 

Called By: APLACPRO 

Description: Copies a single line to 
the copy Gestination when continuous 
copy of the session log 1s on. Called 
every time, a new line is added to 
the session log while copy is on. 


Calis: APLACMER, APLADMSG. Macro 
APLXG 


APLACOPY 
Modula: APLACOPY 


Called By: APLACXCM 


Description: Processes the "COPY' 
session manager command. 


Calls: APLACMER, APLACMSG, APLACSF, 
APLADMSG, APLAMODE, APLAUCAE, 
APLAUNCO. Macro APLXG 


APLACPRM 
Module: APLACPRM 


Called By: APLACPRO when the VS APL 
session manager requires to get input 
from the terminal. 


Description: This module performs a 
read from the terminal and enters the 
running mode. It then restores the 
screen, if necessary, and, based on 
user action, stacks input for APL and 
the VS APL session manager command 
processor. 


Calls: APLACCBE, APLACMSG, APLACQUE, 
APLACSF, APLXGDDM, APLACMDF, 
APLACRSA, APLADSON. Macro APLXG 


Exit: Returns 


APLACPRO 
Module: APLACPRO 
Called By: APLACRCP 


Description: Processes a request from 
the TSO, CMS, or CICS/VS executor or 
from any auxiliary processor, calls 
APLACXCM when a VS APL session 
manager command is to be executed, 
and calls APLACPRM whenever input is 
needed from the terminal. 


Calls: APLACDSL, APLADTTM, APLACMSG, 
APLACNDP, APLACPRM, APLACOPL, 
APLADSON, APLAMODE, APLAUALT, 
APLAUATN, APLACQUE, APLACRDA, 
APLACRSA, APLACSF, APLACXCM, 
APLADMSG, APLAUSRX. Macro APLXG 


Exit: Returns 


APLACQRY 

Module: APLACQRY 

Called By: APLACXCM 

Description: Part of session manager 
command query module. Formats the 
message returned to a query command. 
Calls: APLACCBE, APLACMSG, APLACQRY, 


APLAUPRO, APLXGDDX, APLADMSG, 
APLADSON. Macro APLXG 





Exit: Returns 


APLACQUE 
Module: APLACQUE 


Called By: APLACPRO, APLACPRM, 
APLACXCH 


Description: Maintains queves of 
character strings for the APL session 
manager, and performs the create, 
add, remove, purge, and delete 
functions on the queue. 


Exit: Returns 


APLACRCP 
Module: APLACRCP 
Called By: VS APL dispatcher 


Description: This is the main entry 
point in the VS APL session manager 
request chain processor which runs as 
the top routine in a process separate 
from the TS0, CMS, or CICS/VS 
executor and frm the AP120. The 
processor functions by removing 
requests, one at a time, from the VS 
APL session manager request chain, 
and passing them to APLACPRO. It 
posts the requestor when each request 
is completed, and then waits until 
the chain is empty for a new request 
to be generated. It also contains an 
abend exit for the task. 


alls: Main storage services. Macro 
PLACPRO 


A 
Exit: Returns 





APLACRDA 
Module: APLACRDA 


Called By: APLACNDP, APLACPRO, 
APLACXCM, APLALINE 


Description: Refreshes the APL data 
area on the screen. 


Calls: APLACCBE, APLACDSL, APLACMSG, 
APLACSF. Macro APLXG 





Exit: Returns 


APLACRSA 
Module: APLACRSA 
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Called By: APLACNDP, APLACPRM 
Description: Defines the line, 
status, and USA fields on the APL 
session manager screen. 


Calls: APLACCBE, APLACMSG. Macro 
APLXG 


Exit: Returns 


APLACSF 
Module: APLACSF 


Called By: APLACPRO, APLACPRM, 
APLACRDA, APLACXCM 


Description: Maintains the APL 


session manager's session log. 
Calls: Files and maintains via VCT. 
Exit: Returns. Macros APLPATCH, 


APLSFID, APLXDMP, APLXEND, APLXFAB, 
APLXMAI, 


APLACXCH 

Module: APLACXCM 

Called By: APLACPRO 

Description: Executes APL session 


manager commands. 


Calls: APLACHLP, APLACMDX, APLACMSG, 
APLACNDP, APLACQRY, APLACRDA, 
APLACSF, APLAUPRO, APLACMER, 
APLACOPY, APLACQUE, APLADSMG, 
APLADSON, APLALINE, APLAMODE, 
APLAPAGE. Macro APLXG 


Exit: Returns 


APLAD 

Module: APLAD 

Called By: APLYUSVI 

Description: Signs on to the shared 
storage manager and initiates a 
session manager task. 


Calis: APLACRCP 


Exit: The subtask terminates when a 
sign-off is requested. 


APLADMSG 
Module: APLADMSG 
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Called By: APLACPRO, APLACNDP, 
APLAC@RM, APLACXCM 


Description: Displays an APL session 
manager error or informational 
message. 


Calls: APLACNDP, APLACMDF, APLACPRM. 
Macro APLXG 


Exit: Returns 


APLADSON 
Module: APLACRDA 


Called By: APLACPRO, APLACOPY, and 
APLACXCM 


Description: Part of the session 
manager module to refresh the 
display/input area. It turns the 
display on, and moves the data area 
to the latest (new) line as part of 
the process. 


Calls: APLACDSL, APLACSF. Macro 
APLXG 


Exit: Returns 


APLADTTM 
Module: APLADTTM 


Called By: APLACPRO 


Description: Formats an elapsed time 
in APL standard format. 


Exit: Returns 


APLAERRM 
Module: APLASCHD 


Called By: TSO, CMS, or CICS/VS 
executor or by AP120. 


Description: Requests VS APL session 
manager processing subcomponent to 
display an error message. 


Exit: Returns 


APLAESTK 
Module: APLAESTK 


Called By: APLKIFIX, APLSCFXI, 
APLYUFXI 


Description: Sets up the executor 
stack for the APL session manager and 
makes whatever calls are necessary to 








stacked protocol entry points. 


Calls: APLATYI, APLATYO, APLATYOI. 
Exit: Returns 


APLAINIT 


Module: APLASCHD 


Called By: TSO, CMS, or CICS/VS 
executor 


Description: Requests VS APL session 


manager processing subcomponent to 
perform initialization processing. 


Exit: Returns 


APLALINE 
Module: APLALINE 


Called By: APLACXCM 


Nescription: Part of the session 
manager line and page commands 


module. It executes a line command. 
Calls: APLACMER, APLACRDA, APLACSF 


Exit: Returns 


APLANODE 
Module: APLACNDP 


Called By: APLACOPY, APLACPRO, 
APLACXCM 


Description: Part of the session 


manager new display position routine. 


It moves the cursor to the mode 
field, updates the mode, and forces 
the display of updated fields. 
Calls: Macro APLXG 


Exit: Returns 


APLAPAGE 


Module: APLALINE 

Called By: APLACXCM 

Description: Part of the session 
manager Tene and page commands. It 
executes a page command. 


Calls: APLACMER, APLACRDA, APLACSF 
Exit: Returns 


APLAPASS 
Module: APLASCHD 


Called By: TSO, CMS, or CICS/VS 
executor or by AP120. 


Description: Requests VS APL session 
manager processing subcomponent to 
prompt for a password. 


Exjt: Returns 





APLATERM 

Module: APLASCHD 

Called By: TSO, CMS, or CICS/VS 
executor 


Description: Requests VS APL session 
manager processing subcomponent to 
terminate session. 


Exit: Returns 


APLATYI 
Module: APLASCHD 


Called By: 1TS0, CMS, or CICS/VS 
executor 


Description: Requests VS APL session 


manager processing subcomponent to 
perform a TYI. 


Exit: Returns 


APLATYO 


Module: APLASCHD 
Called By: TSO, CMS, or CICS/VS 


exacutor 


Description Requests VS APL session 
manager processing subcomponent to 
perform a TYO. 


Exit: Returns 


AF .ATYOL 
Module: APLASCHD 


Called By: TSO, CMS, or CICS/VS 
executor 


Description: Requests VS APL session 
manager processing subcomponent to 
perform a TYQ!I 
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Exit: Returns 


APLAUALT 
Module: APLASA 
Called By: APLACPRO 


Description: Returns a line of 
alternate input if it exists, or 
purges the alternate input stack. 


Calls: NUCON CCMS nucleus). Macros 
APLXPROC, APLDEFN, APLPATCH, NUCON, 
RDTERM, APLXSTK 


Exit: Returns 


APLAUALT 
Module: APLAYA 


Called By? APLACPRO. 


Description: Returns a line of 
alternate input if it exists, or 
purges the alternate input stack. 


Calls: Macros APLXPROC, APLDEFN, 
APLPATCH 


Exit: Returns 


APLAUALT 
Module: APLAK 


Called By: APLACPRO (common session 
manager module) 


Description: Part of the session 
manager CICS/VS-dependent, SP-entry, 
routines. It is called by the 
session manager to determine if the 
subsystem has any alternate input 
available. Alternate input may be 
generated by the input invocation 
option or by AP139. 


Exit: Returns 


APLAUATN . 
Module: APLAKP (CICS/VS) 

Called By: APLXGKT 

Description: Main and only entry 


point to the session manager 
system-dependent, non-stack-processor 
entry, CICS/VS routines. It handles 
asynchronous terminal activity by 
analyzing the asynchronous input to 
determine if it is a "real™ attention 
or an asynchronous input to the 
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Session manager. 


Exit: Returns 


APLAUATN 
Module: APLASP (CMS) 


Called By: APLXGKT 


Description: Main and only entry 
point to the session manager 
system-dependent, non-stack-processor 
entry, CICS/VS routines. It handles 
asynchronous terminal activity by 
analyzing the asynchronous input to 
determine if it is a "real™ attention 
or an asynchronous input to the 
session manager. 


Exit: Returns 


APLAUATN 
Module: APLAYP (TSO) 


Called By: APLXGKT 


Description: Main and only entry 
point to the session manager 
system-dependent, non-stack-processor 
entry, CICS/VS routines. It handles 
asynchronous terminal activity by 
analyzing the asynchronous input to 
determine if it is a “real” attention 
or an asynchronous input to the 
session manager. 


Exit: Returns 


APLAUCAE 
Module: APLAK (CICS/VS) 


Called By: APLACOPY (session manager 
command module) 


Description: Part of the session 
manager CICS/VS-dependent, stack 
processor-entry, routines. It is 
called by the session manager to 
determine if using a copy ID wouid 
destroy data in any copy files which 
had previously been created within 
the same ID. 


Exit: Returns 


APLAUCAE 
Module: APLAS (CMS) 


Called By: APLACOPY (session manager 
command module) 


Description: Part of the session 
manager CICS/VS-dependent, stack 
‘processor-entry, routines. It is 
called by the session manager to 
determine if using a copy ID would 
destroy data in any copy files which 
had previously been created within 
the same ID. 


Exit: Returns 


APLAUCAE 
Module: APLAY (TSO) 


Called By: APLACOPY (Csession manager 
command module) 


Description: Part of the session 
manager CICS/VS-dependent, stack 
processor-entry, routines. It is 
called by the session manager to 
determine if using a copy ID would 
destroy data in any copy files which 
had previously been created within 
the same ID. 


Exit: Returns 


APLAUNCO 
Modyle: APLAK (CICS/VS) 


Called By: APLACOPY 


Description: Part of the session 

manager CICS/VS-dependent, SP-entry, 

routines. It is called by the session 

manger to determine if the subsystem 

Supports opening the same ID multiple 
imes. 


Exit: Returns 


APLAUNCO 

Module: APLAS (CMS) 

Called By: APLACOPY 

Description: Part of the session 

manager CICS/VS-dependent, SP-entry, 

routines. It is called by the session 

manger to determine if the subsystem 

Supports opening the same ‘ID multiple 
imes. 


Exit: Returns 


APLAUNCO 
Module: APLAY (TSO) 
Called By: APLACOPY 


Description: Part of the session 
manager CICS/VS-dependent, SP-entry, 


routines. It is called by the session 
manger to determine if the subsystem 
supports opening the same ID multiple 
times. 


Exit: Returns 


APLAUPRO 
Module: APLAS 
Called By: APLACXCM, APLACQRM 


Description: Qpens a file and writes 
or reads records for an APL session 
manager profile (CMS only). 


Caljs: APLSCOPT. Macros FSOPEN, 
FSCLOSE, FSREAD, FSWRITE, FSSTATE 


xit: Returns 


APLAUPRO 


Module: APLAY 
Called By: APLACXCM 


Description: Opens a file and writes 
or reads records for an APL session 
manager profile (TSO only). 


Calis: APLYUUSR, APLYDAIR. Macros: 
OPEN, PUT, CLOSE, GET 


Exit: Returns 
APLAUPRO 
Module: APLAK (CICS/VS) 


Called By: APLACQRY (common session 
manager module), APLACXCM (common 
session manager module which calls 
APLACQRY) 


Description: Part of the session 
manager CICS/VS-dependent stack 
processor-entry, routines. [t 
provides. session manager support 
Copen a file, read records from a 
file, close a file). These actions 
are passed via the PRB (profile 
request) control block. 


Calls: APLXFKFL 
Exit: Returns 





APLAUSRX 
Module: APLAUSRX 
Called By: APLACPRO 
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Description: Contains a user 
authorization exit to allow optional 
rejection of the use of the session 
manager for some users.: 


Exit: Returns 


APLAXCMD 
Module: APLASCHD 


Called By: AP120 


Description: Requests the VS APL 
session manager to process a text 
string as a command. 


Exit: Returns 


APLFXIIM 
Module: APLKIFIX 
Called By: APLFXIIM 


Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Serves as an entry point 
from the tnterpreter to the executor 
to handle service requests. 


Calls: Entry points KRSTEX, KCQZ, 
APLKFDPY, KCATOFF, KCTIME, KCQAI, 
KCDELAY, KCTABS, KCWIDTH, KCMBL, 
KCTRAN, KCOPI, KCOPO, KCOPZ, KCDUMP, 
KFOFF, KCSYSER, KCQUOTA, KLOAD, 
KCOPA, KSAVE, KDROP, KLIB, KCLEAR, 
KWSID, KPASS, APLKISVI. Macros 
APLKHIST, DFHKC, APLKWAIT, DFHTR 


Exit: KTOINTER, KADSP8. 





APLFXIIM 
Module: APLPFXIM 
Called By: Many interpreter and 


translator routines 


Description: Sole entry point from 

interpreter to VSPC executor; saves 
interpreter's environment and calls 
routine to handle service request. 

Calis: PCC€...): routines. 


Exit: APLIINIT 


APLFXIIM 
Module: APLSCFXI 


Called By: Many interpreter and 
translator routines 
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j ion: Sole entry point from 
ree opreter to CMS executor; saves 
interpreter’s environment and calls 
routine to handle service request. 


Calls: SCC...): routines 
Exjt: APLIINIT 


APLFXIIM 


Module: APLYUFXI 


Called By: VS APL tnterpreter, shared 
storage manager (SSM) 


Deseription: Executes a service 
request for the VS APL interpreter or 
shared storage manager (SSM). Its 
main tasks are 1) preserve the 
caller's environment, 2) determine 
the type of request by table lookup, 
3} call supervisor routine that 
handles service request, and 4) 
always return control to APLIINIT in 
interpreter (TSO). 


Calls: Service Request Execution 
Routine 


Exit: Returns to APLIINIT in module 
APLITINI of interpreter 


APLFXIIM 
Module: APLYUIIM 


Called By: Many interpreter and 
translator routines. 


Description: This 1s the TSO/VSPC 
executor call switch. It intercepts 
all calls from the VS APL interpreter 
and routes control to etther the TSO 
or VSPC executor. This module is used 
only when VS APL/TSO and VS APL/VSPC 
have been link-editted into a single 
load module. 


Catls: APLVSPC, APLTSO 


Exit: Control passed to the 
appropriate executor 


APLFXIIM 
Module: APLFXIIM 
Called By: Many interpreter and 


translator routines. 


rj ion: In a CICS/VS 
environment, APLFXIIM intercepts 
executor calls from the interpreter, 
and passes them to the CICS/VS which 
is pointed to by PTHPARMIL. 


Exit: Returns 


APLIINIT 


Module: APLITINI 
Called By: APLPCENT, APLFXIIM 


Description: Sole entry point to 
interpreter from executor; receives 
control after executor has handled 
service request; restores 
interpreter's environment including 
changes resulting from workspace 
relocation. 


Calls: APLFXIIM, ITLIBMSG, IATABREF, 
TASVOFF, ITSHV 


Exit: If sign-on, APLFXIIM with 
YYCLEAR service request or ITCMLOAD; 
if load or clear, ITINPINI; if copy 
source, ITCMCOPO; if error, ITSYSERR; 
also to next instruction after 
service request (address in WSMNSI). 


APLKADEF 
Module: APLKADEF 


Called By: Entry points APLKEMGR, 
APLKSSR 


Description: Part of the CICS/VS 
executor. Determines if the user of 
the auxiliary processor is authorized 
to access the named resource in the 
requested fashion. 


Exit: Returns 


APLKADSP 
Module: APLKADSP 
Called By: Entry point APLKASON 


Description: Part of the CICS/VS 
executor. Controls the user task. 


Calls: Entry points APLKIFON, KADSP8, 
KYYOFF, APLACRCP, APLKISVE, APLACRCP, 
APLXGKON, KMARCO. CICS/VS macros 
DFHKC CWAIT), DFHSC CGETMAIN), DFHPC 
CSETXIT), APLKSON, APLKSOF 


Exit: DFHPC CRETURN) 


APLKAGBL 
Module: APLKAGBL 


Called By: Entry points APLKASON, 
KABOOTS 


Section 3. 


Description: Part of the CICS/VS 
executor. Initializes and shuts down 
the global table. 

Calls: Entry points APLKLIBI, 
APLKLIBT, KINIEX, APLKSSMR, KDPFAB, 
KAPFXIT. Macros APLKTOFF. -CICS/VS 
macros DFHPC (LOAD, DELETE), DFHKC 
CENQDEQ) 


Exit: DFHPC (RETURN) 


APLKAHST 
Module: APLKAHST 
Called By: APLKHST macro 


Description: Part of the CICS/VS 
executor. Records a histogram event. 


Exit: Returns 


APLKANIX 
Module: APLKAMIX 


Called By: CICS/VS. Used when 
APLKASON attaches APLU task. 


Description: Provides a CICS/VS mixed 
mode (command level/macro level) 
environment. It may be employed as 
the primary entry point for any 
CICS/VS task. 


Calls: Entry point APLKMIX in 
DSP. 





APLKASON 
Module: ALPKASON 
Called By: CICS/VS 


Description: Part of the sign-on 
process performed by the CICS/VS 
executor. Initiates a user APL 
session. 


Calls: Entry points APLKADSP, 
APLKAGBL, APLKAGBL, APLKLIBR. Macros 
APLKT (TRAN). CICS/VS macros DFHKC 
CATTACH, WAIT), DFHPC CRETURN, ABEND, 
LOAD, XCTL, SETXIT), DFHDC, DFHIC 
(GET, GETIME), DFHSC (GETMAIN), DFHTC 
CPUT, GET), DFHFC CRELEASE) 


Exit: DFHPC CRETURN) to APLKTCTL, or 
to APLXGKT. 
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APLKEHCP 
Module: APLKEHCP 


Called By: Entry point APLKEMGR via 
CICS/VS macro DFHIC CPUT) 


Description: Part of the destination 
managoment services provided by the 
CICS/VS executor. Provides support 
for the 3270 printer. 


Calls: Entry point KTRTRAN. CICS/VS 
macros DFHSC CGETMAIN, FREEMAIN), 
DFHPC £RETURN, ABEND, SETXIT, LOAD), 
DFHIC (GET), DFHTC CPUT) 


Exit: DFHPC CRETURN) 


APLKENGR 

Module: APLKEMGR 

Called By: Entry points APLXGKU, 
KTSLINE, APL132K, KTRHC 


Description: Part of the destination 
ranagemnent services provided by the 
CICS/VS executor. This is the initial 
entry point for all destination 
management service requests. Based on 
request, routes control to the 
appropriate service routine. 


Calls: Entry points APLKEHCP, 
APLKADEF, KETWRITE. Macros APLKT 
CTRAN)D. CICS/VS macres DFHPC (LOAD), 


DFHIC (PUT), DFHKC CEN@, DEQ), DFHSC 
(GETMAIN, FREENAIN), DFHTC (LOCATE), 
DFHTD (PUT, GET,» LOCATE) 


Exit: Returns 





APLKIFQN 
Module: APLKIFIX 
Called BY: Ertry point APLKADSP 





Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Sets up a stack for the 
interpreter interface modules to use 
and an abend exit for the user 
transaction. 


Calls: Entry points APLKLUIT, 


APLAIMT. Macros APLKIST, APLKEXIT, 
APLKMAIN (GET). CICS/VS macros DFHPC 
(ABEND) 


Exit: KTOINTER, caller (Cerror) 


APLKISVI 
Module: APLKISVI 
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Description: Part of the CICS/VS 
executor shared storage manager 
interface. Executes the following 
YYCODE service requests: YYSACC (set 
access control vector); YYSCIOY 
(copy); YYSOFF (Csign off); YYSOFFER 
Coffer); YYSON (sign on); YYSQUERY 
(query); YYSREF Creference); YYSRET 
(retract); YYSSPCE (specification). 


Calls: Entry point KADEPON. Macros 
APLKSSMR, APLKWAIT, APLKMAIN 


Exit: Returns 


APLKLIBF 
Module: APLKLIBF 


Called By: Entry points APLI21K, 
APLXFKEL 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Manages the data to 
and from data buffers for internal 
APL files under execution of the user 
task. 


Calis: Entry point APLKLIBR. Macros 
APLKEXIT, APLKHIST, APLKG CLIBSERV, 
TYPE=WLIB, WDIR, UDIR, RLIB, CFILE, 
DFILE, UFILE) APLKWAIT 


Exit? Returns 


APLKLIBG 
Module: APLKLIBG 
Called By: Entry point LIBSTART 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Routes control to 
the appropriate subroutine for all 
synchronous I/0 library requests. 


Calls: Entry points KGNDIR, KGUDIR, 
KGLOAD, KGSAVE, KGDROP, KGCFILE, 
KGDFILE, KGRLIE, KGUFILE, KGWLIB. 
CICS/VS macros DFHPC C(SETXIT, RETURN, 
ABEND), DFHKC CEN, DEQ, WAIT) 


Exit: Returns 


APLKLIBI 
Module: APLKLIBB 
Called By: Entry point APLKAGBL 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Prepares the APL 
library data set for processing, 
defines storage for and loads the 


J 


free space bit maps from the library, 
and initializes the global table 
fields owned by the library. 


Calls: Entry points KLGET, KLOPEN. 
CICS/VS macros DFHOC (CLOSE), DFHFC 
(GET, RELEASE), DFHSC (GETMAIN) 


Exit: Returns 


APLKLIBR 
Module: APLKLIBR 


Called By: APLKLIBU, APLKASON, 
APLKLIBF and APLKLIBG (all via 
GBLRDIR) 


-Description: Main and only entry 
point to the CICS/VS APL library 
services-read directory. It performs 
the synchronous I/0 to read a record 
from the APL directory. 


Calls: Macro DFHFC 
Exit: Returns 


APLKLIBR 
Module: APLKLIBG 


Called By: Entry points APLKASON, 
APLKLIBF, KCOPA, KLOAD, KGCFILE 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Reads an APL 
directory record from the APL 
directory data set. 


Calis: CICS/VS macro DFHFC (GET) 
Exit: Returns 


APLKLIBT 

Module: APLKLIBB 

Called By: Entry point APLKAGBL 
Description: Part of the library 


management services provided by the 
CICS/VS executor. Closes the APL 
library data set for APL- processing 
and reopens it as a CICS/VS data set. 


Calls: Entry point KLCLOS. CICS/VS 
macro DFHOC COPEN) 


Exit: Returns 


APLKLUIT 

Module: APLKLIBC 

Called By: Entry point APLKIFON 
Description: Part of the library 


managemant services provided by the 
CICS/VS executor. Provides the user 
with workspace when he initially 
signs on. Defines the initial 
workspace and reads the HI message 
records from the APL directory. 
Requests by a call to entry point 
KYYTYOI that the HI message records 
by displayed. 


Calls: Entry points APLKSPEN, 
APLXERRM, KYXTYOI. Macros APLKEXIT, 
APLKPROC, APLKPOP. CICS/VS macro 
DFHSC (GETMAIN) 


Exit: Returns 


APLKLUTM 

Module: APLKLIBC 

Called By: Entry point KFOFF 
Description: Part of the library 
management services provided by the 
CICS/VS executor. Returns workspace 
storage to CICS/VS when the user logs 
off APL. 


Calls: Macro APLKEXIT. CICS/VS macro 
DFHSC CFREEMAIN) 


Exit: Returns 


APLKPFAP 


Module: APLKASTB 

Called By: DOS/VS page supervisor 
Description: Part of the CICS/VS 
executor. For DOS/VS only. Allows 
overlap of page faults that occur 
during execution of the interpreter. 


Exit: APLKPFOH 


APLKPFOH 

Module: APLKASTB 

Called By: Entry point APLKPFAP 
Description: Part of the CICS/VS 
executor. For DOS/VS only, puts the 


current user into a wait stete so 
CICS/VS can dispatch other users. 
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Calls: Entry points KRSTEX, KSETEX. 
CICS/VS macro DFHKC (WAIT) 


Exit: To interpreter at point of page 
fault 


APLKSPRG 


Module: APLKVEXC 


Called By: The operating system. 
(This is the service program's entry 
point. It is specified on the EXEC 
statement. ) 


Description: Part of the APL library 
service program for CICS/VS. Drives 
the utility. Does initialization; 
calls KSPPIN to open the print and 
reader data sets; reads a command, 
calls KSPCMD to analyze it; calls 
KSPINT to open the KSPINT to open the 
necessary data sets; calls the proper 
command processor (CKSPAUT, KSPCPY, 
KSPFMT,. KSPIMP, OR KSPEXP); and calls 
KSPTRM to close the unique data sets 
associated with the command. This 
Process 1s repeated until there is no 
more data. It then closes the system 
data sets. 


Calis: Entry points KSPAUT, KSPCMD, 
KSPCPY, KSPDOS, KSPEXP, KSPIMP, 
KSPINT, KSPMSG, KSPPIN, KSPTRM, 
KSPFMT. OS macros GET, PUT, CLOSE, 
FREEMAIN. DOS macros CLOSE, EXCP, 
PUT, WAIT, FREEVIS 


Exit: Returns 


APLKSSR 
Module: APLKSSVP 


Called By: Entry point BOOTSTR Macros 
APLKSON, APLKSOF, APLKREF, APLKSPC, 
APLKCPY, APLKQRY, APLKOFR, APLKRET, 
APLKACHK, APLKACC 


Description: Part of the CICS/VS 


shared storage manager. Handles all 
shared variable requests issued by 
“module APLKISVI and the auxiliary 
processors. 


Calls: Entry points APLKADEF, 
KCASE2Q, KCASE3Q, KCLEANUP, KFREESP, 
KGCOL, KGETSPAC, KIDSETUP, KPOSTWAI, 


KPPSEARC, KPROCOFF, KRETSUB, KSEIZE, 
KSINGAL 


Exit: Returns 


APLKSSUB 
Module: APLKSSUB 
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Called By: Entry point KABOOTS 


Description: Part of the CICS/VS 
shared storage manager. Obtains space 
for and initializes the shared 
memory. 


Calls: CICS/VS macro DFHSC (GETMAIN) 
Exit: Returns 


APLKTCTL 
Module: APLKTCTL 


Called By: CICS/VS macros DFHIC 
CINITIATE) or DFHPC CXCTL) 


Description: Part of the terminal 


management services provided by the 
CICS/VS executor. Handles terminal 
input operations and routes output 
operations to module APLKTCWR. Runs 
under the terminal transaction, a 
separate transaction from the APL 
user transaction. Processes requests 
originally initiated by the APLKTERM 
macro (type=requests of READ, WRITE, 
or RESTORE) issued in the APL user 
transaction. Also handles any input 
received when no APLKTERM request is 
being processed (when the terminal is 
in listen state). 


Calls: Entry point APLKTCNR. Macros 
APLKT CLOCREQ, FINDF, TRAN), 
APLKTRCE, APLKHIST. CICS/VS macros 
DFHPC CRETURN), DFHTC CREAD, WRITE), 
DFHSC CGETMNAIN), DFHPC CSETXIT, 
ABEND, RETURN, LOAD) 


Exit: DFHPC CRETURN) 


APLKTCHR 

Module: APLKTCWR 

Called By: APLKTCTL 

Description: Part of the terminal 


management services provided by the 
CICS/VS executor. Handles terminal 
output operations. Runs under the 
terminal transaction, a separate 
transaction from the APL user 
transaction. 


Calls: Macros APLKT CTRAN), APLKTRCE. 
CICS7VS macros DFHSC (GETMAIN, 
FREEMAIN), DFHTC CWRITE) 


Exit: APLKPOP 


APLPAPAC 
Module: APLPAPAB 


Called By: PCSACC 

Description: Sets access control 
vector for a variable shared with an 
internal auxiliary processor. 


Exit: Returns; ERSAVEAR (CError) 


APLPAPOF 
Module: APLPAPAB 


Called By: PCSOFFER 


Description: Processes offer to share 
a variable with an internal auxiliary 
processor. 


Calls: ERMSGRTN 
Exit: Returns; ERSAVEAR CError) 


APLPAPPR 

Module: APLPAPAB 

Called By: PCSCOPY, PCSREF, PCSSPEC 
Description: Procasses copy, 


reference, and specification of a 
variable shared with an internal 
auxiliary processor. 


Calis: APCREATE, APDROP, APFILSIZ, 
APIO, APOPEN, APPASSWD, APSHARE, 
APVIO, PRDDIR, PRDSEQ, PWRITE, 
ERMSGRIN, FSMFORMT, FSMWRITE, 
FSMREAD, FSMGET, FSMFORM, FSMSETC, 
FSMBUZZ FSMSUB3, FSMMTYPE, FSMMINT, 
FSMHCOPY, GDDMRCTL, GDDMSCTL, 
GDDMSDAT 


Exit: Returns; ERSAVEAR CError), 
EFRENDEX CError) 


APLPAPRT 

dule: APLPAPAB 
Called By: PCSRET 
Description: Processes retraction of 
a variable shared with internal 
auxiliary processor. 


Calls: ERMSGRIN, GDDMCRET, GDDMSOFF 


Exit: Returns; ERSAVEAR (Error), 
ERENDEX CError) 


APLPAPSF 
Module: APLPAPAB 


Called By: PCSOFF 
Description: Retracts variables 


shared with internal auxiliary 
processors when user signs off. 


Calls: ERMSGRIN, GDDMSOFF 


xit: Returns; ERSAVEAR CError), 
ERENDEX CError) 


APLPCENT 
Module: APLPCOEX 
Called By: VSPC Foreground Interface 


Description: Serves as the sole entry 
point from VSPC to VS APL; checks for 
purpose of entry: for initialization, 
initializes control areas and VS APL 
Workspace area; for asynchronous 
event, checks attentions, cancel 
output, program checks, forceoffs, 
line drop, and other termination 
situations. 


Calis: ERTIMDAT 
Exit: APLIINIT with a YYON service 


request Cinitialization); returns to 
VSPC Casynchronous events). 


APLPCOAP 
Module: APLPCOAP 
Called By: VSPC executor modules 


APLSHVR and APLPAPAB reference this 
module 


Description: List of auxiliary 
processors, relating the VSPC 
identification number to its 
corresponding VS AFL VSPC 
auxiliary-processor name. Contains no 
executable code. 


APLSCSSI 
Module: APLSCSSI 


Called By: CMS Coriginal entry) 


Description: This module executes in 
the CMS transient area. It locates 
the proper VS APL processing module 
and passes control to it. 


Calis: Macros DMSEXS, DMSKEY, DIAG, 
FSSTATE, WRTERM, LINEDIT, NUCON, 
REGEQU, APLPATCH 


Exit: Either to a shared segment or 
to the disk-resident VSAPL module. 
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APLSHACC 

Module: APLSHACC 

Called By: ASVPSERV 

Description: Resets access control 
vector for one partner; creates new 
combined access control vector for 
both partners. 
Calls: APLSHSRD, APLSHPST 


Exit: Returns 





APLSHBPB 

Module: APLSHBPB 

Called By: APLSHSON 

Description: Constructs processor 
block in shared memory when a 
processor signs on to the shared 
variable processor. 

Calls: APLSHGET 


Exit: Returns 





APLSHBVB 

Module: APLSHBVB 

Called By: APLSHOFR 

Description: Constructs variable 
block in shared memory when a new 
variable is successfully offered to 
the shared variable processor. 
Calls: APLSHGET 


Exit: Returns 


APLSHCPY 

Module: APLSHCPY 

Called By: ASVPSERV 

Description: Provides latest value of 
a shared variable regardless of the 
current access state. 

Calls: APLSHPUT, APLSHSRD 


Exit: Returns 


APLSHGET 
Module: APLSHGET 
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Called By: APLSHBPB, APLSHBVB, 
APLSHOFR 


Description: Gets a block of virtual 
storage from shared memory. 


Calls: APLSHPUT 
Exit: Returns 





APLSHOFR 
Module: APLSHOFR 
Called By: ASVPSERV 


Description: Processes a request to 


share a single variable; finds VAB 
for offer and fills other partner; 
constructs new VAB for new offer. 


Calls: APLSHBVB, APLSHGET, APLSHSRD, 
APLSHPST 


Exit: Returns 


APLSHPST 

Module: APLSCSVI 

Called By: APLSHREF, APLSHACC, 
APLSHOFR, APLSHSPC, APLSHSUB, 
APLSHFUT 

Description: Posts ECB for auxiliary 
processor associated with shared 
variable. 

Exit: Returns 

APLSHPUT 

Module: APLSHPUT 

Called By: APLSHCPY, APLSHREF, 
APLSHSOF, APLSHSPC, APLSHSUB, 
APLSHGET 

Description: Returns block of virtual 
storage to shared memory; fills area 
with zeros. 

Calls: APLSHPST 


Exit: Returns 


APLSHQUE 
Module: APLSHQRE 
Called B ASVPSERV 


Description: Provides information 
about a shared variable; fills in 
fields of SCV. 


J 


Exit: Returns 


APLSHREF 
Module: APLSHREF 


Called By: ASVPSERV 


Description: Provides latest value of 
a shared variable if not interlocked; 
moves value to buffer whose address 
is in SCVVALUE. 

Calls: APLSHSRD, APLSHPST, APLSHPUT 


Exit: Returns 


APLSHRET 

Module: APLSHRET 

Called By: ASVPSERV 

Description: Terminates offer of 
shared variable by calling processor 
of variable described in SCV. 


Calls: APLSHSRD, APLSHSUB 





Exit: Returns 


APLSHSOF 

Module: APLSHSOF 

Called By: ASVPSERV 

Description: Disconnects processor 
from shared variable processor; 
retracts all variables offered under 
processor's ID. 

Calls: APLSHPUYT, APLSHSUB 


Exit: Returns 





APLSHSON 
Module: APLSHSON 
Called By: ASVPSERV 


Description: Connects a processor to 
the shared variable processor. 


Caljls: APLSHBPB 
Exit: Returns 


APLSHSPC 
Module: APLSHSPC 


Called By: ASVPSERV 


Description: Specifies a new value 
for a shared variable or informs 
caller that value specified by a 


. partner is waiting. 


Calls: APLSHPUT, APLSHSRD, APLSHPST 
Exit: Returns 





APLSHSRD 

Module: APLSHSRD 

Called By: APLSHCPY, APLSHRET, 
APLSHSPC, APLSHREF, APLSHACC, 
APLSHOFR 

Description: Searches index block for 
variable block with offer number 
equal to offer number in SCV; returns 
with pointer to block or error 
indication. 


Exit: Returns 


APLSHSUB 
Module: APLSHSUB 
Called By: APLSHRET, APLSHSOF 


Description: Terminates an offer for 
calling routine of a variable. 


Calls: APLSHPUT, APLSHPST 
Exit: Returns 


APLXACSO 

Module: APLXAC 

Called By: APL120, APL121, APL126 
Description: Establishes the 
environment for the AP and sign-on to 
the shared storage manager (CMS/TSO). 
Calls: Main storage management 
services, shared storage manager, and 
abend exit services. Macros: APLXSON, 
APLXMAIN, APLXADUM, APLXSFRE 


Exit: Calls the offer exit return in 
the auxiliary processor. 


APLXACSV 
Module: APLXAC (CMS) 
Called By: APL120, APL121, APL126 
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Description: Provides the services 
GET, PUT, COPY, AUTHCHECK, and ABORT 
between an auxiliary processor and 
the shared storage manager. 


Calls: Main storage management 
services, shared storage manager, and 
abend exit services. Macros APLXMAIN, 
APLXSON 


Exit: Returns 


APLXACSV 
Module: APLXAC (TSO) 
Called By: APL120, APL121, APL126 


Description: Provides the services 
GET, PUT, COPY, AUTHCHECK, and ABORT 
between an auxiliary processor and 
the shared storage manager. 


Calls: Main storage management 
services, shared storage manager, and 
abend exit services. Macros APLXMAIN, 
APLXSON 


Exit: Returns 


APLXAKSO 


Module: APLXAK 
Called By: APL120, APL126 


Description: Establishes the 
environment for the AP (CICS/VS). 


Calls: Main storage management 
services, shared storage manager, 
abend exit services, and dump 
services, session manager message 
services and stack services. 


Exit: Calls the offer axit return in 
the auxiliary processor. 


APLXAKSV 


Module: APLXAK 
Called By: APL120, APL126 


escripti : Part of common AP 
services for CICS/VS. It provides the 
following services between an 
auxiliary processor and the shared 
storage manager in the CICS/VS 
environment: GET (reference the data 
that the user has specified in a 
shared variable), PUT (specify the 
data from the auxiliary processor 
buffer to shared sotrage), COPY 
Cobtain the latest value of a shared 
variable without altering the setting 
of the current access state), 
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AUTHCHECK Csearch the authorization 
table to locate the authorization 
code associated with the resource 
named, and ABORT (Cretract the 
variables in this set and pass 
control to the auxiliary processor's 
retract exit routine. 

: Main storage services, shared 
storage manager, ABEND exit services, 
dump services, session manager 
message routine, and stack management 
services. Macros APLKACHK, APLXMAIN, 
APLXBXIT, APLXDUMP, APLKOFR, APLKCPY, 
APLKREF, APLKSPC, APLKWAIT, APLKSCZ, 
APLXSTK 


Exit: Returns 


APLXAINP 

Module: APLXASD (CMS) 
Called By: APLXAC 
Description: Analyzes input 


parameters for common AP services. 


Calis: APLXMSSG (CMS) Macro APLDEFN 
Exit? Returns 


APLXAINP 
Module: APLXAYD (TSO) 
Called By: APLXAC 


ipti >: Analyzes input 
parameters for common AP services. 


Calls: APLXMYSG (TSO) Macros APLXMAIN 
Exit: Returns 


APLXAMSG 
Medule: APLXASD (CMS) 
Called By: APLXAC 


S n: Displays messages for 
common AP services. 


Calls: APLYULNE Macros APLXEDIT, 
APLXSTK, APLXMAIN, APLXAFRE 


Exit: Returns 


APLXAMSG 
Module: APLXAYD (TSO) 
Called By: APLXAC 


Description: Displays messages for 
common AP services. 


Calis: APLERRM, (TSO) Macros 
APLKEDIT, APLXSTK, APLXMAIN, APLXAFRE 


Exit: Returns 


APLXBACK 
Module: APLXSTAK 


Called By: All stack processor entry 
points 


Description: Returns to caller of SP 
module. 


Calis: Common main storage services 


Exit: Returns to instruction 
following call in calling program 


APLXBSAB 
Module: APLSCSVI 
Called By: Various executor routines. 


Description: Provides 
system-independent interface for 
abend services to the CMS executor 
and auxiliary processors. 


Calls: Macro ABEND 
Exit: Abnormal termination 


APLXBSXT 

Module: APLSCSVI 

Called By: Many executor routines. 
Description: Provides an abend exit 


service through a system-independent 
interface. 


Calls: Macro STAE 


APLXBYAB 
Module: APLYUSVI 


Called By: Various executor routines 
and auxiliary processors 


Description: The caller requests that 
a particular abend be issued on his 
behalf by placing a binary abend code 
in register 1. This routine provides 
an abend request service through a 
system-independent interface (TSQ0). 


Calls: Macro ABEND 
Exit: Abnormal termination 


APLXBYXT 
Mcdule: APLYUSVI 


Called By: Various executor routines 
and auxiliary processors 


Description: The caller requests that 
a particular routine be given control 
when an'‘abend occurs. This routine 
provides an abend exit service 
through a system~-independent 
interface; tt also contains the ESTAE 
exit and retry routines (7TS0). 


Calls: Macros APLPTRGT, APLXXPTX, 
APLTSOQGL, ESTAE, IHASDNA, SETRP 


Exit: Returns 


APLXCALL 

Module: APLXSTAK 

Called By: APLXSTAK stub code 
Description: Calls an SP module. 
Calls: Common main storage services 


Exit: Returns to requested entry 
point 


APLXDKMP 
Module: APLXDKMP 


Called By: Available for general use 
by any VS APL module 


Description: Main and only entry 
point to the VS APL CICS/VS dump 
services modula. It provides a 
system independent interface to the 
CICS/VS executor Cand auxiliary 
processors) for common dump services. 
The CICS/VS executor command is 
employed for each range of addresses 
to be dumped. 


Calls: Macro’ DFHDC 


Exit: Returns 


APLXDUCL 
Module: APLXDUMP 
Called By: APLYUINI, APLSCINI 
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escrintion: Closes: DUMP data set at 
termination. . " 


Calls: APLXMSSG, APLXMYSG. Macros 


IHADCB, DCB. OPER, CLOSE, SNAP, 
APLXMAIN 


Exit: Returns 


APLXDUMP = 

Module? APLXDUMP 

Called By: Various executor routines 
Description: Provides 


system-independent interface for dump 
services to the CMS and TSO executors 
and auxiliary processors. The SNAP 
macro is used to request @e range of 
addresses. to be dumped to the APLDUMP 
DD file. ae 

Calls: MAINS. Macros ‘APLPATCH, 
IHADCB, DCB, OPEN, CLOSE, SNAP, 
APLXMAIN,. DIAG 


Exit: Returns 


APLXDUGP 
Module: APLXDUNP : 
Called By: APLYUINI,, APLSCINI 


Descripti on: “Called. at initialization 
to open the’ DUMP. data set, 


Calls: Macros APLPATCH, IHADCB, DCB, 
OPEN, CLOSE; - SNAP, ‘APLXMAIN 


Exit: Returns: 


APLXFINT 
Module: APLXFSFL 
Ss APESCINI 


ipkiiee Ghattializes | buffers for 
PET MeHERePeha! sercit ing (CMS 





AP f 
only). 


Calls: APLXMSSG. Macros APLPATCH, 
APLSFID, APLXDMP, APLXEND, APLXFAB, 
APLXMAI, APLXMAIN, APLXMOD, APLXPROC, 
APLXPTH, APLXSTAK, FSREAD, FSWRITE 


Exit: Returns 


APLXFINT | 
Module: APLXFYFL. 
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Called By: APLYUINI 

Description: Initializes buffers for 
AP 121 files and scrolling (TSO 
only). 

Calls: APLXMYSG. Macros ACB, 


APLXMAIN, APLXMOD, APLXSTAK, FSREAD, 
FSWRITE 


Exit: Returns 


APLXFKFL 

Module: APLXFKFL 

Called By: APLACSF 

Description: This module provides a 
map, for the CICS/VS file system, 
from release 4 stack processors to 
release 3 register requirements and 
stack usage. 

Cails: APLKLIBF 


Exit: Returns 


APLXFSFL 

Module: APLXFSFL 

Called By: APLSCINI, APL121, APLACSF 
Description: Manages the movement of 
data to and from buffers for AP 121 
files and scrolling CCMS only). 
Calls: APLXDUMP, APLXMSSG, APLSCFID. 
Macros APLSFID, APLXMAIN, APLXMOD, 


CLOSE, ENDREQ, ERASE, FREEMAIN, GET, 
GETMAIN, IFGACB, IFGRPL, PUT, RPL 


Exit: Returns 


APLXFTRM 

Module: APLXFSFL 

Called By: APLSCINI, APL121, APLACSF 
Description: Terminates ae buffer 
service request for AP 121 files and 
scrolling (CMS only). 

Calls: APLXDUMP, APLXMSSG. Macros 


APLSFID, APLXMAIN, APLXMOD, APLXSTAK, 
FSREAD, FSWRITE 


Exit: Returns 


APLXFTRM 
Moduje: APLXFYFL 


Called By: APLYUINI 

Description: Terminates a buffer 
service request for AP 121 files and 
scrolling (TSO only). 

Calls: APLXMYSG. Macros ACB, APLXFAB, 
APLXMAIN, APLXMOD, APLXSTAK, CLOSE, 
ENDRE@, ERASE, FREEMAIN, GET, 
GETMAIN, IFGACB, IFGRPL, PUT, RPL 


Exit: Returns 


APLXFYFL 

Module: APLXFYFL 

Called By: APLYUINI, APL121, APLACSF 
Description: Manages the movement of 
data to and from buffers for AP 121 
files and scrolling (TSO only). 
Calls: APLXMYSG. Macros ACB, APLXMOD, 
AFLXSTAK, CLOSE, ENDREQ, ERASE, 
FREEMAIN, GET, GETMAIN, IFGACB, 
IFGRPL, PUT, RPL 


Exit: Returns 


APLXGCAT 
Module: APLXGCAT 
Called By: Operating system or GDDM 


Dascription: This is the attention 
processing module for CNS and TSO. 


Exit: To routine in PTXATTN 


APLXGCHC - 

Module: APLXGCHC 

Called By: APLXGCOM 

Description: This is the common 
APLXGDDi hardcopy request processing 
module which handles the following 
APLXG requests: FSOPEN, FSCLS, 
FSCOPY, FSLOG, GSCOPY, and QDEST. 
Calls: GDDM APL print services, main 
storage services, APLXGDDM 
system-dependent modules CAPLXGKU, 
APLXGS, or APLXGY). Macro APLXSTK 


Exit: Returns 


APLXGCOM 
Module: APLXGCOM 


Called By: APL session manager, AP126 


Description: This is the GDDM 
interface module. APLXGCOM is the 
main entry point for all APLXG macro 
processing, and contains all 
processing routines common across all 
systems, except for hardcopy request 
support and attention support. Three 
typas of requests are processed: APL 
special requests, GDDM requests with 
special considerations and 
pass-through requests. 


Calls: APLXGCHC, ADMASP CGDDM entry 
point), and the following entry 
points defined through the VCT: 
GDDXE, DUMPX, MAINS, STKAB. 


Exit: Returns 


APLXGKON 
Module: APLXGKON 


Called By: APLKADSP CVS APL 
dispatcher) 


Description: Contains CICS/VS-only 
support for the startup of the 
CICS/VS GDDX process, the 
synchronization of requests from the 
session manager, and instances of 
AP126. 


Calls: APLXGCOM 


Exit: Returns to dispatcher 


APLXGKR 
Module: APLXGKR 
Called By: APLXGKRR 


Description: Main and only entry 
point in the GDDX CICS/VS terminal 
manager retrofit module that converts 
GDDM calls made by the session 
manager into release 3 terminal 
manager calls, thus allowing the 
session manager to run when GDDM is 
not available. 


alls: Macros APLKEXIT, APLKMAIN, 
PLKTERM, DFHPC TYPE=ABEND and DFHIR 
YPE=ENTRY 


A 
T 
Exit: Returns 
APLXGKRQ 

Module: APLXGKRQ 


Called By: Macro APLXG and APL126 
(the session manager modules) 
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Description: Part of GDDX 
CICS/VS-only user transaction [720 
support. It is invoked in CICS/VS 
via the VCTGDDX pointer when a 
request for APLXGDDM service is 
issued (through the APLXG macro). It 
then signals the APLXGKON routine to 
perform the request under a GDDX task 
and waits for it to do so. 


Exit: Returns 


APLXGKRR 
Module: APLXGKRR 
Called By: APLXGCOM, APLXGCHC 


Description: Main and only entry 
point to the GDDX T.M. retrofit 
router module. It routes requests 
from APLXGCOM or APLXGCHC to APLXGKU 
1f GDDM is to be used in the 
session, or to APLXGKR if the Release 
3 terminal manager is to be used. 


Calls: APLXGKR, APLXGKU 
Exit: Returns 


APLXGKT 
Module: APLXGKT 


Called By: CICS/VS as a result of an 
EXEC CICS/VS start command in 
APLXGKU, or an XCTL in APLKASON. 
(CICS/VS sign on module) 


Description: Main and only entry 
point to the root CICS/VS terminal 
transaction support module for GDDX. 
It contains CICS/VS-only routines for 
APLXG requests which must be executed 
from the terminal transaction. These 
comprise the following: SPINIT, 
FSFRCE, ASREAD, and FSSHOW. APLXGKT 
notifies the user transaction, as 
needed, of request completion, and 
synchronizes with the user 
transaction to avoid overlapping of 
calls to GDDM. APLXGKT also supplies 
the attention-~handling support for 
cIcs/vs. 


Calls: ADMASP, APLAUATN. CICS/VS 
command level: ABEND, ADDRESS, 
ASSIGN, ENTER, HANDLE, POST, RECEIVE, 
RETURN, RETRIEVE and WAIT 


Exit: Returns to CICS/VS 


APLXGKU 
Module: APLXGKU 
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Called By: APLXGCOM, APLXGCHC 


Description: This is the mainline of 
the GDDX CICS/VS-only user 
transaction I/0 support containing 
routines for the following: a) 
startup of CICS/VS GDDX task, b) 
synchronization of requests from 
session manager and AP126, c) GDDM 
path initialization, d) GDDM path 
termination, e) open a hardcopy 
destination CFSOPEN), f) passthrough 
request to GDDM under user 
transaction with proper 
synchronization, and g) I40 request 
to schedule a terminal transaction 
and wait for its completion. 


Calls: ADMASP, KADEF via GBL. 


CICS/VS command level: FREEMAIN, 
RELEASE and SORT 


Exit: Returns 


APLXGS 

Module: APLXGS 

Called By: APLXGCOM, APLXGCHC 
Description: This is the CMS-only 
support for APLXGDDM and contains 
routines that perform first-time 
initialization and hardcopy open 
register for APLXGDDM. It also 
provides the last-path CMS~only 
termination function. 

Calls: ADMASP (GDDM entry point). 


Exit: Returns 


APLXGY 

Module: APLXGY 

Called By: APLXGCOM, APLXGCHC 
Description: This is the entry point 
in module APLXGY. Its routines 
perform first path initialization and 
hardcopy open register for APLXGDDM, 
as required by system-dependent 
modules in all environments. 

Calis: ADMASP CGDDM entry point). 


Exit: Returns 


APLXGYON 
Module: APLXGY 


Called By: APLYUINI 


~ 


Description: This is the APL 
initialization entry from AP startup. 
It causes tha AP task to gain control 
at routine GYCALL, which will invoke 
APLXGCOM when notified of a request 
and post the caller when the task is 
completed. 


Calis: APLXGCOM (GDDM entry point). 
Macros APLXWAIT, APLXWPST 


Exit: Signs off shared storage 
manager. 


APLXGYRQ 
Module: APLXGY 


Called By: AP126, APL session manager 
Cin TSO via VCTGDDX) 


Description: This is the request 
processing entry point which receives 
control via the VCT when macro APLXG 
is issued. It causes a task switch to 
the APLXGYTA routine, Waking up to 
return to caller when notified by 
APLXGYTA. 


Calls: Macros APLXWAIT, APLXWPST 
Exit: Returns 


APLXAMKSG 


Module: APLXMKSG 
Called By: Various executor routines. 


Description: This is the main and 
only entry point to the storage 
management services module for 
CICS/VS which provides 
GETMAIN/FREEMAIN services to the 
caller (CICS/VS) through a 
system-independent interface. 


Calls: Macros DFHSC, DFHSAADS 
Exit: Returns 


APLXMNSSG 

Module: APLXMSSG 

Called By: Various executor routines. 
Description: Provides 
GETMAIN/FREEMAIN services through a 
system-independent interface to the 
caller (CMS). 

Calis: Macros DMSFREE, DMSFRET 


Exit: Returns: 
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APLXMYSG 
Module: APLXMYSG 


Called By: Available as a service 
routine 


Description: This is the storage 
management services module for TSQ 
which provides GETMAIN/FREEMAIN and 
associated services to the caller 
through a system-independent 
interface. 


Calls: Macros GETMAIN, FREEMAIN 
Exit: Returns 


APLXPK 
Module: APLXPK 


Called By: Available for general use 
via PRTX label in VCT 


Description: Main and only entry 
point to common executor print 
support in CICS/VS. It provides 
print requests OPEN, WRITE, and 
CLOSE, and transforms each request 
into an appropriate APLKEMGR call. 


Calis: KEDEST via GBL 
Exit: Returns 


APLXPY 
Module: APLXPY 
Called By: APLXGDDM via APLCALLS 


Description: This is the main entry 
point to the APL print module for TSO 
which satisfies the following TSO 
print requests: OPEN, WRITE, and 
CLOSE. 


Calls: TSO QSAM file support, APL 
main storage services, LOAD/DELETE, 
and APL translation services. Macros 
OPEN, CLOSE, PUT, IHADCB, LOAD 


Exit: Returns 


APLXSTAK 
Module: APLXSTAK 


Called By: All stack protocol stack 
owners 


Description: Create or destroy a 


stack. 
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Calis: Common main storage services. Called By: Attention, VS APL session 
manager separate task 
Exit: Returns 


point to the VS APL CICS/VS wait/post 


Description: This is the main entry , 
services module which provides a al 


APLXTRAN system~independent interface for wait 
or post services to the CICS/VS user. 
Module: APLXTRAN Each request is transformed into an 


appropriate APLKEMGR call (CICS/VS). 
Called By: VS APL session manager, 





common AP services Calls: APLKADSP Cwait and post 
routines) 

Description: Provides various 

translation services. Exit: Returns 

Calls: Macros APLKZTOS, APLKSTOZ 

Exit: Returns APLXNSUWP 
Module: APLSCSVI 

APLXTREZ Called By: Many executor routines. 

Module: APLXTRAN Description: Provides 
system-independent interface for wait 

Called By: VS APL session manager, or post services to the CMS executor. » 


common AP services 
Calls: APLSHPST 
Description: Translates a table from 


extended EBCDIC to ZCODE. Exit: Returns 

Calis: APLSCODE, APLKZTQS, APLKSTOZ 

Exit: Returns APLXWYWP 
Moduje> APLXWYWP 

APLXTRZE Called By: APLYUMSC, various executor 
routines and auxiliary processors. 23 


Module: APLXTRAN 
Description: Provides 


Called By: VS APL session manager, system-independent interface for wait 
common AP services or post services to the TS0 executor. 
Description: Translates a table from Calls: APLYUSVI Cwait and post 

ZCODE to extended EBCDIC. routines) 

Exit: Returns Exit: Returns to caller from post 
services; exits to dispatcher from 
wait. 

APLXVERS - 

Module: APLXVERS APLXWYWP 

> Any auxiliary processor. Module: APLYUSVI 

Common AP services. 

Called By: Various executor routines 

Description: Provides various and auxiliary processors 

conversion services to convert one or 

more elements of a vector of values Description: Provides wait and post 

into another form. services for system-independent task 
control. It includes a courtesy 

Exit: Returns dispatch with a wait request of ECB 
pointer of zero (TSQ). 

Calls: APLSHPST. Macros APLPTRGT, 

APLXWKWP APLTSOGL 

Module: APLXWKWP Exit: Returns 
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APLYDAIR 
Module: APLYDAIR 
Called By: APLAM, APLXFYFL 


Description: Allocates, frees, or 
deletes a data set, or checks its 
status. 


Exit: Returns 


APLYUCMD 
Module: APLYUCMD 


Called By: APLYU100 


Description: Initializes all control 
blocks, calls the command scan, and 
builds the command name. The command 
module is now attached; it is passed 
a CPPL constructed by copying the 
CPPL passed to VS APL, but 
substituting the address of the built 
CBUF. The CMSECB is used as the ECB 
in the ATTACH because it is posted by 
the STAX exit. The TSONCMDAT bit is 
set to distinguish APLYU10O0 waiting 
from waiting caused by DELAY or MSG. 
Khen posted, the command subtask has 
either terminated normally or has 
heen rendered nondispatchable by 
STAX. DAIR is now called with a 
request code of '2C' to mark the 
command subtask; the subtask can 
subsequently be detached. The line 
delete and character delete functions 
are resuppressed, and the QUAD-PW 
value is reestablished before 
returning to APLYU1LOO. 


For a full explanation of TSO command 
linkage and Terminal Monitor Program 
service routines, see Guida to 


Writing a Terminal Monitor Program 


and Command Processor. 


Calls: Macros ATTACH, BLDL, LINK, 
STCC, STSIZE, WAIT, GETMAIN, FREEMAIN 


Exit: Returns 


APL YUCNV 

Module: APLYUCNY 

Called By: Various executor routines 
Description: Imports into a VS 
APL“TSO sequential data set a VS APL 
workspace from a file created by one 


of the VS APL conversion programs 
(TSO). 


Exit: Returns 


APL YUEXC 
Module: APLYUEXC 
Called By: APLYUCMD 


Description: Routine used to execute 
CLISTs. 


Exit: Returns 


APLYUFXI 
Module: APLYUFXI 


Called By: APLYUINI CVS APL 
initialization) 


Description: Receives control after 
initialization and reacts to the 
success or failure of initialization 
€T50). 


Calls: Macros APLDEFN, YYCODE 
Clocal), ESTAE, APLEDIT 


Exit: YYEXIT in APLFXIIM; 
EXREQUESC Error) 





APLYUHSH 
Module: APLYUHSH 
Called By: APLYULIB 


Description: This is the 
hasher/unhasher module which examines 
a lock and its kev to determine if 
the workspace was saved by VS 
APL/7TSO, and, if so, what the TSO 
owner userid is. 


Exit: Returns 


APLYULNE 
Module: APLYULNE 


Called By: Invocations produced by 
the "APLEDIT' macros 


Description: This is the interface 
module to the LINEDIT macro in the 
TSO environment. At entry, the PLIST 
code is decoded and expanded inside 
the work area so that it will be 
possible to easily access all its 
fields. The message header is then 
constructed and the message text is 
scanned, byte by byte. Whenever an 
ellipsis is found in the message 
text, an argument is taken from the 
"SUBS" parameter list, the 
appropriate conversion is performed, 
and the result is substituted for the 
ellipsis. The resulting message is 
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then copied into the specified 
buffer, the "DISP' field is examined, 
and the appropriate action is taken. 
Calls: APLYUTIO 


Exit: Returns 


APLYURVC 

Module: APLYURVC 

Called By: Auxiliary processor or 
module APLYUSHV using *ASVP....'° 
macro 

Description: Links to shared storage 
manager Calso called shared variable 
processor) from an auxiliary 
processor or the T50 executor ona 
shared vartable service request. 


Exit: Branches to entry point 
ASVPSERV in module APLYUSVI 


APLYUTBL 

Module: APLYUTBL 

Called By: None (data only) 
Description: This contains all 


translate tables for terminals. 


Exit: None 
APLYUTIOG 


Module: APLYUTIO 


Called By: APLYUTYP 


Description: This its the TSO 
nonditsplay terminal interface which 
simulates CMS SVC 202 terminal 
input/foutput functions (TSO). 


Calls: SCOTRT. Macras TPUT, TGET, 
APLDEFN 


Exit: Returns 


APLYUUSR 
Module: APLYUUSR 


Called By: APLYUINI 
Description: This constitutes a 


sample installatton-written 
initialization exit routine. It 1) 
allows any user with operator 
authority to sava into or drop from 
public workspaces, and 2) scans for 
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the ownership operand, and, if 
provided, forces the specification of 
a password. 


Exit: Returns at +0 CError—user is 
not authorized to continue); +4 Cuser 
is authorized to proceed with APL 
session). 


APL100 


Module: APLYU1OO 


Called By: Control passed directly 
from shared variable processor 


Description: Executes a TSO command. 


Calls: APLYUSCN. Macros APLWSM, 
ASVPSON, ASVPQRY, ASVPQFR, ASVPREF, 
ASVPWAIT, ASVPRET, ASVPSPC, ASUSCV, 
APLPCV, APLSHSVP, ASVPSOF, APLEDIT, 
ABEND 


Exit: TSQ ABEND CError) 


APL100 
Module: APL100 
Called By: ASVPSERV; via Post on ECB 


Description: Auxiliary processor 
AP100; executes CMS and CP commands 
while obeying the search rules for 
IMPEX and IMAP. 


Calis: ASVPSRVC. Macros APLWSM, 
ASVPSON, ASVPQRY, ASVPOFR, ASVPREF, 
ASVPWAIT, ASVPRET, ASVPSPC, ASUSCV, 
APLPCV, APLSHSVP, ASVPSOF, LINEDIT, 
ABEND, NUCON, TSOBLKS, DMSFREE, 
DMSFRET, APLXBXIT 


Exit: ASVPSRVC with wait request; CMS 
ABEND CError) 


APL10QK 
Module: APL100K 
Called By: Entry point KMACRO 


Description: Part of the CICS/VS 
command auxiliary processor. Issues 
CICS/VS commands and starts CICS/VS 
transactions. 


Calls: Entry point APLIO0KO. Macros 
APLKOFR, APLKREF, APLKSPC, APLKWAIT, 
APLKEXIT, APLKRET, APLKACHK, APLKG 
CLIBSERV). CICS/VS macros DFHIC CPUT, 
INITIATE?, DFHKC CATTACH), DFHSC 
CGETMAIN, FREEMAIN), DFHSP 


Exit: Returns 


APL100KO0 

Module: APL100KO 

Called By: Entry point APL100K 
Description: Part of the CICS/VS 
command auxiliary processor. Connects 
CICS/VS transactions. to the user 
terminal. 

Calls: Any CICS/VS transaction. 
CICS/VS macros DFHPC (LOCATE, LINK, 
RETURN), DFHSC CGETMAIN) 


Exit: DFHPC CRETURN) 





APL101 
Module: APLYU101 


Called By: Shared variable processor 
APLYUSVI 


Description: This is TSO's auxiliary 
processor AP101, whose function is to 
stack an APL input line. 


Calls: APLYUSCN. Macros APLWSM, 
ASVPSON, ASVPQRY, ASVPOFR, ASVPREF, 
ASVPWAIT, ASVPRET, ASVPSPC, APLSCV, 
APLPCV, APLSHSVP, ASVPSOF, APLCCVO, 
APLEDIT, ABEND 


Exit: Signs off to the TSO SSM 
APL101 

Module: APL101 

Called By: ASVPSERV; via Post on ECB 


Description: Auxiliary processor 
AP101; stacks lines to be used at 
next request for terminal input. In 
VM/SP systems, an attempt to stack 
"HT’ or ‘RT! will result in the SET 
CMSTYPE commandbeing issued. 


Calls: ASVPSRVC 


Exit: ASVPSRVC with wait request; CMS 
ABEND (Error) 


APL102 
Module: APLYU102 
Called By: Shared variable processor 


Description: This is the TSO main. 
storage access auxtliary processor. 
It displays storage for the user. 


Cails: Macros APLIBITS, APLCMSGL, 
APLWSM, ASVPWAIT, ASVPSOF, ASVPSQN, 
ASVPQRY, ASVPREF, ASVPSVP, ASVPRET, 
ASVPSPEC, ASVPSOFR, APLSHSUP, 
APLESMP, APLFSMW, APLDENUC, APLSYSTP, 
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APLGLPTR, FREEMAIN, GETMAIN, SAVE, 
RETURN, IHAPSA, CVT, IKJTCB 


Exit: Returns 


APL1O2K 

Module: APL102K 

Called By: Entry point KMACRO 
Description: The CICS/VS main storage 
access auxiliary processor. Displays 
storage for the user. 

Calis: Macros APLKOFR, APLKREF, 
APLKWAIT, APLKSPC, APLKRET, APLKEXIT, 
APLKACHK 


Exit: Returns 


APL1i10 
Module: APL110 
Called By: ASVPSERV via Pest on ECB 


Description: Auxiltary processor 
AP110; reads and writes CMS disk 
files. 


Calls: ASVPSRVC 


Exit: ASVPSRVC with wait request; CMS 
ABEND (Error) 


APLill 
Module: APLYU1I11 


Called By: Shared variable processor 
APLSCSVI 


Description: This is the TSO 
auxiliary processor AP1L11 which reads 
and writes QSAM files. 


Calls: APLYUSCN. Macros APLCCVI, 
APLCCVO, APLIREGS, APLWSM, APLZCODE, 
APLPCV, APLSCV, ASUSCV, APLSHSVP, 
ASVPOFR, ASVPQRY, ASVPREF, ASVPRET, 
ASVPSOF, ASVPSON, ASVPSPC, ASVPWAIT, 
ABEND, CLOSE, DCB, DCBD, FREEPOOL, 
GET, GETMAIN, APLEDIT, OPEN, PUT, 
FREEMAIN, ONABEND CLOCAL) 


Exit: Signs off to the TSO SSM 


APL111 
Module: APL111 
Called By: ASVPSERV via Post on ECB 
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Description: Auxiliary processor _ 
AP111; reads and writes files using 
CMS stimulation of OS QSAM. 

Calls: ASVPSRVC 


Exit: ASVPSRVC with wait request; CMS 
ABEND CError) 


APL120 

Module: APL120 

Called By: Initialization (CMS and 
TS$0), shared storage manager 
CCICS/VS) 

Description: Communicates between the 
VS APL session manager commands and 
auxiliary processors. 

Calls: APLASCHD, APLXAC 


Exit: Returns 


APLizi 
Module: APL12l 
Called By: CMS/TSO inttialization 


Description: This ts the main entry 
point to the VS APL data file which 
creates, writes, updates, reads, 

and/or deletes VS APL object files. 


Calls: APLXFYFL, APLXFSFL,», APLXAC, 
APLXDUMP, APLXMSSG, APLXMYSG, and 
APLXSTAK. Macros APLXASO, APLXMAIN, 
APLXCAPS, APLCALLS 





Exit: Returns 


APL121K 
Module: APLI21K 
Called By: Entry point KMACRO 


Description: The CICS/VS APL format 
auxiliary processor. Creates, writes, 
updates, reads, and/or deletes APL 
object files. 


Calls: Entry point APLKLIBF. Macros 
APLKOFR, APLKRET, APLKREF, APLKSPC, 
APLKEXIT, APLKWAIT, APLKACHK. CICS/VS 
macro DFHSC (GETMAIN, FREEMAIN) 


Exit: Returns 


APL123 
Module: APL123 
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Called By: Control directly passed 
from shared variable processor 


Description: This is the TSO/CMS 
auxiliary processor 123 which reads 
and/or writes VSAM files. 


Calls: APLXMSSG, APLXMYSG. Macros 
APLCCVI, APLCCVQ, APLSHSVP, ASVPACC, 
ASVPOFR, ASVPQRY, ASVPREF, ASVPRET, 
ASVPSOF, ASVPSON, ASVPSPC, ASPWAIT, 
ABEND, CLOSE, GET, PUT, OPEN, POINT, 
ERASE, MODCB, GENCB, TESTCB, SHOWCB, 
APLXMAIN, APLEDIT, APLXMAIN 


Exit: Returns 


APL1I23K 
Module: APL123K 
Called By: Entry point KMACRO 


Description: The CICS/VS VSAM/ISAM 
file auxiliary processor. Reads from 
and writes to VSAM and ISAM data 
sets. 


Calls: Macros APIKOFR, APLKRET, 
APLKSPC, APLKREF, APLKWAIT, APLKEXIT,. 
APLKACHK. CICS/VS macros DFHSC 
CGETMAIN, FREEMAIN), DFHFC (GET, PUT, 
DELETE, GETAREA, RELEASE, SETL, 


GETNEXT, RESETL, ESETL) 
Exit: Returns 


APL124K 


Module: APL124K 
Called By: Entry point KMACRO 


Descriptton: The CICS/VS full screen 
manager auxiliary processor. Uses 
terminal manager routines, which are 
a part af the CICS/VS executor to 
handle all valid user requests 


Calls: Macros APLKOFR, APLKRET, 
APLKREF, APLKSPC, APLKWAIT, APLKEXIT, 
APILKTERM CINIT, FORMAT, WRITE, READ, 
GETDATA, SETCUR, FLDATTR, GETFORM, 
HCOPY, ALARM, FINAL). CICS/VS macros 
DFHSC (GETMAIN, FREEMAIN) 


Exit: Returns 


APL125K 
Module: APL125K 
Called By: Entry point KMACRO 


Description: The CIcs/VS DL/I access 
auxiliary processor. Provides a DL/I 
interface for the CICS/VS user. 


Calls: Macros APLKOFR, APLKRET, 
APLKSPC, APLKREF, APLKEXIT, APLKWAIT, 
APLKACHK, CALLDLI. CICS/VS macro 
DFHSC CGETMAIN, FREEMAIN) 





APL126 
Module: APL126 
Called By: Initialization (CMS and 


TSO}, shared storage manager 
(CICS/VS) 


Dascription: This is the main entry 
point to the GDDM auxiliary processor 
wnich processes requests from a user 
CCMS, TSO, or CICS/VS) to be passed 
on to GDDX, and allows the user to 1) 
control the screen format of his 
terminal, 2) write to and read from 
the formatted screen, 3) erase screen 
fields, 4) copy screen images to a 
printer, 5) condition screen fields 
for light per usage, and 6) read 
program function and attention keys. 
t also allows a user to specify a 
request (to AP126) that is not a GDDM 
cali, but controls the AP options. 


Calls: GDDM interface services 
CAPLXGDDM), common AP SERVICES 
CAPLXCAPS), conversion services 
CAPLXVERS), stack management 
services, storage managament 
services, abend services and dump 
services. Macros APLXAEAT, APLG, 
APLXMAIN, APLXASO, APLXBXIT, APLXCAPS 





Exit: In CMS/TSO, stays active until 
the shared variable processor 
terminates. In CICS/VS, terminates 
when user signs off. 


APL126T 

Modula: APL126T 

Called By: GDDMRCTL 

Description: This is the main entry 
name of the GDDM auxiliary processor 
table module which expands the macro 
APLIZ26TB, once for each AP 126 GDDM 
request, to define entries in a GDDM 
request table set. 

Calls: Macro APL126TB 

APL132K 

Module: APLI32K 

Called By: Entry point KMACRO 
Description: The CICS/VS transient 


data auxiliary processor. Accesses 
CICS/VS transient data including both 


intrapartition queues and sequential 
devices. 


Calls: Entry point APLKEMGR. Macros 
APLKOFR, APLKRET, APLKREF, APLKSPEC, 
APLKWAIT, APLKEXIT. CICS/VS macros 
DFHSC (GETMAIN, FREEMAIN) ' 


Exit: Returns 


APL139K 
Module: APL13$3K 
Called By: Entry point KMACRO 


Description: The CICS/VS alternate 
input processor. Passes user-supplied 
data from the shared storage manager 
to the session manager. 


Calls: Macros APLKOFP, APLKRET, 
APLKREF, APLKWAIT 


Exit: Returns 


APL210 
Modula: APLYU2Z10 


Called By: Shared variable processor 
APLYUSVI 


Descrintion: This is the EBDAM 
auxiliary processor for TSO which 
reads and writes EBDAM files. 


Calls: APLYUSCN. Macros APLCCVI, 
APLCCVO, APLIREGS, APLWSM, APLZCODE, 
APLPCY, APLSCV, APLSHSVP, ASVPOFR, 
ASVPQRY, ASVPREF, ASVPRET, ASVPSOF, 
ASVPSON, ASVPSPC, ASVPWAIT, ABEND, 
CLOSE, DCB, DC3SD, FREEPOOL, GET, 
GETMAIN, APLEDIT, OPEN, PUT, FREEMAIN 





Exit: Signs off to the TSO SSM 


APOPEN 

Module: APLPAPCD 

Called By: APLPAPPR 

Description: Executes service request 
to internal auxiliary processors 
AP121 and AP122 to open a VSPC file 
for input, output, or update. 


Calls: APDFN, ERMSGRTN 


Exit: Returns; ERSAVEAR CError), 
ERENDEX CError) 
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APPASSND — 

Module: APLPAPCD 

Called By: APLPAPPR 

Description: Executes service request 
to internal auxiliary processors 
APi21 and AP122 to change the 
password of a VSPC file. 

Calls: APDFN, ERMSGRTN 


Exit: Returns; ERSAVEAR CError), 
ERENDEX CError) 


APSHARE 
Module: APLPAPCD 


Called By: APLPAPPR 

Description: Executes service request 
to internal auxiliary processors 
APl21 and AP122 to change the share 
status of a VSPC file. 

Calls: APDFN, ERMSGRIN 


Exit: Returns; ERSAVEAR (CError), 
ERENDEX (CError) 


APVIO 

Module: APLPAPCD 

Called By: APLPAPPR 

Description: Executes all service 
requests to internal auxiliary 
processor AP123. 


Calls: APDFN, ERMSGRTN 


Exit: Returns; ERSAVEAR CError), 
ERENDEX (CError) 





ASVPSERV 


Module: APLSCSVI 
Called By: ASVPSRVC 


Description: Determines type of 
shared variable request: and calls 
routine to handle it. On return, 
schedules the next auxiliary 
processor that is ready to run; if 
none, returns to the interpreter at 
the instruction following its last 
shared variable service request. 


Calls: APLSHACC, APLSHCPY, APLSHOFR, 
APLSHQUE, APLSHREF, APLSHRET, 
APLSHSOF, -APLSHSON, APLSHACC, 
Auxiliary Processors 
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Exit: See description 


ASVPSERV 
Module: APLYUSVI 


Called By: Various executor routines 
and auxiliary processors 


Description: Determines the type of 
request and invokes the proper shared 
variable processor routine (TSO). 


Calls: APLSHACC, APLSHCPY, APLSHOFR, 
APLSHQUE, APLSHREF, APLSHRET, 
APLSHSOF, APLSHSON, APLSHSPC. Macro 
APLSHPAR. 


Exit: Returns 


ASVPSRVC 


Module: APLYURVC (TS0), ASVPSRVC 
(CMS) 


Called By: User-written auxiliary 
processors or dynamically-loaded 
auxiliary processors 


Description: Entry point to shared 
storage manager for VS APL. 


Calls: (for TSO) APLYUSVI; Macros 
APLDEFN, APLPTRGT. (for CMS) 
APLSCSVI; Macros NUCON, APLPATCH. 


Exit: ASVPSERV 


BEXIT 
Module: APLKASTB 
Called By: Various executor routines. 


Description: This is the main entry 
point to the VS APL CICS/VS abend 
services module which provides a 
system-independent interface for 
abend services to the CICS/VS 
executor and auxiliary processors 
(CICS/ZVS). 


Calls: APLKADSP. Macro APLKEDIT 
Exit: Returns 





COIEN 
Module: APLCOIBM 


Called By: CMS 


Description: Copyright notice and 
entry point from CMS to VS APL. 


Exit: APL 


CVCULL 

Module: APLCCULL, APLOCULL 

Called By: CVINIT 

Description: Calls workspaces for 
selective conversion; gives CMS 
fileid to workspace for selected 
workspace; resolves filename 
conflicts. Rejects invalidly named 
workspaces which cannot be resolved. 


Calls: CVRPRT 
Exit: Returns 


CVDATE 


Module: APLCMISC, APLOMISC (only for 
0S/VS), APLQMISC 


Called By: CVINIT 
Description: Gets date from system. 


Exit: Returns 


CVDIRE 
Module: APLCMISC, APLODIRE 


Cajled By: CVINIT 


Description: Builds shortened form of 
directory; dummy routine under CMS. 


Calls: CVSLST 
Exit: Returns 


CVDISP 

Module: APLCDISP, APLODISP, APLQDISP 
Called By: CVFUNC 

Description: Converts APL/360 
codestring to VS APL copy 
transmission codes; for content 
conversion, converts or flags APL/360 
idioms to VS APL equivalents. 

Calls: CVTBCD 


Exit: Returns 


CVFUNC 
Module: APLCFUNC, APLOFUNC, APLQFUNC 


Called By: CVWKSP 

Description: Converts format for all 
functions; converts content or 
replaces function. 


Calls: CVDISP, CVRPRT, CVWSEN, 
CVSHIP, ITLINEGQ, ITOKENIZ, ITCLOSET 


Exit: Returns 


CVGDIR 
Modula: APLODIRE 
Called By: CVSAVE 


Description: Looks for PERLIB in 
shortened form of directory. 


Exit: Returns 


CVGRUP 

Module: APLCGRUP, APLOGRUP, APLQGRUP 
Called By: CVWKSP 

Description: Enters an XM6 group name 


and its members! names into VS APL 
workspace. 


Calls: ITSTSRCH, IESFIND 
Exit: Returns 


CVIBNM 
Module: APLCIBNM, APLOIBNM, APLQIBNM 
Called By: CVWKSP 


Description: Generates uniaue 
three-character alphabetic 
underscored name for IBEAM simulator 
function. 


Exit: Returns 


CVINIT 
Module: APLCINIT, APLOINIT, APLQINIT 
Called By: Host operating system 


Description: Sole entry and exit 
point for conversion program. Sets up 
and initializes conversion parameters 
and flags; establishes buffers and 
storage spaces for APL/360 workspace 
and directory Cinput) and VS APL 
workspace Coutput); reads workspace 
and directory from tape. 
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Calls: CVPARM, CVDATE, CVSPIE, 
CVCULL, CVWKSP, CVDIRE, CVRPRT, 
CVTBCD, CVIOER 


Exit: Returns 


CVIOER 
Module: APLCMISC, APLOMISC 
Called By: CVINIT 


Description: Prints permanent 
input/output error messages. 


Calls: CVPRTR 


Exit: Returns 


CVLEAR 
Module: APLCLEAR, APLOLEAR, APLQLEAR 
Called By: CVWKSP 


Description: Initializes VS APL 
Workspace. 


Calls: CVTBCD, CVRPRT 


Exit: Returns 


CVPARM 
Module: APLCPARM, APLOPARM, APLQPARM 
Called By: CVINIT 


Description: Sets conversion flags 
according to parameters; for 
selective conversion, builds 
selection list in SELIST. 

Calls: CVPRTR 


Exit: Returns 


CVPRTR 
Module: APLCMISC, APLOMISC, APLQMISC 


Called By: CVRPRT, CVIOER, CVSPIE, 
CVPARM , 


Description: Prints conversion 
information on SYSPRINT CSYSLST). 


Exit: Returns 


CVRPRT 
Module: APLCRPRT, APLORPRT, APLQRPRT 
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Called By: CVVARB, CVFUNC, CVWKSP, 
CVLEAR, CVINIT, CVSAVE, CVCULL 


Description: Prints a detail line of 
conversion report; takes care of 
Pagination. 

Calls: CVPRTR 


Exit: Returns 


CVSAVE 

Module: APLCSAVE, APLOSAVE, APLQSAVE 
Called By: CVWKSP 

Description: Saves converted VS APL 
workspace as a CMS file whose name is 
provided by APLCCULL routine. Saves 
as control intervals on APLOUT for 
VSPC. 

Calls: CVRPRT, CVGDIR 


Exit: Returns 


CVSHIP 
Module: APLCSHIP, APLOSHIP 
Called By: CVWKSP, CVFUNC 


Description: Tokenizes a multiline VS 
APL function into VS APL workspace. 


Calls: ITLINEO, ITOKENIZ, ITCLOSET 


Exit: Returns 


CVSLST 

Module: APLOSLST 

Called By: CVDIRE 

Description: Looks for given library 


number and workspace name in 
selective conversion list. 


Exit: Returns 





CVSPTIE 
Module: APLCSPIE, APLOSPIE, APL@QSPIE 


Called By: CVINIT, Host operating 
system 


Description: Sets SPIE exit when 
called by CVINIT; when exit taken, 
prints error message, time stamp, 
PSW, and registers. 


Calls: CVTBCD, CVPRITR 


Exit: Returns; CVINIT (€Recoverable 
Error); ABEND (Error) 


CVTBCD 
Module: APLCTBCD, APLOTBCD 


Called By: CVLEAR, CVDISP, CVINIT, 
CVLEAR 


Description: Determines internal type 
of data element; converts to Z-code 
representation to given format and 
data type. 


Exit: Returns 


CVTIDY 
Module: APLCMISC, APLOTIDY, APLQMISC 
Called By: CVWKSP 


Description: Collects discarded 
material from VS APL workspace. 


Exit: Returns 


CVVARB 

Module: APLCVARB, APLOVARB, APLQVARB 
Called By: CVWKSP 

Description: Enters APL/4360 variables 
in VS APL workspace; for character, 
translates to VS APL Z-codes; for 
Boolean, reverses bits in every byte. 
Calls: CVRPRT, IESFIND, ITSTSRCH 


Exit: Returns 


CVWKSP 
Module: APLCWKSP, APLOWKSP, APLQWKSP 


Called By: CVINIT 


Description: Finds global objects in 
source workspace; calls appropriate 
routine to convert objects for VS APL 
workspace. 


Calls: CVIBNM, CVLEAR, CVSHIP, 
CVRPRT, CVSAVE, CVGRUP, CVVARB, 
CVFUNC, CVTIDY 


Exit: Returns 


CVNSFN 

Module: APLCWSFN, APLOWSFN 

Called By: CVFUNC 

Description: Replaces APL/7360 WSFN 
with VS APL equivalent in VS APL 
Z-codes (copy transmission format). 


Ex3t: Returns 


DMSSCND 
Module: APLYUSCN 


Called By: Various TSO executor 
modules 


Description: This is the entry point 
of the old parameter list format. It 
transforms an input command line into 
a series of 8-byte parameters. 


Exit: Returns 


DMSSCNN 
Module: APLYUSCN 


Called By: Various TSO executor 
modules 


Description: This is the entry point 
of the new parameter list format. It 
transforms an input command line from 
a string of arguments into a series 
of 8&8-byte parameters. 


Exit: Returns 


ERENDEX 
Module: APLPCOEX 


Called By: VSPC service request and 
internal auxiliary processor routines 


Description: Writes error messages to 
terminal and VSPC online log; ends 


Calls: ERTIMDAT 
Exit: Returns to VSPC CError) 


ERNSGRTN 
Module: APLPSERR 


Called By: All VSPC service request 
handling routines 
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Description: Writes error message to 
VSPC online log. 


Exit: Returns 


ERSAVEAR 
Module: APLPCOEX 


Called By: All VSPC service request 
routines 


Description: Writes error messages to 
terminal and VSPC online log and ends 
execution, when save area block is 
full. 

Calls: ERTIMDAT 


Exit: Returns to VSPC CError) 


ERTIMDAT 
Module: APLPSERR 


Called By: PCSYSER, APLPCENT, 
ERSAVEAR, ERENDEX 


Description: Places time and date in 
VSPC executor work area. 


Exit: Returns 


FREESTOR 
Module: APLPAPGD 


Called By: GDDMCRET, GDDMRCTL, 
GDDMSCTL, GDDMSDAT 


Description: Frees storage blocks 
allocated for buffers by the VSPC 
version of AP 126. 


Calls: Macros APLPENTR, ASUSRQ, 
APLPAPER, and APLPEXIT 


Exit: Returns; ERSAVEAR CError) 





FSMBUZZ 
Module: APLPAPFS 
Called By: APLPAPPR 


Description: For FSM internal 
auxiliary processor (VSPC), notes 
user request to sound the audible 
alarm at the display terminal at the 
next display screen read or write 
request. 


Exit: Returns 
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FSMFORMT 
Module: APLPAPFS 
Called By: APLPAPPR 


Description: Validity checks user's 
FSM field definitions and builds 
FSMFLD entries in FSM auxiliary 
processor work area for FSM internal 
auxiliary processor (VSPC). 


Calls: FSMSUB1, ERMSGRTN, FSMSUBS 


Exit: Returns; ERSAVEAR CError), 
ERENDEX CError) 





FSHGET 

Module: APLPAPFS 

Called By: APLPAPPR 

Description: For FSM internal 
auxiliary processor (YSPC), processes 
user request for data read from 
display screen. 

Calls: ERMSGRTN, FSMSUB1, FSMSUB3 


Exit: Returns; ERSAVEAR (C€Error), 
ERENDEX CError) 





FSMHCOPY 

Module: APLPAPFS 

Called By: APLPAPPR 
Description: For FSM internal 


auxiliary processor CVSPC), processes 
user request to make a hard copy of 
the current display screen. 


Calls: FSMSUB!I, ERMSGRTN 





Exit: Returns; ERSAVEAR CError), 
ERENDEX (CError) 


FSMMINT 

Module: APLPAPFS 

Called By: APLPAPPR 

Description: For FSM internal 
auxiliary processor (VSPC), notes 
user request to modify display 
intensity of defined display screen 
fields. 

Calls: FSMSUBS3 


Exit: Returns 


Y 


c 


S 


L 


C 


FSMMT YPE 

Module: APLPAPFS 

Called By: APLPAPPR 

Description: For FSM internal 
auxiliary processor CVSPC), notes 
user request to modify type of 
defined display screen fields. 
Calis: FSMSUB3 


Exits: Returns 


FSMREAD 

Module: APLPAPFS 

Called By: APLPAPPR 

Description: For FSM internal 
auxiliary processor (VSPC), formats 
display screen if necessary, reads 
from display screen, and returns 
description of user's input. 

Calls: FSMSUB!L, FSMSUB2Z, ERMSGRTN 


Exit: Returns; ERSAVEAR CError), 
ERENDEX (Error) 


FSMRFORM 

Module: APLPAPFS 

Called By: APLPAPPR 

Description: For FSM internal 
auxiliary processor (¢VSPC), processes 
user request for the format of the 
currently defined FSM fields. 


Exit: Returns 


FSMSETC 

Module: APLPAPFS 

Called By: APLPAPPR 

Description: For FSM internal 
auxiliary processor (VSPC), notes 
user request to set cursor at a given 
location on subsequent display screen 
write requests. 

Calls: FSMSUB3 


Exit: Returns 


FSMSUBL 
Module: APLPAPFS 


Called By: FSMFORMT, FSMREAD, FSMGET, 
FSMHCOPY 


Bescription: Allocates additional 
storage from user's VSPC workspace 
quota for FSM internal auxiliary 
processor (VSPC). 

Calls: ERMSGRITN 


Exit: Returns; ERSAVEAR (Error), 
ERENDEX CError) 


FSMSUB2 

Module: APLPAPFS 

Called By: FSMWRITE, FSMREAD 
Description: Builds VSPC display 
screen service request to define 
display screen fields and to write 
data to display screen. 

Calls: FSMSUB1, ERMSGRTN 


Exit: Returns; ERSAVEAR (CError), 
ERENDEX CError) 


FSMSUB3 

Module: APLPAPFS 

Called By: FSMFORMT, FSMWRITE, 
FSMGET, FSMMTYPE, FSMMINT, FSMSETC, 
APLPAPPR, GDDMRCTL 

Description: Converts floating point 
to integer, and flags negative 
values. 


Exit: Returns 


FSMWRITE 

Module: APLPAPFS 

Called By: APLPAPPR 
Description: For FSM internal 


auxiliary processor (VSPC), formats 
display screen if necessary and 
writes to display screen. 

Calis: FSMSUB2, ERMSGRTN, FSMSUB3 


Exit: Returns; ERSAVEAR CError), 
ERENDEX (CError) 


GDDMCRET 
Module: APLPAPGB 


Called By: APLPAPRT 
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Description: VSPC executor routine 
' used to perform cleanup when an AP 
126 CTL variable is retracted. 
Calis: FREESTOR 


Exit: Returns; ERSAVEAR CError) 


GDDMRCTL 

Module: APLPAPGC 

Called By: APLPAPPR 

Description: Main entry point to the 
GDDM auxiliary precessor for VSPC. 
User requests are interpreted, 
processed, and passed to GDDM. For 
more information, see description of 
entry point APL126, which has similar 
logic. 


Calls: APLP126T. FREESTOR, FSMSUB3, 
GDDXINIT, GETSTOR Macro APLPAPSR 


Exit: Returns; ERSAVEAR CError) 


GDDMSCTL 

Module: APLPAPGB 

Called By: APLPAPPR 

Description: Entry point used to 
specify the control variables for the 
previous AP 126 request by moving it 
to the user’s workspace. 

Calls: FREESTOR 


Exit: Returns; ERSAVEAR CError) 


GDDMSDAT 

Module: APLPAPGB 

Called By: APLPAPPR 

Description: Entry point for VSPC AP 
126 to specify DAT variable by moving 
character data to the user's 
workspace. 

Calls: FREESTOR 


Exit: Returns; ERSAVEAR (Error) 


GDDMSOFF 
Module: APLPAPGB 
Called By: APLPAPSF, APLPAPRT 
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Description: Terminates GDDM after 
last path is retracted or during SSM 
sign-off. 

Calls: ERMSGRTN. Macro ASUSRQ 


Exit: Returns; ERSAVEAR (CError), 
ERENDEX CError) 


GDDX 

Module: APLPAPGD 

Called By: GDDMRCTL 

Description: Issues the GDDM request 
for GDDM and GDDX operations in a 
VSPC environment. 


Calls: ERMSGRIN. Macro ASUSR@ 


Exit: Returns; ERSAVEAR CError), 
ERENDEX CError) 


GDDXINIT 

Module: APLPAPGD 

Called By: GDDMRCTL 

Description: Initializes the GDDX 
path for GDDM and GDDX operations in 
a VSPC environment. 


Calls: ERMSGRTN. Macros ASUSRQ, 
APLPAPER, and APLEXIT 


Exit: Returns; ERSAVEAR CError), 
ERENDEX (CError) 


GETSTOR 

Module: APLPAPGD 

Called By: GDDMRCTL 

Description: Allocates storage blocks 
required for buffers by the VSPC 
version of AP 126. 

Calls: ERMSGRTN. Macro ASUSRQ 


Exit: Returns; ERSAVEAR CError), 
ERENDEX CError) 


IABNM 
Module: APLIATRN 


Called By: IEDYB, IACAL370, IAIPROD, 
TAREDU 


escription: Calculates generalized 
combinations using floating-point 
arguments. 


Calls: IAFACT 
Exit: Returns; IEABEND (Error) 


IYACAL3I70 
Module: APLIEXFR 


Called By: Microcode 


Description: Provides a table of 
one-word branches; each corresponds 
to one service; passes control to 
routines to process service or call 
appropriate appendage routine. 


Calis: IATIDY, IAFLCL. IAFACTRL, 
TAROLL, IAIROLL, IAPOW, IALOG, 
TACIRCLE, IARESIDU, IABNM, IADEAL, 
TAQUADS, IAQUADSA, IAQDSPEC, 
IASHRPST, IASHADO, IAENCODE, 
ITADECODE, IAGRADE, IATKDP, IAREDU, 
ITASCAN, IAIPROD, IADYB, IAMDOM, 
IADDOM, IAMFORM, IADFORM, IAMSHARE, 
TADSHARE, IAEXECTE, IAROTA, IAMTRAN, 
TADTRAN, IACOMMA, IACMX, IESTOSTK, 
IELDSTK, IEINDB 


Exit: Returns; IEABEND (Error) 


TACHK 

Module: APLIACHK 

Called By: IASCOPY 

Description: Verifies that data 
passed to the interpreter via the 


shared storage manager is correct. 


Exit: Returns 


TACIRCLE™ 
Module: APLIACIR 


Called By: IEDYB, IAIPROD, IAREDU, 
TACAL370 





Description: Computes trigonometric 
functions (dyadic circle). 


Calls: IALOGR, IAEXPR, IASQRT 
Exit: Returns; IEABEND (Error) 


LTACMX 

Module: APLIECMX 

Called By: IACAL370 
Description: Provides access to 


compress and expand routines for 
microcode. 


Calis: ITECMEX 
Exit: Returns; IEABEND (Error) 


IACOMNMA 

Module: APLIERHO 

Called By: IACAL370 

Description: Provides access to 
laminate and catenate routines for 
microcode. 


Calls: IECOMMA 
Exit: Returns; IEABEND (CError) 


TADDOM 

Module: APLIADOM 

Called By: IEDYAD, IACAL370 
Description: Performs matrix 


division. 


Calls: IESFIND, IESGINIT, IESGETN, 
TASQRT 


Exit: Returns 





TADEAL 
Module: APLIATRN 
Called By: IEDYB, IACAL370 


Description: Calculates a dyadic 
random value. 


Calls: IESFIND, IESGINIT 





Exit: Returns; IEABEND (Error) 


ITADECODE 
Module: APLIADEC 
Called By: IEDYAD, IACAL370 


Description: Performs decode 
operation. 


Calis: IESFIND, ITESGINIT, IESGETN, 
IESFREE, IESGETV, LAPLFUN 


Exit: Returns; IEABEND (CError) 
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IADFORM 
Module: APLIAFOR 
Called By: IEDYAD, IACAL370 


Description: Performs dyadic format 
operation. 


Calls: IAGFMT2, IATOBCD2, IESFIND, 
ITESFREE, IESGETN, IESGINIT 


Exit: Returns; IEABEND CError) 


IADSHARE 

Module: APLIATRN 

Called By: IACAL370, IEDYAD 
Description: Processes dyadic system 
functions; if the function deals with 
shared variables, the appropriate 
routine in APLIASHF is called, 
otherwise the pertinent routine in 
APLIAQFN is called. 

Calls: TAQSVO, IAQSVQ, IAQSVC, IAQNL 


Exit: Returns; IEABEND (Error) 


ITADTRAN 
Module: APLIATSP 
Called By: IEDYAD, IACAL370 


Description: Performs dyadic 
transpose operation. 


Calls: IESFIND, IESGINIT, IESGETN, 
TESFREE 





Exit: Returns; IEABEND 


IADYB 
Module: APLIEFCH 
Called By: IACAL370 


Description: Provides access to outer 
product routine for microcoda. 


Calls: IEDYB 
Exit: Returns; IEABEND CError) 


LAENCODE 
Module: APLIAENC 
Called By: IEDYAD, IACAL370 
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Description: Performs encode 


operation. 


Calls: IESFIND, IESGINIT, IAPLFUN, 
IESGETN, IESGETV, IARESIDU 


Exit: Returns; IEABEND CError) 
TAEXECTE 

Module: APLIATRN 

Called By: IACAL370, IEMONAD 


Description: Executes the execute 
primitive operation. 


Calls: ITEMPFUN, IATIDY, IESFREE 
Exit: Returns; IEABEND CError) 


TAEXNAME 
Module: APLIATRN 


Called By: IENAME 


Description: Extends the address 
table in the operation stack. 


Exit: Returns 


IAEXPR 
Module: APLIATRS 
Called By: IACIRCLE, IAPOW 


Description: Calculates the value of 
EF raised to the specified power. 


Exit: Returns; IEABEND (Error) 


TAEXSTCK 
Module: APLIATRN 


Cajled By: IESCANG, IEFUNN, IESTOSTK, 
IEXARCH, ITEXECUT 


Description: Extends the operation 
stack. 


Exit: Returns 


TAFACT 
Module: APLIATRS 
Called By: IABNM, IAFACTRL 


J 


iS 


we 


Description: Computes the factorial 
of the tndicated argument 


Exit: Returns; IEABEND CError) 


IAFACTRL 
Module: APLIATRN 
Called By: IEMONAD, IACAL370 


Description: Calculates the factorial 
of a floating-point argument. 


Calls: IAFACT 
Exit: Returns 





ITAFCHNAM 
Module: APLIANAM 


Called By: IAQCR, IAQNC, IAQEX, 
TAQSVR, TAQSVC, IAQSVO 


Description: Returns the internal 
name that is indicated by the 
specified row of the character item 
identified in WSMRGETV. 

Calls: IATIDY, ITSTSRCH 


Exit: Returns 


IAFLCL 

Module: APLIATRN 

Called By: IEMONAD, IACAL379 
Description: Calculates the value of 
the floor or ceiling of a 
floating-point argument. 


Exit: Returns; IEABEND CError) 


IAGFHT 

Module: APLIAGFM 

Called By: IAGOUT, IAMFORM 
Description: Determines data typa of 
a given variable and returns the 
output format field width according 
to the type. 

Calls: IALOGR, IATOBCD 


Exit: Returns 


IAGFMT2 
Module: APLIAGFM 
Called By: IADFORM 


Description: Determines data type of 
a given variable and scans every nth 
element (n is user specified) for its 
sign and the maximum magnitude 
information according to the data 
type. 


Calls: IJALOGR, IATOBCD 





Exit: Returns 


IAGOUT 

Module: APLIAGOU 

Called By: IAQDSPEC, ITEXECUT 
Description: Converts elemants of a 
variable to Z-code representation in 
WSMBUFF for terminal output; issues 
YYTYQ service request. 


Calls: IAGFMT, IATOEBCD, APLFXIIM 





Exit: Returns; ITSYSERR CE€rror) 


IAGRADE 
Module: APLIAGRD 
Called By: IEMONAD, IACAL370 


Description: Performs grade-up and 
grade-~down operations. 


Calls: IESFIND, IESGINIT, IESGETN, 
IESFREE 


Exit: Returns; IEABEND CError) 


IAHTSPEC 
Module: APLIASYV 


Called By: IASYSPEC, IAUNSHAD, 
IASYSPST 


Description: Validates specified tab 
settings; sends valid settings or 
null settings to executor. 

Calls: IESGINIT, IESGETN, APLFXIIM, 
IARTOI 

Exit: Returns 
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IAIPROD 

Module: APLIAPRD 

Called By: IACAL370, IEDYAD 
Description: Performs the inner 
product (matrix product) operation 
with the following combinations of 
arguments: vector/array, 
array/vector, array/Zarray. 


Calls: IESFIND, IESFREE, IARESIDU, 








IABNi1, IAPOW, IALOG, IACIRCLE 
Exit: Returns; IEABEND CError) 
IAIROLL 


Module: APLIATRN 
Called By: IEMONAD, IACAL370, IAROLL 


Description: Calculates a monadic 
random from an integer argument. 


Exit: Returns; JEABEND ¢CError) 


IALOS 
Module: APLIATRN 


Called By: IEDYB, IACAL370, IAIPROD, 
IAREDU 


Description: Calculates the logarithm 
of a floating-point argument. 


Calis: IALOGR 





Exit: Returns 


IALOGR 
Module: APLIATRS 


Called By: IACIRCLE, IAPOW, IALOG, 
IAGFMT, IAGENT2 


Description: Calculates the value of 
the natural logarithm of the 
argument. 


Exit: Returns; IEABEND CError) 


IAMDOM 
Module: APLIADOM 
Called By: IEMONAD, IACAL370 


Description: Performs matrix 
inversion operation. 
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Calls: ITESFIND, IESGETN, IESGINIT, 
TASQRT 


Exit: Returns 


IAMFORM 
Module: APLIAFOR 
Called By: IEMONAD, IACAL370 


Description: Performs monadic format 
operation. 


Calls: IAGFMT, IATOBCD, IESFIND 
Exit: Returns; IEABEND CError) 


TAMSHARE 
Module: APLIATRN 
Called By: IACAL370, JEMONAD 


Description: Processes monadic system 
functions; if the function deals with 
shared variables, the appropriate 
routine in APLIASHF is called, 
otherwise the appropriate routine in 
APLIAQFN is called. 


Calls: IAQSVO, IAQSVC, IAQSVR, IAQFX, 
TAQSVQ;, IAQCR, IAQEX, IAQDL, IAQHL, 
ITAQNC 


Exit: Raturns; IEABEND CError) 





TAMTRAN 

Module: APLIATSP 

Called By: IEMONAD, IACAL370 
Description: Performs monadic 


transpose operation. 


Calls: IESFIND, IESGINIT, IESGETN, 
IESFREE 


Exit: Returns; IEABEND 





IAPLFUN 

Module: APLIATRN 

Called By: IASCAN, IADECODE, IAENCODE 
Description: Finds the internal name 
for internal embedded VS APL 
functions. 


Cails: IESNAME 


Exit: Returns; IEABEND, ITSYSERR 
CError) 


TAPOW 
Module: APLIATRN 


Called By: IEDYB, IACAL370, IAIPROD, 
TAREDU 


Description: Performs exponentiation 
for a floating-point argument. 


Calis: JAEXPR, IALOGR, IASQRT 
Exit: Returns; IEABEND CError) 


TAQCR 
Module: APLIAQFN 


Called By: IAMSHARE 


Description: Produces the canonical 
form of a function. 


Calls: IAVALNAM, IAFCHNAM, IESFIND, 
ITPRLINE, IESFREE 


Exit: Returns; IEABEND, ITSYSERR 
(Error) 


TAQDL 

Module: APLIAQEN 

Called By: IAMSHARE 

Description: Delays the processing of 
a function for a specified interval; 
issues YYDELAY servica request. 


Calls: JESGINIT, IESFIND, APLFXIIM 
Exit: Returns; IEABEND CError) 


ITAQDSPEC 
Module: APLIATRN 
Called By: IACAL370, IESCANG 


Description: Processes the following 
kinds of output: quad, quad prime; 
shared variable specifications, and 
system variable specifications. 


Calls: IAGOUT, IASHSPEC, -.IASYSPEC 
Exit: Returns; TEABEND (CErrcr) 





IAQEX 
Module: APLIAQFN 
Called By: IAMSHARE 


Description: Performs the quad-EX 
function; that is, it erases the 
local value of names. 


Calls 


TESFIND 


ITAVALNAM, IAFCHNAM, ITDELETE, 


IESF 
Exit: Returns; IEABEND (Error) 





IAQFX 

Module: APLIAQFN 

Called By: IAMSHARE 

Description: Establishes a function 
definition from the function’s 


canonical form. 


Calls: ITLINEG, ITOKENIZ, ITCLOSET, 
IESFIND, ITDELETE, IATIDY 


Exit: Returns; IEABEND, ITSYSERR 
) 


ITAQNC 
Module: APLIAQFN 
Called By: IAMSHARE 


Description: Classifies the current 
typas of name. 


Calis: ITAVALNAM, TAFCHNAM, IESFIND 





Exit: Returns; IEABEND (Error) 


TAQNL 
Module: APLIAQFH 





Called By: IAMSHARE, IADSHARE 
Description: Performs the quad-Nt 
system functian;s that is, returns a 
character matrix of variable namas. 


Calis: IESGINIT, ITESGETN, IESFIND 





Exit: Returns; TEABEND CError) 


odule: APLIASHF 





Called By: IAMSHARE, IADSHARE 


Description: Executes both the 
monadic and dyadic auad-SVC 
functions. 


7 APLFXIIM, IAVALNAM, IAFCHNAM, 


Cal 
I ND, IESGINIT, IESGETN 


alis 
ESFI 
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Exit: Returns; IEABEND, ITSYSERR 
(Error) 


IAQSVO 

Module: APLIASHF 

Called By: IAMSHARE, IADSHARE 
Description: Executes both the 
monadic and dyadic quad-SV0 
functions. 

* Calls: IESGETN, APLFXIIM, IAVALNAM, 
IAFCHNAM, IASVON, IASFIND, IESGINIT, 
IESFREE, IESGETV, IESFIND, IARTRACT 


Exit: Returns; IEABEND, ITSYSERR 
CError) 


TAQSVQ 

Module: APLIASHF 

Called By: IAMSHARE, IADSHARE 
Description: Executes both the 
monadic and dyadic quad-SVQ 


functions. 


Cails: APLFXIIM, IASVON, IATIDY, 
ZTESGINIT, IESGETN,. IESFIND, IESFREE 


Exit: Returns; IEABEND, ITSYSERR 
¢ 


rror) 





TAQSVR 
Module: APLIASHF 
Called By: TAMSHARE 


Description: Executes the monadic 
quad-SVR function. 


Calls: ITAVALNAM, IAFCHNAM, IASCOPY, 
TARTRACT, IESFIND 


Exit: Returns; IEABEND CError) 


TAQUADS 
Module: APLIATRN . 
Called By: IACAL370, IESCANG 


Description: Processes the following 
kinds of input: quad, quad prime; 
shared variable reference, and system 
variable reference. 


Calls: IASCOPY, IASYSREF, IESFIND, 
ITINPUT 
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Exit: Returns; 


CError) 


TAQUADSA 


IEABEND, 


Module: APLIATRN 


Called By: IACAL370, 


ITSYSERR 


TESCANG 


Description: References shared or 


system variables for subscripted 


specification. 
Calls: IASCOPY, 


Exit: Returns; 


TAREDU 


ITASYSREF 


TEABEND 


Module: APLIARED 


Called By: IESCANG, 


CError) 


TACAL370 


Description: Performs reduction 


operation. 


Calls: IAPOW, IARESIDU, 


IACIRCLE, IESFIND, 


IESFREE, IESGETV 


Exit: Returns; 


TARESIDU 


ITEABEND 


Module: APLIATRN 





Called > IEDYB, 


IACAL370, IAENCODE 


IABNM, IALOG, 


IESGETN, IESGINIT, 


(Error) 


TAREDU, IAIPROD, 


Description: Caiculates residue for 
floating-point arguments. 


Exit: Returns 


TAREVARY 


Module: APLIAROT 


Called By: ITEMONAD 
Description: Handles reversal of 


arrays by either performing the 
operation or by returning with a 
request for subscripting. 


ITESGINIT, IESFREE, 


Calls: IESFIND, 
IESGETN 


Exit: Returns; 
(Error) 


TEABEND, 


ITSYSERR 


4 


~ 


TAROLL 

Module: APLIATRN 

Ca d >: IEMONAD, IACAL370 
Description: Calculates monadic 
random value from a floating-point 
argument. 


Calls: IAIROLL 
Exit: Returns; IEABEND CError) 


TAROTA 
Module: APLIAROT 
Called By: IEDYAD, IACAL370 


Description: Handles all cases of 
rotation of variables by either 
performing the operation or by 
returning with a request for 
subscripting. 


calls” TESFIND, TESGINIT, IEGFREE, 
ET 


Exit: Returns; IEABEND, ITSYSERR 
¢ 


ITARTOI 
Module: APLIASYV 


Called By: IASYSPEC, IAHTSPEC, 
ITAUNSHAD 


Description: Converts real value to 
integer. 


Exit: Returns 


ITARTRACT 
Module: APLIASHV 


Called By: IAQSVR, IASHRPST, YAQSVO, 
ITDELETE 


Description: Retracts or "“unshares" a 
shared variable; issues YYS§RET 
service request. 

Calls: APLFXIIM, IAUNSHR 


Exit: Returns; ITSYSERR ¢CError) 





TASCAN 
Module: APLIASCN 
Called By: IESCANG, IACAL370 


Description: Performs scan operation. 


Calls: IAPLFUN, IESFIND, IESFREE, 
ITESGINIT, IESGETN 


Exit: Returns; IEABEND CError) 


ITASCOPY 
Module: APLIASHV 


Called By: IAGSVR, IAQUADS, IAQUADSA, 
ITSHV 


Description: References a shared 
variable by issuing YYSREF service 
request. 


Calls: APLFXIIM, IACHK, IESFIND, 
ITESFREE, IATIDY, IESNAME, IASFIND 


Exit: Returns: ITSYSERR CError) 





TASFIND 
Module: APLIANAN 


Called By: IASYSPEC, IASYSREF, 
TASHSPEC, IAQ5V0, IASCOPY 


Description: Creates a named 
temporary copy of a value described 
by a stack entry argument. 


Calls: IESNAME, IESFIND, IESFREE 
Exit: Returns 


YASHADO 

Module: APLIASYV 

Called By: ITEFUNN, IACAL370 
Description: Sends null tab settings 
to executor when quad-HT is 
localized. 


Calis: APLFXIIM 
Exit: Returns 


TASHRPST 
Module: APLIATRN 
Called By: IACAL370, IEUNFN, IYEINDD 


Description: Performs one of the 
following actions: complete shared 
variable subscripted specification, 
completes system variable subscripted 
specification, retracts and unshares 
shared variable locals, or unshadows 
system variable local to a defined 
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function. 


Calls: IASYSPST, IAUNSHAD, IARTRACT, 
TASHSPEC 


Exit: Returns 


IASHSPEC 

Module: APLIASHV 

Called By: IAQDSPEC, IASHRPST 
Description: Specifies a shared 


variable by issuing YYSPEC service 
request. 
Calis: APLFXIIM, IASFIND, IESFREE 


Exit: Returns; IEABEND, ITSYSERR 
(Error) 





IASQRT 
Module: APLIATRS 


Called By: IACIRCLE, IAPOW, IAMDOM, 
TADDOM 


Description: Calculates the square 
root of an argument. 


Exit: Returns; IEABEND (CError) 


YASVOFF 

Module: APLIASHV 

Called By: ITCMOFF, APLINIT 
Description: Issues a YYSOFF service 
request to sign off from the shared 
variable’ processor. 


Calls: APLFXIIM 
Exit: Returns; ITSYSERR (CError) 


IASVON 

Module: APLIASHV 

Called By: IAQSVO, IAQSVQ 
Description: Issues a YYSON service 
request to access the shared variable 
processor. 


Calis: APLFXIIM 
Exit: Returns; ITSYSERR CError) 
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TASYSPEC 
Module: APLIASYV 


Called By: JAQDSPEC 


Description: Assigns a new value to a 
system variable. 


Calls: IAHTSPEC, IASFIND, IARTOI, 
APLFXIIM, IESGETV, ITESGINIT, ESFIND, 
TESFREE 


Exit: Returns; IEABEND (CError) 


ITASYSPST 
Module: APLIASYV 
alled B IASHRPST 


Description: Completes subscripted 
specification of a system variable. 


Calls: IESGETV, IAHTSPEC, IESFREE 
Exit: Returns 


IASYSREF 

Module: APLIASYV 

Called By: IAQUADS, IAQUADSA 
Description: Processes system 
variable references; obtains current 
value of system variable. 


Calis: APLFXIIM, IASFIND, IATIDY, 
IESFIND, ITTIMSUB, ITFNLNO, USASH 


Exit: Returns; IEABEND (Error) 


IATABREF 
Module: APLIASYV 


Called By: APLIINIT 
Description: Gets current tab 


settings from executor; assigns value 
to quad-HT. 
Calls: IESFREE, IESFIND, APLFXIIM 


Exit: Returns 





IATIDY 
Module: APLIATRN 
lled By: IEFIND, IACAL370, 


Cal 
IAEXECTE, IAFCHNAM, IAQFX, IAQSVQ, 
IASCOPY, IASYSREF, ITCMGROU, 


ITCMSYMB, ITSAVWS, ITCOPIN, ITINPUT 


Description: Collects active value 
blocks in the low address end of free 
space to maximize the size of the 
unallocated block in free space; it 
adjusts the address table entries to 
reflect the change. 


Exit: Returns; ITSYSERR CError) 


ITATKDP 
Module: APLIATAK 
Called By: IETKDP, IACAL370 





Description: Handles cases of take 
and drop where the left argument is 
either a vector of zero, or a vector 
containing mere than one element. 


Calis: IESGINIT, IESGETN, IESFREE, 
TESFIND 


Exit: Returns; IEABEND CError) 





IATOSCD 
Module: APLIATBC 


Called By: TAGOUT, IAMFORM, ITCMQUOT, 
ITCMNSSI, ITPRWSID, ITCMSTAC, 
TTCMSYMB, IAGFMT, ITEXECUT, ITLIBMSG, 
ITPRLINE, ITPRNUM, ITAGFMT2 





Description: Determines internal type 
of a given data element; converts the 
element to Z-codes according to its 
format and data type. 


Exit: Returns 


IATOBCD2 
Module: APLIATBC 


Called By: IADFORM 


Description: Accepts a floating-point 
value as input and converts it to 
decimal representation according to a 
given format; determines the number 
of significant digits in the decimal 
exponent and returns this value to 
the calling routine. 


Exit: Returns 


TAUNSHAD 
Module: APLIASYV 
Called By: IASHRPST 


Description: Unshadows a system 
variable; discards local value; 
restores shadowed value. 


Calis: APLFXIIM, IESFREE, IESGETV, 
ITAHTSPEC, IARTOI 


Exit: Returns 


IAUMSHR 
Module: APLIASHV 
Called By: IARTRACT, ITSHV 


Description: Removes the shared 
status from variable. 


Calls: IESFREE 





Exit: Returns 


ITAVALNAM 
Module: APLIANAM 


Called By: ITAQNC, IAQEX, IAQCR, 
TAQSVO, IAQSVR, TAQSVC 


Description: Validates the right 
argument of the following quad 
functions: CR, EX, NC, SVC, SVR, SVO. 


Exit: Returns 


TEABEND 
Module: APLIEXAR 


Called By: Exarch and appendage 
routines 


Description: Processes abnormal 
termination or request for translator 
service. 


Exit: IEXIT 





ITECHIX 
Module: APLIEMND 
Called By: ITECMEX, IEMONAD, IESCANG 


Description: Checks index of indexed 
operator. 


Exit: Returns; IEABEND CError) 


IECMEX 
Module: APLIECMX 
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Called By: IACMX, IEDYAD 


Description: Carries out compress or 
expand primitive. 


Calls: IEGINITL, TEGETNI, IEGTSPAC, 
IECHIX 


Exit: IESCANG, IEABEND (Error) 


IECOMMA 
Module: APLIERHO 
Called By: IACOMMA, IEDYAD 


Description: Performs the catenate 
ond laminate operations. 


Calls: IEGTSPAC, IECOPY 
Exit: IESCANG, IEABEND (Error) 


IECONVR 
Module: APLIEFCH 


alled By: IEGINITI, IEGINITL, 
EGETNI, IEGETNL, IESCANG 


Description: Converts a real value to 
an integer. 


Exit: Returns; IEABEND (Error) 


TECOPY 
Module: APLIERHO 


Called By: TECOMMA, IEINDD, IERSHP, 
IETKDP 


Description: Copies elements from one 
free space entry to another with data 
conversion if necessary. 


Calls: IEGINITR, IEGETNR, IEGETNI 





Exit: Returns 


IEDATTN 

Module: APLIEFXR 

Called By: Microcode 

Description: Handles double attention 
or quantum end discovered by 


microcode. 


Exit: ITEABEND 
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IEDYAD 

Module: APLIESCA 

Called By: IEMONAD, IESCANG 
Description: Sets up arguments for 
dyadic operations. Calls or exits to 
routine that performs them. 

Calls: IEGETV, IAENCODE, IAROTA, 
IADSHARE, IADTRAN, IADDOM, IADFORM, 
IADECQDE, IAIPROD 

Exit: IEDYB, IERSHP, IETKDP, 


IEEPSIOT, IECMEX, IECOMMA, IEINDB, 
IEABEND CError) 


IEDYB 
Module: APLIEFCH 
Called By: IEDYAD, IADYB 


Description: Performs dyadic scalar 
and outer product operations. 


Calls: IEGETV, IEGINITI, IEGINITL, 
IEGINITR, IEGETNI, IEGETNL, IEGETNR, 
IAPOW, IACIRCLE, IEGTSPAC, IESPACST, 
IEFIND, IEFREE, IADEAL, IARESIDU, 
TABNM, IALOG 


Exit: ITESCANG, IEABEND (Error) 


IEEPSIOT 
Module: APLIEPSI 
Called By: IEDYAD, IADYB 


Description: Carries out membership 
and "index of" operations. 


Calls: IESPACST, ITEGINITR, IEGETNR 
Exit: ITESCANG, TEABEND (Error) 


IEFIND 
Module: APLIESPA 


Called By: IEGTSPAC, IESFIND, IEDYB, 
IEINDD, IEMONAD, TESCANG, IESYNN 


Description: Allocates a block of 
free space and the next available 
internal name. Input is length in 
bytes. 


Calls: ITENAME, IATIDY 
Exit: Returns; IEABEND (CError) 





J 


L 


re 


cL 


S 


IEFREE 

Module: APLIESPA 

Called By: IESFREE, IEDYB, IEGOGOMN, 
IEGOGOSC, IEINDD, IEMONAD, IESCANG, 
IEUNFN 

Description: Frees an object. Frees 
internal name if temporary, and block 
of free space if remote. 


Exit: Returns. 


ITEFUNN 

Module: APLIEFNM 

Called By: IESCANG 

Description: Builds a function call 
block on the operation stack and 
prepares to execute a function. 


Calls: IEGETV, IESYNN, IAEXSTCK, 
TASHADO 


Exit: JESCANG, IEABEND (CError) 


IEGETNI 
Module: APLIEFCH 


Called By: IESGETN, IECMEX, TIECOPY, 
TEDYB, IEINDD, IEMONAD, ITERSHP 


Description: Gets the next element of 
a multi-element argument, or the only 
element of a single-element argument 
and returns the integer value for 
that argument. 


Calls: IECONVR 
Exit: Returns; IEABEND (Error) 





ITEGETNL 
Module: APLIEFCH 
Called By: IESGETN, IEDYB 


Description: Gets the next element of 
a multi-element argument, or the only 
element of a single-element argument 
and returns the integer value for 
that argument. 


Calls: IECONVR 
Exit: Returns; IEABEND CError) 


TEGETNR 
Module: APLIEFCH 


Called By: IESGETN, IECOPY, IEDYB, 
TEEPSIOT, IEMONAD 


Description: Gets the next element of 
a multi-element argument, or the only 
element of a single-element argument 
and returns the integer value for 
that argument. 


Exit: Returns 


IEGETV 

Module: APLIEFCH 

Called By: IESGETV, ITEDYAD, IEDYB, 
ITEFUNN, IEINDD, IEMONAD, IERSHP, 
TESCANG 


Description: Sets up argument block 
for fetching of elements. 


Exit: Returns; IEABEND (Error) 


IEGINITI 
Module: APLIEFCH 


Called By: IESGINIT, IEDYB, IEGOGOMN, 
TEINDD, IEMONAD, IERSHP, IETKDP 


Description: Gets the first element 
of an argument, and returns the 
integer value for that element. 
Calls: IECONVR 


Exit: Returns; IEABEND (Error) 


ITEGINITL 

Module: APLIEFCH 

Called By: IESGINIT, ITECMEX, IEDYB 
Description: Gets the first element 
of an argument, and returns the 
logical value for that argument. 


Calls: IECONVR 
Exit: Returns; IEABEND (CError) 


IEGINITR 
Module: APLIEFCH 


Called By: IESGINIT, IECOPY, IEDYB, 
TEEPSIOT, IEINDD, IEMONAD 
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Description: Gets the first element 
of an argument, and returns the real 
value for that element. 


Exit: Returns; IEABEND (Error) 


IEGOGOMN 
Module: APLIEFNM 
Called By: IEMONAD 


Description: Processes a normal 
branch operation. 


Calls: IEFREE, IEGINITI 


Exit: IESCANG, IEUNFN, IEXIT, IEABEND 
(Error) 





IEGOGOSC 
Module: APLIEFNM 
Called By: IESCANG 


Description: Processes fast branch 
operation. 


Calls: IEFREE 


Exit: IESCANG, IEUNFN, IEXIT, IEABEND 
(Error) 


IEGTSPAC 
Module: APLIESPA 


Called By: IESPACST, IECMEX, IECOMMA, 
IEDYB, IEINDD, IEMONAD, IERSHP, 
IETKDP 


Description: Allocates a block of 
free space and the next available 
internal name. Input is descriptor, 
element count, and rank. 


Calls: IEFIND 





Exit: Returns; IEABEND CError) 


ITEINDB 
Module: APLIEIDX 
Called By: IACAL370, IEDYAD, IEMONAD 


Description: Completes the transpose 
and rotate operations. 


Calis: IEINDD 
Exit: IESCANG, IEABEND (Error) 
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ITEINDD 

Module: APLIEIDX 

Called By: IEINDB, IESCANG 
Description: Performs subscripted 
reference and subscripted assignment 
type of subscripting. 

Calls: IJEGETV, IEGINITI, IEGETNI, 
IEGINITR, IEFIND, IEGTSPAC, IESPACST, 
IEFREE, IECOPY, IASHRPST 


Exit: IESCANG, IEABEND (Error) 





TELDSTK 
Module: APLIEXAR 
Called By: IACAL370, ITEXARCH 


Description: Loads microcode stack 
registers from operation stack. 


Exit: Returns 


IEMONAD 
Module: APLIEMND 
Called By: IESCANG 


Description: Performs some monadic 
operations. Calls or exits to 
routines that perform other monadic 
operations. 


Calls: IESPACST, IEGTSPAC, IEFIND, 
IESYNN, IECHIX, IENAME, IEFREE, 
IEGETV, IEGINITI, IEGINITR, IEGETNI, 
IEGETNR, IAREVARY, IAIROLL, IAROLL, 
IAFACTRL, IAFLCL, IAGRADE, IAEXECTE, 
IAMTRAN, IAMDOM, IAMFORM, IANSHARE 


Exit: IEDYAD Cmonadic operations done 
as dyadic), IEGOGOMN (branch), IEINDB 
Creverse, transpose), IESCANG 


Cooperation completed), IEABEND 
CErroar) 


I ENAME 
Module: APLIESPA 


Called By: IEFIND, IESFIND, IESNAME, 
AD,» IEUNFN, IESCAN 


Description: Finds the next available 
entry in the address table. 


Calls: IAEXNAME 
Exit: Returns; IEABEND CError) 





IERSHP 
Module: APLIERHO 


Called By: IEDYAD 


Description: Performs the reshape 
operation. 


Calls: IEGETV, IEGINITI, IEGETNI, 
IEGTSPAC, IECOPY 


Exit: IESCANG, IEABEND (Error) 


IESCANG 
Module: APLIESCA 


Called By: IEXARCH, IECMEX, IEINDD, 
IEMONAD, IEEPSIOT, IECOMMA, IERSHP, 
IETKDP, IEDYB, IEFUNN, IEGOGOMN, 
IEGOGOSC, IEUNFN 


Description: Basic interpreter 
module; receives control when there 
1s a function statement to be scanned 
and executed; scans the statement; 
does syntax analysis; selects next 
action to be performed; processes 
result of an operation; resumes 
statement scan. 


Calls: IEFIND, IEFREE, IEGETV, 
IECHIX, ITECONVR, IESYNN, IENAME, 
IAEXSTCK, IAREDU, IASCAN, IAQUADS, 
ITAQUADSA, IAQDSPEC 


Exit: IEDYAD (dyadic operations), 
IEMONAD (monadic operations), IEINDD 
Csubscripting), IEFUNN (function 
call), IEGOGOSC (branch), IEXIT Cend 
of input), IEABEND CError) 


IESFIND. 

Module: APLIESPA 

Called By: Appendage and translator 
routines 


Description: Provides access to 
IENAME and IEFIND for non-exarch 
routines. 

Calls: IENAME, IEFIND 


Exit: Returns 


IESFREE 
Module: APLIESPA 


Called By: Appendage and translator 
routines 


Description: Provides access to 


IEFREE for non-exarch routines. 


Calls: IEFREE 
Exit: Returns 


ITESGETN 

Module: APLIEFCH 

Called By: IADECODE, IAENCODE, 
IASYSPEC, IASYSPST, IAUNSHAD, IAQSVO, 
IAREDU 

Description: Provides access to 
IEGETNI, IEGETNL, and IEGETN for 
non-exarch routines. 

Calls: TEGETNI, IEGETNL, IEGETNR 


Exit: Returns; IEABEND (Error) 


IESGETV 

Module: APLIEFCH 

Called By: IADECQDE, IAENCODE, 
IASYSPEC, IASYSPST, IAUNSHAD, IAQSVOQ, 
IAREDU 


iption: Provides access to 
IEGETV for non-exarch routines. 


Calls: IEGETV 
Exit: Returns; IEABEND CError) 


ITESGINIT 

Module: APLIEFCH 

Called By: Appendage routines 
Description: Provides access to 
IEGINITI, IEGINITL, and IEGINITR for 
non-exarch routtnes. 


Calls: IEGINITI, IEGINITL, IEGINITR 
Exit: Returns; IEABEND (Error) 


IESNAME 

Module: APLIESPA 

Called By: IASFIND, IAPLFUN, IASCOPY 
Description: Provides access to 
IENAME for use of non-exarch 


routines. 


Calls: IENAME 
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Exit: Returns 


TES 
Module: APLIESPA 
ljed By: IEDYB, IEEPSIOT, IEINDD, 





Description: Allocates a block of 
free space and the next available 
Internal name. Input is descriptor 
and model variable. 

Calis: IEGTSPAC 


Exit: Returns; JEABEND CError) 


YTESTOSTK 

Mocluula: APLIEXAR 

Called By: IACAL370, IEXARCH 
Description: Stores microcode 

reg ster stack items in operation 


Calls: IAEXSTCK 
Exit: Returns; IEABEND CError) 


ITESUNFUN 
Module: APLIEFNM 
Called By: ITERRORS 


Description: Removes function call 
block from the operation stack. 


Calis: IEUNFN 





Exit: Returns 


TESYNN 
Module: APLIESPA 
Called By: IEFUNN, IEMONAD, IESCANG 


Description: Makes a copy or a 
synonym of a variable. 


Calis: IEFIND 
Exit: Returns; IEABEND CError) 


TETKOP 
Module: APLIETAK 
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Called By: IEDYAD 

Description: Performs take and drop 
operations; if the left argument is 
greater than one element, or 15 a 
vector of zero elements, IATKDP is 
called. ; 


Calls: IEGINITI, IEGTSPAC, IECOPY, 


IESCANG, IEABEND CError) 


IEUNFN 
Modula: APLIEFNM 
Called By: IESUNFUN, IEGOGOMN, 

C 
Description: Removes a function call 
block from the operation stack; 
restores the workspace to its status 
at the time the function was called. 


Calis: IEFREE, IENAME, IASHRPST 
Exit: IESCANG, IEABEND (Error) 





TEXARCH 
Module: APLIEXAR 
Called By: ITEXECUT 


Description: Sets up operation stack 
for exarch or microcode, calls one. 

If microcode called, handles return 

to translator. 


Calls: IAEXSTCK, IESTOSTK, IELDSTK, 
Microcode 


Exit: IESCANG (CExarch), IEXIT (End of 
input), ITEABEND (Error) 





YTEXIT 


Module: APLIEXAR 


Called By: IESCANG, IEABEND, 
IEGOGOSC, LEGOGOMN, IEXARCH 


Description: Returns to translator 
when error 31s found, for services 
(print, trace, stop, escape, 
attention), or end of operation 
stack. 


Exit: Returns to ITEXECUT 


ITBFTYG 


Module: APLITSUB 


Called By: ITERRORS, ITFDEDIT, 
ITCMSI, ITCMSINL 


Description: Prints via YYTYO service 
request, the contents of WSMBUFF. 


Calls: APLFXIIM 
Exit: Raturns 


ITBLDID 


Module: APLITIDS 


Called By: ITSTSRCH, ITBLDQD, 
ITSYSCMD 


Description: Isolates a printname 
string and determines its length; 


those characters beyond the maximum 
length are ignored. 


Exit: Returns 


ITBLDQD 
Module: APLITIDS 


Called By: ITLINEQ, ITOKENIZ, 
ITFDNWLN 


Description: Validates a name 
beginning with a QUAD, and translates 
it to a token, 


Calls: ITBLDID 


Exit: Returns 


ITCKALPN 
Module: APLITSUB 
Called By: ITCMGROU, ITCMERAS 


Description: Checks a string of 
characters for itnitial alphabetic, 
followed by alphameric. 


Exit: Returns 


ITCLOSET 
Module: APLITFDC 


Called By: ITFDCLOS, ITCOPIN, IAQFX, 
CVFUNC, CVSHIP, ITFDOPEN 


Description: Finds space for a 


function object, and returns a 
temporary name. 


Calls: IESFIND 


\ 


Exit: Returns 


ITCMCLEA 
Module: APLITCML 
Called By: ITSYSCMD 


Description: Executes the )CLEAR 
command. 


Calls: APLFXIIM. ITLIBMSG 


Exit: Returns 


ITCMCONT 
Module: APLITCMT 
Called By: ITSYSCMD 


Description: Executes the )CONTINUE 
command. 


Calls: ITSAVWS, ITCMOFF 
Exit: Returns: ITINPINI Ccommand 


issued in quad-input), ITSYSERR 
CError) 


ITCHCOPO 
Mocuule: APLITCPO 
APLIINIT 





Called 8 
Description: Transmits objects from a 
copy source tiorkspace to a copy sink 
workspace via a YYCOPO service 
request. 


Calis: ITPRLINE, ITSTSRCH, APLFXIIM, 
ITUSAG 


Exit: Returns; ITSYSERR CError) 


ITCHCOPY 
Module: APLITCMC 
Called By: ITSYSCMD 


Description: Initiates and terminates 
JCGOPY command processing. 


Calls: ITCOPIN, ITLIBMSG, APLFEXIIM 
Exit: Returns; ITSYSERR CError) 





ITCMDOST 
Module: APLITCMS 
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Called By: ITCMSTAC, ITCMSYMB 


Description: Relocates the pointers, 
and moves the stack area or symbol 
table area around when a change in 
size has been indicated. 


Calls: ITSQUIRT 





Exit: Returns 


ITCMDROP 
Module: APLITCML 
Called By: ITSYSCMD 


Dascription: Executes the )JDROP 
cominand. 


Calis: APLFXIIM, ITLIBMSG 


Exit: Returns 


ITCMERAS 
Module: APLITCME 


Called By: ITSYSCMD 


Description: Prepares for execution 
of JERASE command; calls ITDELETE 
routine to complete processing. 


Calls: ITSTSRCH, ITNAMINI, ITUSAG;, 
TTSQUIRT, ITDELETE, ITPRINTC, ITLOUT, 
IESFREE, APLFXIIM, ITCKALPN 





Exit: Returns; ITSYSERR (Error) 


ITCMFNS 
Module: APLITCMF 
Called By: ITSYSCMD 


Description: Calls ITCMFVG to print a 
YFNS report. 


Calls: ITCMFVG 
Exit: Returns 


ITCHFVG 
Module: APLITCMF 


Called By: ITCMFNS, ITCMVARS, 
ITCHGRPS 


Description: Executes the )FNS, 
JVARS, and JGRPS commands; it finds, 
sorts, and prints the object names. 
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Calis: ITUSAG, ITXBLNL, ITSQUIRT, 


Exit: Returns 


ITCMGROU 
Module: APLITCMG 
Called By: ITSYSCMD 


Description: Executes the )GROUP 
command. 


Calls: ITSTSRCH, ITUSAG, IESFIND, 
ITLOUT, APLFXIIM, IATIDY, IESFREE, 
ITSQUIRT, ITPRINTC, ITCKALPN 


Exit: Returns 


ITCMGRP 
Module: APLITCMG 
Called By: ITSYSCMD 


Description: Executes the )GRP 
command. 


Calls: ITPRINTC, ITUSAG, ITSTSRCH, 
ITPRNAME, ITLOUT 


Exit: Returns; ITSYSERR CError)?) 


ITCMGRPS 
Module: APLITCMF 
Called By: ITSYSCMD 


Description: Calls ITCMFVG to print a 
IGRPS report. 


Calls: ITCMFVG 


Exit: Returns 


ITCHLIB 
Module: APLITCML 
Called By: ITSYSCMD 


Description: Executes the ILIB 
comnand. 


Calls: APLFXIIM, ITLOUT, ITLIBMSG 


Exit: Returns 


J 


J 


ITCMLGAD 
Module: APLITCML 
Called By: ITSYSCMD, APLIINIT 


Description: Executes the )LOAD 
command. 


Calis: APLFXIIM, ITLIBMSG 
Exit: Returns 


ITCMMSG 
Module: APLITCMT 
Called By: ITSYSCMD 


Description: Executes the JMSG 
command. 


Callts: APLFXIIM 
Exit: Returns; ITFORCOF 


ITCMOFF. 
Module: APLITCMT 
Called By: ITCMCONT, ITSYSCMD 


Description: Executes the JOFF 
command. 


Calls: IASVOFF, APLFXIIM, ITLIBMSG 
Exit: Returns; ITSYSERR (Error) 


ITCHOPR 

Module: APLITCMT 

Called By: ITSYSCMD 
Description: Executes the )QOPR 


command. 
Calls: APLFXIIM 
Exit: Returns; ITFORCOF 


ITCMPCOP 
Module: APLITCMC 
Called By: ITSYSCMD 


Description: Initiates and terminates 
JPCOPY command processing. 


Calls: ITCOPIN, ITLIBMSG, APLFXIIM 


Exit: Returns; ITSYSERR (CError) 


ITCMQUOT 
Module: APLITCML 
Called By: ITSYSCMB 


Description: Executes the )QUOTA 
command. 


Calis: TATOBCD, ITLOUT, APLFXIIM 


Exit: rxeturns 


ITCHSAVE 
Module: APLITCML 
Called By: ITSYSCMD 


Description: Executes the )SAVE 
command. 


Calls: ITSAVWS 


Exit: Returns; ITINPINI Ccommand 
7ssued in quad~-input) 


ITCMSI 
Module: APLITCMI 
Called By: ITSYSCMD 





Description: Executes the )SI 
command. 


Calls: ITPRINTC, ITPRNAME, ITPRNUM, 
ITXBLNL, ITFHLNO, ITSQUIRT, ITUSASH, 
ITBFTYO 


Exit: Returns; ITSYSERR CError) 


ITCHSINL 
Mocule: APLITCMI 


Called By: ITSYSCMD 


Description: Executes the )SINL 
command. 


Calls: ITPRINTC, ITFNLNO, ITPRNUM, 


XBLNL, ITPRNAME, ITSQUIRT, ITUSASH, 
ITBFTYO 


Exit: Returns; ITSYSERR (CError). 


— 


ITCMSTAC 
Module: APLITCMS 
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Caljed By: ITSYSCMD 
Description: Executes the )STACK 


command. 


Calls: ITATOBCD, ITCMDOST, ITLOUT, 
ITSQUIRT 


Exit: Returns 


ITCHS YMB 
Module: APLITCMS 


Called By: ITSYSCMD 


Description: Executes the JSYMBOLS 
command. 


Calis: ITCMDOST, IATOBCD, ITLOUT, 
ITSQUIRT, IATIDY, APLFXIIM 


Exit: Returns; ITSYSERR (Error) 


ITCMVARS 
Module: APLITCMF 


Called By: ITSYSCMD 


Description: Calls ITFCMFVG to print 
& JVARS report. 


Calls: ITCMFVG 
Exit: Returns 


ITCMWSID 
Module: APLITCML 


Called By: ITSYSCMD 
Description: Executes the JWSID 


command. 
Collis: APLFXIIM, ITPRWSID, ITLIBMSG 
Exit: Returns 





ITCMHNSSI 
Module: APLITCML 
Called By: ITSYSCMD 


Description: Executes the JWSSIZE 
command. 


Calis: ITLOUT, IATOBCD 
Exit: Returns 
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ITCOPIN 

Module: APLITCPI 

Called By: IYTCMCOPY, ITCMPCOP 
Description: Receives data from a 
copy source workspace via YYCOPI 
service request; defines it in the 
active workspace. 

Calls: ITSTSRCH, ITUSAG, IESFIND, 
ITLINEGO, ITCLOSET, ITPRNAME, 
ITPRINTC, ITSQUIRT, ITOKENIZ, ITLOUT, 
APLFXIIM, IESFREE, ITDELETE,. IATIDY 


Exit: Returns; ITSYSERR (Error) 


ITDELETE 
Module: APLITCME 


Called By: ITCMERAS, IAQEX, IAQFX, 
ITCOPIN 


Description: Erases the variable, 
function, or group. 


Calls: JESFREE, ITUSADF, ITFDKILL, 
TARTRACT 


Exit: Returns; ITSYSERR (CError) 


ITEMPFUN 

Module: APLITFUN 

Called By: ITINPUT, IAEXECTE 
Description: Builds a temporary 
function in free space for immediate 
execution, for quad~input, or for the 
primitive function execute. 

Calls: ITOKENIZ, IESFIND 


Exit: Returns 


ITERRORS 
Module: APLITERR 


Called By: ITEXECUT, ITSAVWS, 
ITINPUT, ITTYIZ 


Description: Handles execution time 
errors; cleans up the operation 
stack, as required. 


Calis: IESUNFUN, IESFREE, ITFNLNO, 
ITPRLINE, ITPRFNLN, ITBFTYO, ITLOUT, 
ITXBLNL, ITSQUIRT, APLFXIIM 


Exit: Returns, if error in 
quad~input; ITINPINI, ITSYSERR 
CError) 


iS 


ITEXECUT 
Module: APLITEX 
Called By: ITINPUT 


Description: Establishes an 
environment for the interpreter and 
then uses APLCALL to call IEXARCH; it 
handles normal or exceptional 
returns. 


Calis: ITFNLNO, ITFETCH, IESFREE, 
ITPRFNLN, IAGOUT, ITPRINTC, IAEXSTCK, 
ITERRORS, IEXARCH, ITSQUIRT, IATOBCD, 
ITXBLNL, ITLOUT, APLFXIIM 


Exit: Returns; ITSYSERR CError) 


ITFDCLOS 

Module: APLITFDC 

Called By: ITFDEDIT 

Description: Closes a function 
definition by converting source to 
internal text. 

Calls: ITLINEO, ITOKENIZ, ITCLOSET, 
ITUSADF, IESFREE, ITUSAG, ITFDISOF, 
APLFXIIM, ITFDKILL 


Exit: Returns 


ITFDCVT 
Module: APLITNCV 
Called By: ITFDEDIT 


Description: Converts function line 
numbers to internal form. 


Calls: ITNUMCVT 
Exit: Returns 


ITFDEDIT 
Module: APLITFDE 
Called By: ITFDOPEN, ITINPUT 


Description: Processes an input line 
entered in function definition mode; 
performs editing actions. 


Calis: ITBFTYO, ITUSAG, ITLOUT, 
ITXBLNL, ITPRLINE, ITTYIZ, ITLINEO, 
ITFDCLOS, IESFREE, IESFIND, ITFDCVT, 
ITPRNUM, ITFDKILL, ITFDNWLN, APLFXIIM 


Exit: Returns 


ITFOKILL 
Module: APLITFDC 


Calied By: ITFDEDIT, ITDELETE, 
ITFDCLOS 


Description: Takes the user out of 
function definition mode. 


Calls: IESFREE 


Exit: Returns 


ITFONWNLN 

Module: APLITFDN 

Called By: ITFDEDIT 

Description: Stores a new 
function-statement in free space; 
enters names occurring in it in the 
symbol table. 

Calis: IESFIND, ITSTSRCH, ITBLDQD 
Exit: Returns 

ITFDOPEN 

Module: APLITFDO 

Called By: ITINPUT 

Description: Examines a function open 
request, and either rejects it or 
sets the edit globals to enter 


function definition mode. 


Calis: ITUSAG, ITLINEO, ITFDEDIT, 
ITCLOSET, ITFDISOF, IESFIND 


Exit: Returns 


ITFOTSOF 

Module: APLITFDC 

Called By: ITFDCLOS, ITFDOPEN 
Description: Turns off all trace and 
stop bits in a function that is being 
locked. 


Exit: Returns 


ITFETCH 
Module: APLITFCH 


Called By: ITEXECUT 


Description: Gets an integer value 
from the ravel of an M~-entry and 
returns an element count. 
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Exit: Returns 





ITFNLNO 
Module: APLITSUB 


Called By: ITEXECUT, IASYSREF, 
ITCMSI, ITCMSINL, ITERRORS 


Description: Returns a line number 
corresponding to a given offset into 
a function. 


Exit: Returns; ITSYSERR CError) 


ITFORCOF 
Module: APLITINP 


Called By: ITINPUT, ITTYIZ, ITCMOPR, 
ITCMNSG 


Description: Forces a terminal user 
off VS APL when the executor so 


indicates by issuing a )JCONT command. 


Exit: ITSYSCMD 


ITININT 
Module: APLITNCV 





Called By: ITSYSCMD 


Descripticn: Converts an integer 
constant to internal form. 


Calls: ITNUMCVT 


Exit: Returns 


ITINPINI 
Module: APLITINP 


Called By: APLIINIT, ITCMSAVE, 
ITCNCONT, ITERRORS 


Description: Provides an entry point 
to ITINPUT to begin execution of a 
newly loaded workspace or to resume 
execution after an error. 


Exit: ITINPUT 


ITINPUT 
Module: APLITINP 
Called B 


> ITINPINI, IAQUADS 
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Description: Prompts and receives 


terminal input. 


Calls: ITTYIZ, ITSYSCMD, ITFDEDIT, 
ITFDOPEN, ITEMPFUN, ITEXECUT, 
ITTYERR, ITPRNUM, APLFXIIM, ITLOUT, 
IATIDY . 


ITLIBNSG 
Module: APLITCML 


Called _ By: ITCMPCOP., ITCMCOPY, 
ITCHCLEA, ITCMDROP, ITCMLIB, 
ITCMLOAD, ITSAVWS, ITCNWSID, ITCMOFF, 
APLIINIT 


Description: Prints message after 
ibrary service request processing. 
1 


ls: ITLOUT, APLFXIIM, ITPRWSID, 


or 


flE, IATO8CD 


ITLINEO 
Module: APLITHDR 
Called By: ITFDOPEN, ITFDEDIT, 


ITFOCLOS, ITCOPIN, IAQFX, CVSHIP, 
CVFUNC 


Description: Inspects line zero of a 
function for correct syntax, and then 
constructs the function header 
codestring. 

Calls: ITSTSRCH, ITBLDQD 


Exit: Returns 


ITLOUT 

Module: APLITSUB 

Calied By: ITCMERAS, ITCMFVG, 
ITCHGROU, ITCMLIB, ITERRORS, 
ITEXECUT, ITFDEDIT, ITCMSTAC, 
ITCNSYMB, ITLIBMSG, ITPRWSID, 
ITCMWSSI, ITCMGRP, ITCMQUOT, ITCOPIN, 
ITINPUT 

Description: Drops trailing blanks 
from data in WSMBUFF; appends a new 
line, and prints the line. 

Calis: APLFXIIM 


Exit: Returns 


ITNAMINI 
Module: APLITCME 


4 


Called By: ITCMERAS 


Description: Initializes the name 
list printout for "Objects Not Found” 
and "Objects Not Copied” messages. 


Exit: Returns; ITSYSERR CError) 


ITNUMCVT 
Module: APLITNCV 
Called By: ITFDCVT, ITOKENIZ, ITININT 


Description: Converts numeric 
constant character strings into 
internal form. 


Exit: Returns 


ITOKENIZ 
Module: APLITLXS 


Called By: ITEMPFUN, ITFDCLOS, 
ITCOPIN, IAQFX, CVSHIP, CVFUNC 





Description: Scans a string of text 
and converts it to a codestring. 


Calis: ITNUMCVT, ITSTSRCH, ITBLD@D 
Exit: Returns 


ITPRFNLN 

Module: APLITSUB 

Called By: ITEXECUT, ITERRORS 
Description: Takes the internal name 
of a function and an offset into it 
and puts the printname and line 
number in WSMBUFF. 

Calls: ITPRNAME, ITXBLNL, ITSQUIRT 


Exit: Returns 


ITPRINTC 

Module: APLITSUB 

Called By: ITCOPIN, ITCMERAS, 
ITCMGROU, ITCMGRP, ITCMSI, ITCMSINL, 
ITEXECUT, ITPRNAME 

Description: Takes a single character 
and catenates it to the current line 
in WSMBUFF. 


Calis: APLFXIIM 


Exit: Returns 


ITPRLINE 
Module: APLITPRL 


Called By: ITFDEDIT, ITERRORS, 
ITCHCOPO, IAQCR 


Description: Takes the internal name 
of a function and a line number 
within that function, and displays 
the line in the workspace area 
requested by the caller. 

Calls: IATOBCD 


Exit: Returns; ITSYSERR (Error) 


ITPRNAME 
Module: APLITSUB 


Called By: ITCMGRP, ITCMSI, ITCOPIN, 
ITCMSINL, ITPRFNLN 


Description: Takes the internal name 
of an object and catenates its 
printname to current line in WSMBUFF. 


Calls: ITPRINTC, ITSQUIRT 





Exit: Returns 


ITPRNUM 
Module: APLITSUB 


Called By: ITFDEDIT, ITCMSINL, 
ITCMSI, ITINPUT 


Description: Takes the function 
editor's representation of a line 
number and puts the bracketed line 
number in WSMBUFF. 

Calls: IATOBCD 


Exit: Returns 


ITPRWSID 
Module: APLITCML 
Called By: ITCMWSID, ITLIBMSG 





Description: Converts a workspace 
identifier as defined in PDSD to 
printable form, puts it in WSMBUFF, 
and prints it. 


Calls: IATOBCD, ITLOUT 
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Exit: Returns 


ITSAVNWS 
Module: APLITCML 
Called ITCMSAVE, ITCMCONT 


Description: Saves a workspace. 


‘Calls: ITSHV, IATIDY, ITERRORS, 
APLFXIIM, ITLIBMSG 


Exit: Returns 


ITSHV 
Module: APLITCML 
Called By: ITSAVWS, APLIINIT 


Description: Copies or retracts each 
shared variable in the workspace. 


Calis: IASCOPY, APLFXIIM, IAUNSHR 
Exit: Returns; ITSYSERR (CError) 


ITSQUIRT 

Module: APLITSUB 

Called By: ITCOPIN, ITCMDOST, 
ITCNERAS, ITCMFEVG, ITCMGROU, 
ITCMSTAC, ITCMSYMB, ITFEXECUT, ITCMSI, 
ITCMSINL, ITERRORS, ITPRNAME, 
ITPRFENLN 

Description: Takes a string of 
characters and concatenates them with 
the current line in WSMBUFF. 

Calls: APLFXIIM 


Exit: Returns 


ITSTSRCH 

Module: APLITIDS 

Called By: ITFLINEO, ITCMGRP, 
ITCMGROU, ITCMCOPO, IAFCHNAM, CVGRUP, 


CVVARB, ITCOPIN, ITCMERAS, ITFDNWLN, 
ITOKENIZ 


Description: Finds or enters a 
printname in the symbol table and 
returns its internal name. 

Calls: ITBLDID, IESFIND 


Exit: Returns; ITSYSERR CError) 
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ITSYSCMD 

Module: APLITCMD 

Called By? ITINPUT, ITFORCOF 
Description: Analyzes syntax of 


system commands and executes those 
commands by calling the proper 
translator routine. Before executing 
each command, the executor is called 
CYYCMO). 


Calls: ITBLDID, APLFXIIM, ITININT, 
ITCMCLEA, ITCMCONT, ITCMCOPY, 
ITCMDROP, ITCMERAS, ITCMFNS, 
ITCMGROU, ITCMGRP, ITCMGRPS, ITCMLIB, 
ITCMLOAD, ITCMMSG, ITCMOFF, ITCMOPR, 
ITCMPCOP, ITCMQUOT, ITCMSAVE, ITCMSI, 
ITCMSINL, ITCMSTAC, ITCMSYMB, 
ITCMVARS, ITCMWSID, ITCMWSSI 


Exit: Returns 


ITSYSERR 
Module: APLITINI 


Called By: Interpreter and translator 
routines. 


Description: Builds system error 
information; requests executor to 
type information on user terminal and 
system log; takes dump of workspace. 


Calls: APLFXIIM 


Exit: APLFXIIM with YYCLEAR service 
request. 


ITTIME 
Module: APLITSUB 
al B ITLIBMSG 


Description: Formats the date and 
time in the output buffer when it 75 
given a time value. 


Calls: ITTIMSUB 


Exit: Returns 

ITTIMSUB 

Module: APLITSUB 

Called By: ITTIME, IASYSREF 


Description: Calculates the year, 
month, day, hour, minute, second, and 
millisecond values in WSMITSTR from a 


time value. 


w 


Fxjt: Returns 


ITTYERR 

Module: APLITSUB 

Called By: ITINPUT, ITTYIZ 
Description: Prints the error report 
for an error discovered during 
initial string processing. 


Calls: APLFXIIM 
Exit: Returns 


ITTYIZ 
Module: APLITINP 
Called By: ITINPUT, ITFDEDIT 


Description: Handles possible errors 
occurring after YYTYI and YYTYOI. 


Calis: APLFXIIM, ITTYERR 


Exit: Returns; ITFORCOF, ITSYSERR, 
ITERRORS CError) 


ITUSADF 

Module: APLITUSG 

Called By: ITDELETE, ITFDCLOS 
Suspended occurrences of @ name as 


damaged. 


Exit: Returns 


ITUSAG 
Module: APLITUSG 
Called By: ITFDOPEN, ITFDEDIT, 


ITFDCLOS, ITCMGRP, ITCMFVG, ITCMERAS, 
ITCMGROU, ITCOPIN, ITCMCOPO 


Description: Gets the most global 
referent of an internal name by 
examining the operation stack. 


Exit: Returns 


ITUSASH 
Module: APLITCMI 
Called By: IASYSREF, ITCMSI, ITCMSINL 


Description: Shows an object as it 
was defined when a pendant or 
suspended function was active. 


Exit: Returns; ITSYSERR CError) 


ITXBLNL 
Module: APLITSUB 
Called By: ITEXECUT, ITPRFNLN, 


ITCMFVG, ITCMSI, ITCMSINL, ITFDEDIT, 
ITERRORS 


Description: Deletes trailing blanks 
from a line in the buffer, and 
appends a new line character. 


Calls: APLFXIIM 


Exit: Returns 


KABEXIT 
Module: APLKADSP 


Called By: CICS/VS on program checks 
or abnormal termination 


Description: Part of the control of 
the user session task performed by 
the CICS/VS executor. Handles 
abnormal tarminations. 


Calls: Entry points KYYOFF, KPCREG, 
KIFONEXT. Macro APLKEXIT. CICS/VS 
macros DFHDC, DFHPC (RESETXIT), 
DFHIR, DFHSC (GETMAIN) 


Exit: Any process abend exit routine; 
IFONEXT, APLKADSP 


KABOOTS 

Module: APLKASTB 

Called By APLKSON macro 
Description: Part of the CICS/VS 
executor. Initializes the global 
table and/or the shared storage 
manager. 

Calls: Entry points APLKAGBL, 
APLKSSUB. CICS/VS macros DFHSC 
(GETMAIN, FREEMAIN), DFHPC CABEND, 
LOAD), DFHKC CATTACH, WAIT) 


Exit: Returns or APLKSSR 


KADEPON 
Module: APLKADSP 
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Called By: Entry point APLKSVI 
Description: Part of the CICS/VS 
executor. Initiates dependent 
auxiliary processors. 


falls’ CICS/VS macros DFHSC 
(GETMAIN), DFHPC (LOAD) 


Exit: Returns 


KCASE2Q 

Module: APLKSSUB 

Called By: Entry point APLKSSR 
Description: Part of the CICS/VS 
executor shared storage manager 
interface. Handles queries for all 
items related to caller. 


Exit: Returns 


KCASEIZQ 

Module: APLKSSUB 

Called By: Entry point APLKSSR 
Description: Part of the CICS/VS 
executor shared storage manager 
interface. Hancles queries for all 
items related to caller and listed 
partners. 


Exit: Reaturns 


KCATOFF 
Module: APLKMSCB 
Called By: Entry point APLFXIIM 


Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYATOFF 
service request (a request to turn 
off the asynchronous bits in the 
PERTERM header). 


Exit: Returns 


KCDELAY 
Module: Entry point APLKMSCA 
Called By: APLFXIIM 


Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYDELAY 
service request (a request to delay 
processing for x seconds). 
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Calls: Macros APLKEXIT, APLKG 
(CANCEL, DELAY), APLKWAIT 


Exit: Returns 





KCDUMP 
Module: APLKMSCA 
Called By: Entry point APLFXIIM 


Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYDUMP service 
request (a request to dump the user's 
workspace and PERTERM header). 


Calls: Macro APLKEXIT. CICS/VS macro 


wee) oe 


DFEDC (PARTIAL) 


Exit: Returns 


KCLEANUP 
Module: APLKSSUB 


Called By: Entry points KPROCOFF, 
APLKSSR 


Description: Part of the CICS/VS 
executor shared storage manager 
interface. Retracts all variables 
when a perproc entry in the processor 
table is marked for deletion. 

Calls: Entry point KRETSUB 


Fxit: Returns 


KCLEAR 

Module: APLKLIBU 

Called By: Entry point APLFXIIM 
Description: Part of the library 
management services provided by the 
CICS/VS executor. Processes the 
user's, JCLEAR request. 


Calls: Macro APLKEXIT. CICS/VS macro 
DFHSC CGETMAIN, FREEMAIN) 


Exit: Returns 


KCHBL 

Module: APLKMSCB 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 
interface provided by the CICS/VS 


executor. Indicates that the YYMBL 
service is not supported. 





Exit: Returns 


KCOPA 
Module: APLKLIBU 
Called By: Entry point APLFXIIM 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Processes the 
user's )COPY and )PCOPY requests. 


Calls: Entry points APLKLIBR, 
APLKSPEN, APLAPASS. Macros APLKG 
(LIBSERV, TYPE=LOAD), APLKHIST, 
APLKWAIT. CICS/VS/VS macro DFHSC 
(GETMAIN), DFHFC (GET, RELEASE) 


Exit: Returns 


KCOPI 
Module: APLKLIBU 
Called By: Entry point APLFXIIM 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Assists tn 
processing of the user's )COPY and 
JPCOPY requests by moving data into 
the sink workspace. 


Exit: Returns 


KCOPO 
Module: APLKLIBU 
Called By: Entry point APLFXIIM 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Assists in 
processing of the user's )JCOPY and 
IPCOPY requests by accepting data 
objects from the source workspace. 


Exit: Returns 


KCOPZ 
Module: APLKLIBU 
Called By: Entry point APLFXIIM 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Gains control . 
during processing of a user's )JCOPY 
or JPCOPY request when either the 
source or sink workspace has no more 
data to provide or copy. When the 
terminating YY code YYCOPZ is enterad 


for the source workspace, the address 
space of the source workspace is 
returned to CICS/VS. 


Calls: Macro APLKHIST. CICS/VS macro 
DFHSC CFREEMAIN) 


Exit: Returns 





KCQATI 

Module: APLKMSCA 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYGAI service 
request (a request for terminal time 
Information). 

Calls: Macro APLKHIST (CALC) 


Exit: Returns 


KCQUOTA 

Module: APLKMSCB 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYQUOTA 
service request (a request for user 
quota information). 


Exit: Returns 


KCQ@Z 
Module: APLKIFIX 
Called By: Entry point APLFXIIM 


Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YY@Z service 
request (a request for quantum end 
handling). 


Calls: KRSTEX. Macros APLKHIST, 
DFHKC CCHAP, WAIT) 
Exit: Returns 





KCSYSER 

Module: APLKMSCA 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 


interface provided by the CICS/VS 
executor. Executes the YYSYSER 
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service request (a request to write 
the system error message). 


Calls: Macros APLKEXIT, APLKT (TRAN, 
GJ. CICS/VS macro DFHDC CPARTIAL) 


Exit: Returns 


KCTABS 

Module: APLKMSCB 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYTABS service 
request (a request to set or retrieve 
previously set tab settings). 


Exit: Returns 


KCTINE 
Module: APLKMSCA 
Called By: Entry point APLKMSCA 





Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYTIME service 
Fale haa (a request for the time of 
day). 


Exit: Returns 


KCTRAN 

Module: APLKMSCB 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Indicates that the YYTRAN 
service is not supported. 


Exit: Returns 


KCNIDTH 

Module: APLKMSCB 

Called By: Entry point APLFXIIM 
Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Executes the YYWIDTH 
service request (a request to set the 
width of output to the terminal). 


Exit: Returns 
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KDPCREG 

Module: APLKDOPS or APLKVOPS 

Called By: Entry point ABEXIT 
Description: The operating system 
dependent interface provided as part 
of the CICS/VS executor. Gets program 
check registers from CICS/VS control 
blocks. 


Exit: Returns 


KDPFAB 

Module: APLKVOPS 

Called By: APLKAGBL 

Description: Part of the CICS/VS 
executor for OS/VS systems. Takes no 
action in this environment. 


Exit: Returns 


KDPFAP 

Module: APLKDOPS 

Called By: Entry point APLKAGBL 
Description: The operating system 
dependent interface provided as part 
of the CICS/VS executor. For DOS 
only, removes the page fix exit, and 
restores the CICS/VS timer. 


Calls: DDSNC. Macros PFIX, SETPFA, 
STXIT, SETIME, APL macros, APLKTRCE 


Exit: Returns 





KDROP 

Module: APLKLIBU 

Called By: Entry point APLFXIIM 
Description: Part of the library 
management services provided by the 
CICS/VS executor. Processes the 
user's )DROP requests. 

Calis: Entry point APLKLIBG (through 
use of the APLKG macro). Macros 
APLKG CLIBSERV, TYPE=DROP), APLKWAIT 


Exit: Returns 


KFREESP 
Module: APLKSSUB 





Called By: Entry points APLKSSR, 
KRETSUB 


Description: Part of the CICS/VS 
executor shared storage manager 
interface. Marks a given area in 
shared storage free for use. 


Exit: Returns 


KGCFILE 
odule: APLKLIBV 


2 


riled By: Entry point APLKLIBG (by 
LKLIBF through APLKG macro) 


Ole 


Description: Part of the library 
management services provided by the 
CliCS/VS executor. Provides the global 
library service of creating a file in 
the APL library. 


Calls: Entry points KLALLQC. 
APLKLIBR- KLDEALGC, KLPUT. CICS/VS 
macro DFHFC «GET, PUT, RELEASE, 


GETAREA) 


Exit: Returns 


KGCOL 
Module! APLKSSUB 


Called By: Entry points APLKSSR, 
KGETSPAC 


Description: Fart of the CICS/VS 
executor shared storage manager 
interface. Cleans up shared memory by 
packing it. 


Exit: Returns 


KGDFILE 
APLKLIBV 


MmOoaule 
Sailed By: Entry point APLKLIBG (by 
*PLKLIBF through APLKG macro) 


Description: Fart of the library 
management servic<es provided by the 
C1CS/VS executor. Provides the global 
Jibrary service of deleting auxiliary 
processor 121 files. 


Calls: Entry points KLDEALOC, KLPUT. 
TICS/VYS macros DFNFC (GET, PUT, 
NELETE), DFHSP (USER) 


FMit: Returns 
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KGDROP 
Module: APLKLIBG 
Called By: APLKLIBG 


Description: This provides a 
workspace drop service for KDRGP. 


Calls: KLRDBITM, KLPUT, KLDEALPC. 
Macros C(CICS/VS) DFHFC (GET, FUT, and 
RELEASE) 





Exit: Returns 


KGETSPAC 


=z 


ule: APLKSSUB 


Called By: Entry point APLKSSR 
Description: Part of the CICS/VS 
executor shared storage manager 
interface. Gets space in shared 
storage for the value or name of a 
shared voriable. 

Calls: Entry point KGCOL 


Exit: Returns 


Medule: APLKiIBG 
Called By: APLKLIBG 





Description: This provides a 
workspace load service for KLUCAD. 


Cal}s: KLGET. Macros (CICS/VS) 


2 
DFHFC (GET) 


Fxit: Returns 





KGSAVE 
Modula: APLKLIBG 
Called By: APLKLIBG 


Description: This provides a 
workspace service for KSAVE. 


Calis: KLRDBITM, KLALLGOC, KLPUT, 


KLUEALGC. Macros (CICS/VS3 DFHFC 
(GET, PUT, and GETAREA) 


Exit: Returrs 


KGUDIR 
Module: APLKLIBG 
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Called By: APLKLIBG 


Description: This updates directory 
records. 


Calls: GRELPRM2 exit routine defined 
by the caller of APLKLIBG. CICS/VS 
macros DFHFC (GET, PUT) 


Exit: Returns 


KGUFILE 
Module: APLKLIBV 


Called By: Entry point APLKLIBG Cby 
APLKLIBF through APLKG macro) 


Rescription: Part of the Library 
management services provided by the 
CICS/VS executor. Frovides the global 
library service of file extend 
support for auxiliary processor AP121 
files. 


Calls: Entry points KLALLOC, 
KLDEALOC, KLPUT. Macro APLK&X“IT. 
SCICS/¥S macroe DFHFC <GET, PUT, 
RELEASE), DFHRSC CGETMAIN, FROEMAIN) 





Exit: Returns 


Madule: APLURLIBG 
cCalied By: AFLKLIBG 


This tirites a directory 





Lis! Macros (CICS/VS) CFHC 
ak REA, PUT) 


Exit: Returns 


KGHULIE 
APLKLIBV 


* 
o 
wa 
c 
0 





IC) 
“ula 


slled By: Entry point APLKLIBG Cby 
PLKLIBF throusch APLKG macro) 


ha 


SC cription: Part of the library 
mnagement eaervices provided by ths= 
LCS/VS executor. Provides the glicbal 
iorary service of writina a control 
mtorval to tha Art library. 


“ rit 
ee 


Calls: Entry eoint KLFUT. CICS/¥S 
macrs DFHFC (GET. PUT, RELEASE? 


Fyit: Returns 
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KIDSETUP 

Module: APLKSSUB 

Called By: Entry point APLKSSR 
Dascription: Part of the CICS/VS 
executor shared storage manager 


interface. Sets up a doubleword ID 
for the two shared partners. 


Exit: Returns 


KIFCNEXT 
Module: APLKIFIX 
Called By: Entry point KABEXIT 


Description: Part of the interpreter 
interface provided by the CICS/VS 
eaxecutor. HandjJes abnormal conditions 
occurring in the user transaction. 


Calls: Entry points KPGMCHK, KRSTEX. 
Macro APLKEXIT. CICS/VS macro DFHDC 


Exit: Caller, KTOINTERP, KIQUEND, 


nRELKEXIIM 


KINIEX 
Module: A‘LKDOPS 


Caliond By: Entry point APLKAGBL 


BDascrintion: The operating system 
cependent interface provided as part 
of tha CIOCS/VS executor. Sets up a 
moaae fauit axit, and replaces the 
CICS/VS timer with an APL timer. 


Exit: Returns 


ttle: APLKEVOPS 
Called By: Entry point APLKAGBL 
Description: Part of the CICS/VS 


executor for OS/VS systems. Takes no 
action in this environment. 


Exit: Returns 


ALALLOC 


Module: APLKLIBA 


Cai, led By: Entry points KGSAVE, 
KGCFILE, KGUFILE 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Allocates the 
requested number of control intervals 
from the free space bit maps that 
describe the allocation status of the 
library. 


Exit: Returns 


KLCLOS 
Module: APLKVSOPS 
Called By: Entry point APLKLIBT 


Description: The operating system 
dependent interface provided as part 
of the CICS/VS executor. Issues VSAM 
CLOSE requests against the APL 
library. 


Calis: CICS/VS macros DFHFC (LOCATE): 
DFHTR CUSER). Operating system macro 
OPEN (VSAM) 


Exit: Returns 


KLDEALOC 
Module: APLKLIBA 


Called By: Entry points KGSAVE, 
KGDFILE, KGCFILE, KGUFILE, KGDROP 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Deallocates the 
workspaces allocated to CICS/VS from 
the free space bit maps. 


Exit: Returns 


KLGET 
Module: APLKVOPS, APLKDOPS 


Called By: Entry points KGLOAD, 
APLKLIBI, KGRLIB 


Description: The operating system 

dependent interface provided as part 
of the CICS/VS executor. Issues VSAM 
GET requests against the APL library. 


Calls: CICS/VS macros DFHTR (USER), 
DFHKC (WAIT). Operating system macros 
GeT (VSAM), CHECK CVSAM-—-issued by 
APLKVOPS only) 


Exit: Returns 


KLIB 

Module: APLKLIBU 

Called By: Entry point APLFXIIM 
Description: Part of the library 
management services provided by the 
CICS/VS executor. Processes the 
user's JLIB requests. 


Calls: CICS/VS macro DFHFC (GETNEXT, 
ESETL, SETL) 
E 





xit: Returns 





KLOAD 
Module: APLKLIBU 
Called By: Entry point APLFXIIM 


Description: Part of the library 
management services provided by the 
CICS/VS executor. Processes the 
interpreter )JLOAD request. 


Calls: Entry points APLKLIBR, 
APLKSPEN, APLAPASS. Macros APLKG 
(LIBSERV, TYPE=LOAD), APLKWAIT, 
APLKHIST, APLKEXIT. CICS/VS macros 
DFHFC (RELEASE), DFHSC CGETMAIN 
(CLASSPROGRAM), FREEMAIN) 


Exit: Returns 


KLOPEN 
Module: APLKVOPS 
Calleg By: Entry point APLKLIBI 


Description: The operating system 
dependent interface provided as part 
of the CICS/VS executor. issues VSAM 
CPEN requests against the APL 
library. 


Calls: CICS/VS macros DEHFC (LOCATE), 


DFHTR CUSER) Operating system macro 
OPEN (VSAM) 


Exit: Returns 


KLPUT 
Module: APLKVOPS 
Cailed By: Entry points APLKLIBG, 


KGNLIB, KGCFILE, KGDFILE, KGUFILE 


Description: The operating sysiem 

dependent interface provided as part 
or the CICS/VS executor. Issues VSAM 
PUT requests for APL library updates. 
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Calls: CICS/VS macros DFHKC (WAIT), 
DFHTR CUSER) Operating system macros 
PUT CVSAM), CHECK (VAM—issued by 
APLKVOPS only) 


Exit: Returns 


KLRDBITM 
Module: APLKLIBV 
Called By: APLKLIBV 





Description: This reads the 
allocation bit map into storage. 


Calls: KLGET 





Exit: Returns 





KMACRO 

IModuje: APLKADSP 

Called By: APLKADSP 

Description: Part of the control of 
the user session task performed by 
the CICS/VS executor. Dispatches 
processes within the user task. 
Calls: APLKIFON. APLXGKON, APLACRCP, 
any IBM or user-writtem dependant 
avxiliary processor. Macros APLKSON, 


APLKSOF. CICS/VS macros DFHTR, DFHSC 
(GETMAIN, FREEM4SIN), DFHKC CWAIT) 


Exit: Returns 


KPASS 

Module: APLKLIBU 

Called By: Entry point APLFXIIM 
Description: Part of the library 
management services provided by the 
CICS/VS executor. Processes tha 
user's request to change the sign oan 
password. 

Calls: APLAPASS, APLKSPEN 


Exit: Returns 


K PGMCHK 

Module: APLKIFIX 

Called By: Entry point KIFONEXT 
Description: Part of the interpreter 
interface provided by the CICS/V5S 


executor. Handles program checks 
occurring in the interpreter. 
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Exit: Returns 





KPOSTWAI 

Module: APLKSSUB 

Called By: Entry point APLKSSR 
Description: Part of the CICS/VS 
executor shared storage manager 
interface. Posts all ECBs that are 
waiting on space. 

Calls: Entry point KSINGAL 

Exit: Returns 

KPPSEARC 

Module: APLKSSUB 

Called By: Entry point APIKSSR 
Description: Part of the CICS/VS 
executor shared storage manager 
interface. Searches perproc entries 
in the processor table for a given 


user. 


Exit: Returns 


KPROCOFF 

Module: APLKSSUB 

Called By: Entry point APLKSSR 
Description: Part of the CICS/VS 
executor shared sSturage marager 
interface. Signs off ail processors 
with the same specified external ID. 


Calls: Entry point KCLFANUP 


Exit: Returns 


KRETSUB 
Module: APLKSSUB 


Called By: Entry points APLKSSR, 
KCLEAHUP 


Description: Part of the CICS/VS 
executor shared storage manager 
interface. Retracts a shared 
variable. 


Calls: Entry point KFREESP 
Exit: Returns 


<RSTEX 
“odule: APLKDOPS 


valled_By: APLFXIIM, KIFQNEXT, 
XIQUEND, KASUSPND 


2escription: Part of the CICS/VS 
=xxecutor for DOS/VS systeins. Cancels 
the APL time-slice timer and restcres 
whe CICS/VS times previously 
sanceiled by the KSETEX routine. 


inp 


lls’ Macros TTIMER, SETIME 





“wit? Returas 


—s 


i. RSTEX 
"adules APLKVOPS 





vPilied By? Entry points APLFXIIM, 
MITFONEXT, KIQUEND 

Cescription: The operating system 
eapendent interface provided «5 part 


at the CICS/VS executor. Festcres the 
«ysten's timer exit when the 
*nterpreter 15 not tn control. 


3 


A 


talls: Macros STIMER, TTIMER 


rw 


txvit: Returns 





SAVE 

“Module: APLKLIBU 

called By: Entry point APLFXIIM 
Lescription: Part of the library 
manegement services provided by the 
CICS/V¥S executor. Processes the 
user's JSAVE or JCONTINUE requests. 


~alls: Entry points APLKSPEN, 


-PLAPASS. Macros APLKG CLISSERV, 
TYPE=SAVE), APLKWAIT,. APLKH1S' 


=xit: Returns 


“SEIZE 

“Module: APLKSSUB 

Salled By: Entry point APLKSSR 
pescriotion: Part of the CICS/VS 
executor shared storage manager 
interface. Gets contro! of a shared 
variable. 


Exit: Returns 
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KSETEX 
Module: APLKDOPS 
Called By: KIQUEND, KTOINTER, 


2 


KASUSPND 

Description: Part of the CICS/VS 
executor for DOS/VS systems. Sets up 
the APL time-slice timer. 

Calls: Macros SETIME, TTIMER 


Exit: Returns 


KSETEX 
Module: APLKVOPS 
c 


Yr 


Py 


alled By: Entry peint KIQUEND, 
TOINTER 

Description: The cperating system 
dependent interface proviced as part 
of the CICS/VS executor. Sets up the 
timer exit for tha interpreter and 
the self-contained yycode service 
routine. 


Calis: Macros TTIMER, STIMER 
Exit: Return 


KSINGAL 
Module: APLKSSUB 


Cailed By: Entry points APLKSSR, 
KPOSTWAL 


Description: Part of the CICS/VS 
executor shared storage manager 
interface. Posts a given ECB. 


Exit: Returns 


KSPALD 
Madule: APLKVALD 


Called By: Entry points KSPCPY, 
KSP IMP 


Description: Part of the APL library 
service program for CICS. Allocates 
end deallocates control intervals in 
4X block from the APL litrary data 
set by turning bits in the freespace 
cescriptor map on and off. 


Exit: Returns 
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KSPAUT 
Module: APLKVAUT 
Called By: Entry point APLKSPRG 


Description: Part of the APL library 
service program for CICS. Processes 
the AUTH control statement and checks 
the validity of the user by reading 
his profile from the APL directory 
(for user level authorization) or by 
accessing the directory update 
password in module APLKPASS (for 
library level authorization). 


Calls: Entry points KSPMSG, KSPLBI 


Fxit: Returns 


KSPCMD 
Module: APLKVCMD 
Called By: Entry point AFLKSPRG 


Description: Part of the APL library 
service program for CICS. Calls entry 
point KSPSCN to scan the command 
collected by module APLKSPRG Centry 
point APLKVEXC) and convert it to a 
set of parameters in SPGPARMA (part 
of the service program glebal table). 
This part of the module also contains 
the syntax tables for the service 
orogram contro! statements. 


Calls: Entry points KSPMSG. KSPSCN 


Exit: Returns 


KSPCPY 
Module: APLKVCPY 
Called By: Entry point APLKSPRG 


Description: Implements the CCPY 
command for the AFL library service 
program for CICS/VS. Meves a range of 
file names from the ownership set of 
each usar of an input data set to an 
output data set. Either of these data 
sets may be the APL library and 
directory. Also processes the tape 
written by the conversion utility. 


Calls: Entry points KSPLBI, KSPLBO, 
KSPMSG, KSPTPG, KSPALLOC, KSFDEALC 


Exit: Returns 


KSPDOS 
Module: APLKDDOS (DOS only) 
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Called By: Entry points KSPDSO, 
KSPINT, APLKSPRG, KSPDSI, KSPLBI, 
KSPNSG, KSPTRM, KSPTPO 


Description: Part of the APL library 
service program for CICS/VS. 
Simulates OS/VS QSAM support in the 
DOS/VS environment. Processes the 
ENVIRONNENT command. 


Calis: DOS modules IJFSZZWZ, 
IJFUZZZZ, IJGUIZZZ, IJGUOZZZ, 
TJGQ0ZZZ; VSAM modules IKQVLAB, 
IKQVDTPE. Macros GETVIS, FREEVIS, 
WAIT, CDLOAD, CNITRL, OPEN, CLOSE, 
BTWAIT, EXCP 


Exit: Returns CIf end-of~file 
condition, returns to callar's EODAD 
exit.) 


KSPDSI 
Module: APLKVDSI 
Called By: Entry point KSPIMP 


Description: Part of the APL library 
service program for CICS/VS. Reads 
records from the APL input data set 
for KSPIMP to process. 


Calls: Entry point KSPDOS (DGS only). 
Macro GET (Q@SAM, OS only). 


Exit: Returns 


KSPDSO 
Module: APLKVDSO 
Called By: Entry point KSPEXp 


Dascription: Part of the APL library 
service program for CICS/VS. Writes 
records from the APL library to a 
natch data set. 


Calls: Entry points KSPMSG, KSPDOS 


(20S only). Macro PUT (QSAM, OS only3 
Exit: Returns 


KSPEXP 
Module: APLKVEXP 
Called By: Entry point APLKSPRG 


Description: Part of the APL library 
service program for CICS/VS. 
Processes the EXPORT command. Checks 
authoization and converts workspaces 
and data files in the APL library to 
a format acceptable for import to VS 
APL under other supported 
environments. 


Calls: Entry points KSPDSO, KSPLBI, 


Exit: Returns 


KSPFMT 
Module: APLKVFMT 
Called By: Entry point APLKSPRG 


Description: Part of the APL library 
service program for CICS/VS. 
Implements the format command. 
Formats the library into 4X blocks. 
Writes the free space profile record 
in the APt directory. If USERS is 
specified on the FORMAT command, 
writes directory entries for 
libraries 1, 2, and 314159. 


Calis: Entry point KSPMSG. Macros 
OPEN, CLOSE, PUT, GET 


Exit: Returns 


KSPIMP 
Module: APLKVIMP 
Called By: Entry point APLKSPRG 





Description: Part of the APL library 
service program for CICS/VS. 
Processes IMPORT control statements. 
Converts exported APL files and 
werkspaces to the format of the APL 
Jibrary, calling entry point KSPALLOC 
to allocate space, entry point KSPDSI 
to read the batch data set, and entry 
point KSPLBSG to write the files and 
workspaces to the library. 


Calls: Entry points KSPLBO, KSPMSG, 
KSPDSI, KSPLBI, KSPALLOC-. KSPDEALC 


Exit: Returns 


KSPINT 
Module: APLKVINT 
Called By: Entry point APLKSPRG 


Description: Part of the APL library 
service program for CICS/VS. Performs 
initialization for each command and 
ensures that data sets required by 
the command being processed are open. 
Spens the APL library and directory 
and checks the validity of the 
iibrary data set to ensure that it 
belongs to the APL directory data 
set. 


Calls: Entry points KSPDOS (DOS 
only), KSPMSG. Macros OPEN, GET, 
GETMAIN, SHOWCB, PUT, CLOSE, RDJFCB 
(OS only); OPEN, GET, GETVIS, SHOWCB, 
PUT, CLOSE, VERIFY (DOS only) 


Exit: Returns 


KSPLBI 
Module: APLKVLBI 


Called By: Entry points KSPAUT, 
KSPCPY, KSPEXP, KSPIMP 


Description: Part of the APL library 
service program for CICS/VS. 
Retrieves records from either an APL 
backup/archive tape or APL library 
for the processors of the AUTH, 
EXPORT, and COPY control statements. 


Calls: Entry points KSPDOS (DOS only) 
Macros GET, PUT 


Exit: Returns 


KSPLEO 
Module: APLKVLBO 


Called By: Entry points KSPCPY, 
KSPIMP 


Description: Part of the APL library 
service program for CICS/VS. Inserts 
or updates profiles, directory 
entries, and data sets in the APL 
library. 


on” 
mya 


lis: Entry point KSPMSG. Macros 
T, PUT, ENDREQ 


Exit: Returns 


KSPMSG 
Module: APLKVMSG 


Called By: Entry points KSPCPY, 
KSPDSO, KSPAUT, APLKSPRG, KSPEXP, 
KSP IMP, KSPINT, KSPLBO, KSPPIN, 
KSPTPO, KSPCMD, KSPFMT 


Description: Part of the APL library 
carvice program for CICS/VS. Puts all 
output messages and data from the APL 
library service program modules on 
the SYSPRINT (for OS) or SYSLIST (for 
DOS) data set, 


Calls: Entry point KSPDOS ¢DOS only). 


Macros PUT (0S only); GETIME and 
COMRS (DOS only) 
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Exit: Returns 


KSPPIN 
Module: APLKVPIN 
Called By: Entry point APLKSPRG 


Description: Part of the APL library 
service program for CICS/VS. Opens 
the OS data sets required to run the 
wtility job step. 


Calls: Entry point KSPMSG Macros 
OPEN, GET, SHOWCB (0S only); OPEN, 
GET, SHOWCB, VERIFY (CDOS only) 





Exit: Returns 


KSPSCN 

Module: APLKVCMD 

Called By: KSPCMD 

Description: Parses the command 
collected by module APLKSPRG Centry 
point APLKVEXC) according to tables 
in module APLKVCMD Centry point 
KSPCMD). 


Exit: Returns 


KSFTPO 

Module: APLKVTPO 

Called By: Entry point KSPCPY 
Description: Part of the APL library 
service program for for CIcs/vs, 

Used by the COPY command to create a 
backup or archive sequential data set 
from a APL library. 


Calls: Entry points KSPMSG, KSPDOQS 
(DOS only) 


exit: Returns 





KSPTRM 

Module: APLKVTRM 

Called By: Entry point APLKSPRG 
Description: Part of the APL library 
service program for CICS/VS. Closes 
0S data sets and releases temporary 
space. 


Calls: Entry point KSPDOS (CDOS only) 
Macros CLOSE, FREEPOOL (COS only) 
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Exit: Returns 


KTIMEREX 
Module: APLKDOPS 
Called By: DOS/VS supervisor 


Description: Part of the CICS/VS 
executor. Sets quantum end indicator 
for the interpreter. 


Calls: Macro EXITCIT) 


Exit: To CICS/VS timer exit or 
returns via DOS/VS exit 


KTIMEREX 
Module: APLKVOPS 
Called By: OQS/VS supervisor 


Description: The operating system 
dependent tnterface provided as part 
of the CICS/VS executor. Handles 
end-of-time-slice situations while 
the interpreter is executing. This 15 
an exit routine that has been defined 
to OS/VS by the SETEX routine. Sets 
quantum end indicator for the 
tnterpreter. 


Exit: Returns 


KTOINTER 
Module: APLKIFIX 


Called By: Entry points APLKIFON, 
KIFONEXT 


Description: Part of the interpreter 
interface provided by the CICS/VS 
executor. Sets up the timer exit and 
the registers to be used by the 
interpreter and then passes control 
to the interpreter. 


Calls: Entry point KSETEX. Macro 
APLKTRCE 


Exit: Interpreter CAPLIINIT) 


KTRAL 

Module: APLKTRQO 

Calied By: Entry point KTRRT 
Description: Part of the terminal 


management services provided by the 
CICS’“VS executor. Handles APLKTERM 

macro TYPE=ALARM minor requests if 

the request is not specified in 





combination with other requests. 
Calls: Macro APLKT (SCHED) 
Exit: Returns 


KTRCU 
Module: APLKTRQO 


Called By: Entry points KTRFA. KTRFEM, 
KTRRT, KTRWR. Macro APLKT CSETCUR) 





Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=SETCUR minor requests 
whether the request is specified 
alone or in combination with other 
requests. 


Calls: Macro APLKT CSCHED, FINDF) 


Exit: Returns 


KTRFA 
Module: APLKTRQO 
Called By: Macro APLKTERM CFLDATTR) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=FLDATTR major requests. 
Minor TYPE= reauests of SETCUR and 
ALARM may be combined with this 
request. 


Calls: Entry point KTRCU. Macros 
APLCTRCE, APLKT (SCHED). 


Exit: Returns 





KTRFI 
Module: APLKTRE 
Called By: Macro APLKTERM (Final) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=FINAL major requests. No 
minor requests may be combined with 
this request. Clears PTK pointers and 
resets PTK flags to indicate that the 
specified screen interface is 
inactive (the standard APL screen 
interface or, if the APLKTERN macro 
parameter OPT=ALT 1s specified, the 
alternate interface). Frees storage 
associated with the interface. If the 
interface associated KTSCHED entry 
point is called to communicate with 
the terminal transaction if 
necessary. 


Calls: Macros APLKTRCE, APLKT CSCHED) 
CICS/VS macros DFHSC CFREEMAIN), 
DFHIC CINITIATE from entry point 
APLKTCTL) 


Exit: Returns 


KTRFEM 
Module: APLKTRQO 
Called By: Macro APLKTERM CFORMAT) 


Description: Part of the terminal 
managemant services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=FORMAT major requests. 
Minor TYPE= requests of ALA&M and 
SETCUR may be combined with this 
request. Format requests may be for a 
full format or, if the OPT=REFORM 
parameter is specified on the 
APLKTERM macro, a partial reformat. 


Calls: Entry point KTRCU. Macros 
APLKTRCE, APLKT CFCHECK, SCHED, 
CLEAR). CICS/VS macro DFHSC CGETMAIN, 
FREEMAIN) 


Exit: Returns 


KTRGD 
Module: APLKTREQ 
Called By: Macro APLKTERM CGETDATA) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=GETDATA major requests. 
Returns data from specified fields 
unless OPT=NOTDATA is specified on 
the APLKTERM macro, in which case the 
length of the field is returned for 
each field specified. 


Calls: Macros APLKTRCE, APLKT CCLEAR, 
TRAN) 


Exit: Returns 


KTRGF 
Module: APLKTREQ 
Called By: Macro APLKTERM CGETFORM) 


Description: Part of the terminal 
management services provided by the 
CIcsS/VS executor. Handles APLKTERM 
macro TYPE=GETFORM major requests. No 
minor requests may be combined with 
this request. Returns a description 
of the current screen format to the 
caller. 
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Calls: Macros APLKTRCE, APLKT CCLEAR) 
Exit: Returns 


KTRHC 
Module: APLKTR@O 


Called By: Entry potnt KTRRT or KTRWR 


if APLKTERM macro specifies 
TYPE=HCOPY 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=HCOPY requests whether the 
request is specified alone or in 
combination with a TYPE=WRITE 
request. 


Calls: Entry point APLKEMGR. Macros 
APLKT (SCHED, CLEAR, HLINE)D 


Exit: Returns 


KTRIN 


Module: APLKTREQ 
Called By: Macro APLKTERM CINIT) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=INIT major requests. No 
minor requests may be combined with 
this request. Gets storage for and 
initialtzes control blocks and 
buffers for the standard APL screen 
interface or, if the OPT=ALT 
parameter was specified on the 
APLKTERM macro, for the alternate APL 
screen tnterface. Provides the 
default screen format for the 
specified screen interface. 


Calls: Macro APLKTRCE. CICS/VS macros 
DFHSC (GETMAIN) 


Exit: Returns 


KTRRD 


Module: APLKTREQ 
Called By: Macro APLKTERM CREAD) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=READ major requests. Minor 
TYPE= requests of ALARM, SETCUR, and 
RESTORE may be combined with this 
request. Uses the KTSCHED routine to 
shcedule terminal read requests. When 
the read operation is completed, 
returns a description of the input to 
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the caller. 


Calls: Macros APLKTRCE, APLKT (SCHED. 
CLEAR, SETCUR, FINDF) } 


Exit: Returns 


KTRRS 

Module: APLKTR&O 

Called By: Entry point KTRRT 
Description: Part of the terminal 


management services provided by the 
CICS/VS executor. Records APLKTERM 
macro TYPE=RESTORE minor requests if 
the request is not specified in 
combination with other requests. 


Calls: Macro APLKT CSCHED) 


Exit: Returns 
KTRRT 

Module: APLKTREQ 

Called By: Macro APLKTERM CALARM, 


SETCUR, HCOPY, or RESTORE) when 
APLKTERM is not used in combination 
with a major request 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. A routing routine » 
that calls the appropriate terminal 
manager routines when the APLKTERM 
macro is used without specifying a 
major request type. All routing 1s 

pe using the APLKTREQ address 

able. 


Calls: Entry points KTRAL, KTRCU, 
KTRHC, KTRRS. Macro APLKTRCE 


Exit: Returns 


KTRTRAN 
Module: APLKTRAN 


Called By: Entry point APLKEHCP. 
Macro APLKT CTRAN) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Also linked to as 
part of hard copy print transactions. 
Translates data and, optionally, 
moves the data to wherever the caller: 
specifies. 


Exit: Returns 


J 


KTRHR 
Module: APLKTRQO 
Called By: Macro APLKTERM CWRITE) 


Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Handles APLKTERM 
macro TYPE=WRITE major requests. 
Minor TYPE= requests of SETCUR, 
ALARM, HCOFY, and RESTORE may be 
combined with this request. Causes a 
write operation to be shceduled but, 
if the OPT=WAIT parameter ona the 
APLKTERM macro 1s omitted. may return 
to the caller hefore the write 
operation has completed. 


Calls: Entry points KTRCU, KTRHC. 


Macros APLKTRCE, APLKT (SCHED, CLEAR, 
TRAN) 


Exit: Returns 


KTSCHED 

Modula: APLKTSRV 

Called By: Macro APLKT (SCHED) 
Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Synchronizes 
requests. If required, schedules 
terminal transaction. May wait for 
completion of request. 

Calls: Macros APLKWAIT, APLKPOST. 
CICS/VS Macro DFHPC CABEND, DUMP, 
INITIATE for entry point APLKTCTL) 


Exit: Returns or DFHPC CABEND? 


KTSCLEAR 

Module: APLKTSRV 

Called By: Macro APLKT (CLEAR) 
Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Clears the Logical 
screen buffer and resets data 
lanogths. 


Exit: Returns 


KTSFCHK 

Module: APLKTSRY 

Called By: Macro APLKT CFCHECK) 
Description: Part of the terminal 


management services provided by the 
CICS/VS executor. Performs a validity 


check of the screen format. 


Exit: Returns 


KTSFNDF 

Module: APLKTSRV 

Called By: Macro APLKT (FINDF) 
Description Part of the terminal 
management services provided by the 
CICS/VS executor. Given a row and 
column address, finds the associated 
field. 


Exit: Returns 


KTSLING 

Module: APLKTSRV 

Called By: Macro APLKT CHLINE) 
Description: Part of the terminal 
management services provided by the 
CICcS/VS executor. Prepares a line of 
full screen copy. 

Calls: Entry point APLKEMGR 


Exit: Returns 


KTSLOCID 
Module: APLKTSRV 
Called By: Macro APLKT (LOCID) 





Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Locates the TSF 
(terminal screen status) for a 
specified field ID if the field is 
defined. 


Exit: Returns 


KTSLOCR 

Module: APLKTSRV 

Called By: Macro APLKT CLOCREQ) 
Description: Part of the terminal 
management services provided by the 
CICS/VS executor. Executing under the 
terminal transaction, locates the 
next request to be processed. 


Exit: Returns 
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KWSID 
Module: APLKLIBU 
Called By: Entry point APLFXIIM 


Description: Part of the library 


management services provided by the 
CICS/VS executor. Processes the 
user's JWSID requests. 

Calls: APLAPASS 


Exit: Returns 


KYYTYOI 

Module: APLKIFIX 

Called By: APLKXIIM 

Description: Provides an terface to 

the session manager for the terminal 
I/O requests CYYTYO, YYTYI, YYTYOI) 

made by the interpreter code. 


Calis: APLKSPEN, APLATYO, APLATYI, 
APLATYOI 


Exit: Returns 


KYYOFF 
Medule: APLKMSCB 


Called By: Entry points APLFXIIN, 
ABEXIT 





Description: Part of the interpreter 
interface provided by the CICS/YS 
executor. Executes YYOQFF service 
requests (a request to terminate the 
session). 


Cails: Entry points APLATERM, 
APLKLUTM. Macros APLKEXIT, APLKHIST, 
APLKG (CLIBSERV). 


Exit: Returns 


OFF121X 
Module: APLi21 
Called By: APLXAC 


Description: This is the offer exit 
routine. 


Calls: Macros APLXAEAT, APLXCAPS 
Exit: Returns 
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PCATOFF 
Module: APLPMISC 
Called By: APLFXIIM 


cr 10 Executes YYATOFF service 
request (VSPC). 


Exit: Normal; ERSAVEAR (Error) 


PCCLEAR 
Moduje: APLPLIBS 
Called By: APLFXIIM 


Description: Executes YYCLEAR service 
request (VSPC). 


Calls: ERMSGRIN 
Exit: Returns; ERSAVEAR (CError) 


PCCMD 
Module: APLPMISC 


Called By: APLFXIIM 


Description: Executes YYCMD service 
request for the VSPC executor (issues 
the VSPC service request WCMD). 
Calls: ERMSGRIN. Macro ASUSRQ 


Exit: Returns; ERSAVEAR (CError) 


PCCOPA 
Module: APLPLIBS 
Called By: APLFXIIM 


Description: Executes YYCOPA service 
request (VSPC). 


Calls: ERMSGRITN 
Exit: Returns; ERSAVEAR (Error) 


PCCOPI 
Module: APLPMISC 
Called By: APLFXIIM 


Description: Executes YYCOPI service 
request (VSPC). 


Exit: Returns; ERSAVEAR CError) 


- 


PCCOPO 
Module: APLPMISC 


Called By: APLFXIIM 


Description: Executes YYCOPO service 
request (VSPC) 


Exit: Returns; ERSAVEAR (Error) 


PCCOPZ 
Module: APLPMISC 


Called By: APLFXIIM 


Description: Executes YYCOPZ service 
request (VSPC). 


Calls: ERMSGRITN 
Exit: Returns; ERSAVEAR CError) 


PCDELAY 
Module: APLPTYIO 


Called By: APLFXIIM 


Description: Executes YYDELAY service 
request (VSPC). 


Calls: ERMSGRTN 
Exit: Returns; ERSAVEAR (Error) 


PCDROP 
Module: APLPLIBS 
Called By: APLFXIIM 


ription: Executes YYDROP service 
request (VSPC) 


Calls: ERMSGRITN 
Exit: Returns; ERSAVEAR (Error) 


PCDTYI 
Module: APLPTYIO | 
Called By: APLFXIIM, PCDTYOI 


Description: Executes YYTYI service 
request for display terminal (VSPC). 


Calls: ERMSGRITN 
Fxit: Returns; ERSAVEAR (Error) 
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PCDTYO 
Module: APLPTYIO 
Called By: APLFXIIM 


Description: Executes YYTYO service 
request for display terminal (VSPC). 


Calls: ERMSGRITN 
Exit: Returns; ERSAVEAR (Error) 


PCDTYOI 
Module: APLPTYIO 


Called By: APLFXIIM 


Description: Executes YYTYOI service 
request for display terminal (CVSPC). 


Calls: PCDTYI 
Exit: Returns; ERSAVEAR (CError?) 


PCDUMP 


Module: APLPSERR 
Called By: APLFXIIM 


Description: Executes YYDUMP service 
request (VSPC). 


Exit: Returns 


PCLIB 
Module: APLPLIBS 
Called By: APLFXIIM 


Descr} ion: Executes YYLIB service 
request (VSPC). 


Calls: ERMSGRTN 
Exit: Returns; ERSAVEAR (Error) 


PCLOAD 
Module: APLPLIBS 
Called By: APLFXIIM 


escri ion: Executes YYLOAD service 
request (VSPC}. 


Calis: ERMSGRIN 
Exit: Returns; ERSAVEAR (Error) 
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PCHBL 
Module: APLPTYIO 
Called By: APLFXIIM 


Description: Executes YYMBL service 
request (VSPC). , 


Calls: ERMSGRITN 
Exit: Returns; ERSAVEAR (CError) 


PCOFF 
Module: APLPMISC 
Called By: APLFXIIM 


Description: Executes YYOFF service 
request (VSPC). 


Exit: Returns to VSPC 


PCPASS 
Module: APLPMISC 


Called By: APLFXIIM 


Description: Executes YYPASS service 
request (VSPC). 


Calls: ERMSGRIN 
Exit: Returns; ERSAVEAR CError) 


PCQAI 
Module: APLPMISC 
Called By: APLFXIIM 


Description: Executes YYQAI service 
request (VSPC). 


Exit: Returns; ERSAVEAR CError) 


PCQUOTA 
Module: APLPMISC 
Called By: APLFXIIM 


Description: Executes YYQUOTA service 
request (VSPC). 


Exit: Returns; ERSAVEAR CError) 


PCQZ 
Module: APLPMISC 
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Called By: APLFXIIM 


Description: Executes YYQ@Z service 
request (VSPC), 


Exit: Returns; ERSAVEAR CError) 


PCRWAIT 
Module: APLPTYIO 
Called By: APLFXIIM 


Description: Executes YYRWAIT service 
request CVSPC)., 


Calls: ERMSGRTN 
Exit: Returns; ERSAVEAR CError) 


PCSACC 
Module: APLFSHVR 
Called By: APLFXIIM 


Description: Executes YYSACC service 
request (WSPC). 


Calis: APLPAPAC, ERMSGRIN 





Extt: Returns; ERSAVEAR CError) 


PCSAVE 
Module: APLPLISS 
Called By: APLFXIIM 


Description: Executes YYSAVE service 
request (CVSPC). 


Calls: ERMSGRTN 
Exit: Returns; ERSAVEAR CErrer) 


PCSCOPY 
Module: APLPSHYR 
Called By: APLFXIIM 


Description: Executes YYSCOPY service 
request (VSPC). 


Calls: APLPAPPR, ERMSGRTN 
Exit: Returns; ERSAVEAR CError) 


PCSOFF 
Medule: APLPSHVR 


Called By: APLFXIIM 


Description: Executes YYSOFF service 
request (VSPC). 


Calls: APLPAPSF, ERMSGRTN 
Exit: Returns; ERSAVEAR CError) 





PCSOFFER 

Module: APLPSHVR 

Called By: APLFXIIM Deserption: 
Executes YYSOFFER service request 
(VSPC). 

Calls: APLPAPOF, ERMSGRIN 


Exit: Returns; ERSAVEAR (Error) 





PCSON 
Module: APLPSHVYR 
Called By: APLFXIIM 


Description: Executes YYSCN service 
request (CVSPC). 


Calls: ERMSGRTN 
Exit Returns; ERSAVEAR (Error) 


PCSQUERY 
Modyle: APLPSHVR 
Called By: APLFXIIM 


Le 


Description: Executes YYSQUERY 
service request (VSPC). 


Calls: ERMSGRTN 
Exit: Returns; ERSAVEAR CError) 





PCSREF 
Module: APLPSHVR 


Called By: APLFXIIM 


Description: Executes YYSREF service 
request (VSPC). 


Calis: APLPAPPR, ERMSGRIN 
Exit: Returns; ERSAVEAR (Error) 


PCSRET 
Module: APLPSHVR 
Called By: APLFXIIM 


Description: Executes YYSRET service 
request (VSPC). 


Calls: APLPAPRT, ERMSGRTN 
Exit: Returns; ERSAVEAR CError) 


Module: APLPSHVR 
Called By: APLFXIIM 





escription: Executes YYSSPEC service 
request (VSPC). 


alls: APLPAPPR, ERMSGRTN 
Exit: Returns; ERSAVEAR (CError) 


oO 


PCSYSER 
Module: APLPSERR 
Called By: APLFXIIM 


Descripticen: Executes YYSYSER service 
request (VSPC). 


Calls: ERTIMDAT, ERMSGRITN 
Exit: Returns; ERENDEX (Error) 





PCTABS 


x 4 


edule: APLPTYIO 





Called By: APLFXIIM 





Desecripticn: Executes YYTABS service 
request (VSPC). 
Calls: ERMSGRITN 





Exit: Returns; ERSAVEAR CError) 





PCTIME 
Module: APLPMISC 


Calted By: APLFXIIM 


Description: Executes YYTIME sarvice 
request (VSPC). 


Exit: Returns; ERSAVEAR (Error) 
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PCTRAN 
Module: APLPTYIO 
Called By? APLFXIIM 


request (CVSPC). 
Calls: ERMSGRITN 
Exit: Returns; ERSAVEAR (CError) 


Description: Executes YYTRAN service 


PCTYYI 

Module: APLPTYIO 

Called By: APLFXIIM, PCTYOI 
Description: Executes YYTYI service 
request for typewriter terminal 
CVSPC). 

Calls: ERMSGRITN 


Exit: Returns; ERSAVEAR (Error) 


PCTYO 

Module: APLPTYIO 

Called By: APLFXIIM, PCTYOI 
Description: Executes YYTYO service 
request for typewriter terminal 
CVSPC). 

Calls: ERMSGRIN 


Exit: Returns; ERSAVEAR CError) 


PCTYOY — 

Module: APLPTYIO 

Called By: APLFXIIM 

Description: Executes YYTYOI service 
request for typewriter terminal 
CVSPC). 

Calis: PCTYI, PCTYO 


Exit: Returns; ERSAVEAR (CError) 


PCNIDTH 
Module: APLPTYIO 
Calied By: APLFXIIM 


bescrips tee. Executes YYWIDTH service 
request (VSPC). 
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Fxit: Returns; ERSAVEAR CError) 
o 

PCWSID 

Module: APLPLIBS 


Called By: APLFXIIM 


Description: Executes YYWSID service 
request (VSPC). 


Calls: ERMSGRITN 





Exit: Returns; ERSAVEAR (CError) 


' PRDDIR 


Module: APLPAPCD 

Called By: APLPAPPR 

Description: Does direct read from a 
VSPC file for internal auxiliary 
processor AP121 and APi22. 

Calls: ERMSGRTN 


Exit: Returns; ERSAVEAR, ERENDEX 
CError) 


PRDSEQ 
Module: APLPAPCD 
Called By: APLPAPPR 


Description: Does sequential read 
from a VSPC file for internal 


auxiliary processors AP121 and AP122. 


Calls: ERMSGRTN 
Fxit: Returns; ERSAVEAR, ERENDEX 


(Error) 


PHRITE 

Module: APLPAPCD 

Called By: APLPAPPR 

Description: Does sequential write 
and direct update to a VSPC file for 
internal auxiliary processors AP121 
and AP122. 

Calls: ERMSGRIN 


Exit: Returns; ERSAVEAR, ERENDEX 
(Error) 





» 


RET121X 
Module: APLi2i 


Called By: APLXAC 


Description: This 18s the retract exit 
procedure which issues a close for 
the FAB, freemains any CTILBUF or 
DATBUF storage areas, and discards 
the stack. The CTL and DAT variables 
are retracted. 

Calls: Macro APLXSTAK 


Exit: Returns 


SCAPL 

Module: APLSCFXI 

Called By: SCSPIE, APL 

Description: Establishes an entry 
point to APLFXIIM at startup or after 
program check (CMS). 


Exit: APLFEXIIM 


SCATOFF 
Module: APLSCTYP 


Called By: APLFXIIM 


Description: Executes YYATOFF service 
request (CMS). 


Exit: Returns; SCSAVOFL (Error) 





SCATOFF 

Nodule: APLYUTYP 

Called By: SCFXI via macro APLCCALL 
Description: This entry point turns 
off attention and cancels output bits 


in PERTERM (TSO). 


Calls: macros APLDEFN, APLCENTR, 
APLCEXI 


Fxit: Returns 


SCATTN 

Module: APLSCTYP 

Called By: CMS, STAX Exit Routine 
Deseription: Performs system 


functions in response to attention 
signal (CMS). 


Section 3. 


Exit: Returns to CMS. 


SCATTN 
Module: APLYUTYP 


Called By: Host system via STAX edit 
routine by user 


Description: This entry point 
provides supervisor support for 
attantion CTS9). 

Calls: APLYUTRM. Macros STATUS, 
APLDEFN, POST, ESTAE, TCLEARQ, 
APLYUPRSG, APLPTRGT 


Exit: Returns 


SCCLEAR 
Module: APLSCMSC 
Called By: APLFXIIM 


Description: Executes YYCLEAR service 


recuest (CNS). 
Exit: Returns; SCSAVYOFL 


SCCLEAR 

Module: APLYUMSC 

Called By: APLYUFXI 

Description: Executes the YYCLEAR 
service request (1750). YYCLEAR resets 
the size of the active workspace to 
either a specified size (PDSSIZE) or 
a default size (CMSMAXWS). It also 
changes the ID of the activa 
workspace to that of a clear 
werkspace. 


Exit: Returns; SCSAVOFL(CErreor) 


SCCHD 
Medule: APLYUMSC 
Called By: APLYUFXI 


Description: This executes the YYCMD 
in TSQ. 


alls: APLYUCMD 


fo) 


Exit: Returns 
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SCCMD 
Module: APLSCMSC 
Called By: APLSCFXI 


escription: Executes the YYCMD 
service request in CMS. 


Exit: Returns. 


SCCOPA 
Module: APLSCOPY 


Called By: APLFXIIM 


Description: Executes YYCOPA service 
request (CMS). 


Calls: SCLOAD 
Exit: Returns; SCSAVOFL(CError) 


SCCOPI 
Module: APLSCOPY 
Called By: APLFXIIM 


Description: Executes YYCOPI service 
request (CfMS). 


Exit: Returns; SCSAVOFLCError) 


SCCOPO 
Module: APLSCOPY 
Called By: APLFXIIM 


Description: Executes YYCOPO service 
request (CMS). 


Exit: Returns; SCSAVOFLCError) 


SCCOPZ 
Module: APLSCOPY 


Called By: APLFXIIM 


Description: Executes YYCOPZ service 
request (CMS). 


Exit: Returns; SCSAVOFLCError) 


SCDELAY 
Module: APLSCMSC 
Called By: APLFXIIM 
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Description: Executes YYDELAY service 
request (CMS). 


Exit: Returns; SCSAVOFL(CError) 


SCDELAY 

Module: APLYUMSC 

Called By: APLYUFXI 

Description: Executes the YYDELAY 
service request (TSO). YYDELAY sets 
the timer for the time period given 
in WSMPARM1/2, and puts the virtual 
machine into an enabled wait state 
until either the timer goes off or 
the user signals attention. 


Exit: Returns: SCSAVOFLCError) 


SCDPA2Z 

Module: APLSCDPY 

Called By: JCEXTINT on PA2 
Description: Handles cancel-output 
signal for display terminal under 


CMS. 
Exit: Returns to CMS 


SCDROP 
Module: APLSCLIB 
Called By: APLFXIIM 


Description: Executes YYDROP service 
request (CMS). 


Calis: SCFID. Macro APLSFID 
Exit: Returns; SCSAVOFLCError) 


SCCROP 
Module: APLYULIDSB 


Called By: APLYUFXI 


Description: Executes the YYDROP 
service request (TS0). Drop 
processing involves the following 
steps: 


0 Allocate DISP=OLD to verify data 
set handling conditions. 


° Deallocate DISP=KEEP since a 
protect cannot be issued while 
allocated. 








° Issue PROTECT SVC to unprotect 
the data set. 


© Issue PROTECT SVC C(CPURGE) to 
scratch the data set. 


e Issue CATALOG SVC to uncatalog 
the data set. 


Calls: SCSAVOFL (via macro APLCENTR) 
Exit: Returns; SCSAVOFLCError) 


SscoTyI 
Module: APLSCDPY 
Called By: SCDTYOI, APLFXIIM 


Description: Executes YYTYI service 
request for display terminal (CMS). 


Exit: Returns; SCSAVOFLCError) 


SCDTYI 
Module: APLYIDPY 
Called By: APLFXIIM, SCDIYOI 


Description: Executes the YYTYI 
service request for display terminal 
TSO). 


Exit: Returns; SCSAVOFL¢CError) 


SCDTYIO 

Module: APLYUDPY 

Called By: APLFXIIM 

Description: Executes the YYTYOI 
service request for display terminal 


Calis: SCDTYO, SCDTYI, STCKPOP, 
SCSAVOFL 


Exit: Returns; SCSAVOFL(CError) 


SCDTYO 
Module: APLSCDPY 
Called By: SCDTYOI, APLFXIIM 


Description: Executes YYTYO service 
request for display terminal (CMS). 


Exit: Returns; SCSAVOFLCError) 


SCDTYO 

Module: APLYUDPY 

Called By: APLFXIIM, SCDTYO!I 
Description: Executes the YYTYO 
service request for display terminal 


(TSO). 
Exit: Returns; SCSAVOFLCError) 


SCDT Yor 

Module: APLSCDPY 

Called By: APLFXIIM 

Description: Executes YYTYOI service 
request for display terminal input 
(CMS). 

Calis: SCDTYO, SCDTYI 


Exit: Returns; SCSAVOFLCError) 





SCDUMP 
Module: APLSCERR 


Called By: APLFXIIM 


Description: Executes the YYDUMP 
service request (CMS). 


Exit: Returns; SCSAVOFL(CError) 


SCDUMP 
Module: APLYUERR 


Called By: APLYUFXI 


Description: Executes the YYDUMP 
service request (TSO). 


Exit: Returns; SCSAVOFLCError) 
SCENDAPL 

Module: APLSCINI 

Called By: SCOFF 





Description: Terminates VS APL under 
Chis. 


Exit: To CMS or logoff from VM/370 
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SCENDAPL 
Module: APLYUINI 


Called By: APLYUMSC 


Description: Terminates VS APL under 
TSO: 
Exi 





Returns to TSO. 





SCEXTINY 
Module: APLSCVI 


Called By: CMS on an external 
interrupt 


Description: This seans shared memory 
to look for an ICB describing the 
interrupt code, and calls the exit 
routine. 


Calis: ICBADDR routine if interrupt 
is found 


Exit: Returns to CMS after calling 


exit. Iv no exit is called, it gues 
to address in CHSEIOLD. 


SCFID 
Module: APLSCFID 


Celied By: APLSCLIB, APLXFSFL. 
*PLSCMSC, APLSCINT 





Description: Given a name and library 
number, this routine generectes a CMS 
file identifier and accesses tha CMS 
disk. 


Caljs: CP LINK and DETACH, CNS STATE, 
CDMSLAD. Macros APLPATCh, APLDEFN, 
APLSFID, APLSOPT, FSCBD. FSTD. ADT, 
NUCON, FSSTATE, DIAG 


Exit: Returns 


SCLIB 
Module: APLSCLIB 
Called By: APLFXIIM 


Dessripntion: Executes YYLTI8 service 
request (CMS). 


Calis: APLSCFID. Macros APLSFID, 
PT 





APLSO 

Exit: Returns; SCSAVOFLCError) 
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SCLIB 
Module: APLYULIB 
Called By: APLYUFXI 


Description: Executes the YYLIB 
service request (7TS0). An internal 
routine, LIBDSN. is called to build 
an OS data set name for this library: 
an indicator will be returned if the 
library definition antry does not 
exist in the catalog. The hicsher 
leval qualifiers are moved to the DSN 
buffer for a DAIR DAP14¢ parametcr 
block, and DAIR is called wo return 
all the aquaiifiers tn CMSBUFF. These 
qualifiers are converted to Z-code 
and passed back to the interpreter :n 
WSMBUFF. New lines are inserted 
according to the current value of 
PTHWIDTH. 


Calis: IKJDAIR 
Exit: Returns; SCSAVOFLCError) 


SCLOAD 
Module: APLSOCLIB 


Called By: SCCOPA, APLFXIIM 





Description: Executes YYLDAD service 
request (CMS). 


Exit: Returns; SCSAVOFLCError) 


SCLOAD 
Module: APLYULIB 


a ee ee 


Called By: APLYUFXI or APLYUCFY 


Description: Executes the YYLGAD 
service request (T50). An internal 
routine, LIBDSN, is invoked to built 
ar OS cata set name and validate 
access authority to the library. 
LIBALLOC +s then called to allocate 
the workspace with DISP=SHR. A 
prototype DCB is copied to the global! 
work area and opened for BSAM chained 
scheduled access. To ensure that the 
JLOAD request is successful, various 
checks are made to ensure workspace 
fit and validity of workspace 
security code. If the BLKSIZE is 
smaller than the size of WSMBUFF, 
that area will be used to temporarily 
hold the first block of the 
workspace. A buffer will, otherwise, 
be GETMAINed from free space and used 
to hold the block. If all validity 
checks are met, the data portion of 
the first block is copied to its 
proper location in the workspace. Thea 
remaining blocks are read in using 


chained scheduled BSAM. When the last 
block has been read, a check 15 made 
to determine if the workspace did not 
have a recorded ownership code. If 
so, it 1s assumed to have been 
recently imported from CMS or VSPC; 
if this 1s true and if the workspace 
is not from someone else's shareable 
library, it 1s closed, reopened for 
output, and the first block is 
rewritten with the correct ownership 
code. Finally, the data set is 
closed, freed by a call to LIBFREE, 
and, if a buffer has been obtained, 
it 15 FREEMAINed. 


Calls: IKJDAIR 
Exit: Returns 


SCMBL 


Module: APLSCMSG 


Called By: APLFXIIM 


Description: Executes YYMBL service 
request (CMS). 


Exit: Returns 


SCMBL 
Module: APLYUMSG 
Called By: SCFXI via macro APLCCALL 


when interpreter issues APLSVCC YYMBL 


Description: This is the message 
blocking and unblocking routine. It 
executes STCOM requests to block and 
unblock messages (T50). The ")MSG 
ON/OFF’ function is provided by 
employing tha 'STCOM YES/NO’ macro to 
invoke TSO SVC 94. 


alls: Macros APLDEFN, APLCENTR, 
APLCEXIT, STCOM 


Exit: Returns 


SCMICRO 
Module: APLSCINI 


Called By: An entry card is included 
to determine the instruction address 
from the load map. 


Description: Identifies an 
instruction to patch when it is 
desired to disable the VS APL 
microcode assist (TS0Q0). 


Exit: Not applicable 


SCMICRO 
Module: APLYUINI 
Called By: An entry card 1s included 


to determine the instruction address 
from the load map. 


Description: Identifies an 
instruction to patch when it is 


desired to disable the VS APL 
microcode assist (TS0). 


Exit: Not applicable 


SCOFF 
Module: APLSCMSC 
Called By: APLFXIIM 


Description: Executes SCOFF service 
request (CMS). 


Exit: SCENDAPL 


SCOFF 
Module: APLYUINI 
Called By: APLYUFXI 


Description: Executes the SCOFF 
service request (TSO). 


Exit: SCEKRDAPL 


SCPASS 
Module: APLSCMSC 
Called By: APLFXIIM 


Description: Executes YYPASS service 
request in CMS. 


Exit: Returns 


SCPASS 

Module? APLYUMSC 

Called By: APLYUFXI 

Description: Executes the YYPASS 
(change sign-on password) service 


request (TSO). 
Exit: Returns 
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SCQAI 
Module: APLSCMSC 


Called By: APLFXIIM 


Description: Executes YYQAI service 
request (CMS). 


Exit: Returns 


SCQAI 
Modula: APLYUMSC 


Called By: AFLYUFXI 


Description: Executes the YYQAI 
service request (T50). YY@QAI supplies 
current values related to the 
distinguished variable QUAD~AI to the 
interpreter. These values comprise 
user's accumulated CPU usage, 
terminal connect time, keying time, 
and default account number (1001). 


Exit: Returns 


SCQUOTA 
Module: APLSCMSC 


alled By: APLFXIIM 





oO 





Description: Executes YYQUOTA service 
request (CHS). 


Exit: Returns 


SCQUOTA 

Module: APLYUMSC 

Called By: APLYUFXI 

Description: Executes the YYQUOTA 
service request (T50). YYQUOTA puts 
information about quotas fer library 
Space, workspace size, and shared 
variable sizes into workspace fields 
so that the interpreter can print 
them. 


Exit: Returns 


SC9Z 
Module: APLSCMSC 


Called By: APLFXIIM 
Description: Executes YYQ@Z service 


request (CMS). 
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Exit: Returns 


SCRHAIT 
Module: APLSCMSS 


Called By: APLFXIIM 


Description: Executes YYRWAIT service 
request (CMS). 


Exit: Returns 


SCRUAIT 
Module: APLYUMSG 


Called By: SCFXI via macro APLCCALL 
when interpreter issues YYRWAIT 


escription: Waits until a user 
presses attention to unlock the 
keyboard after sending a message. 
This function is not provided for 
display terminals, to prevent lockout 
when TCAM has no read pending on the 
tarminal. Instead, an immediate 
return is made with a normal return 
code. 


Calls: Macros APLDEFN, APLCENTR, 
ATT, APLCEXIT 


W 
Exit: Returns 


SCSAVE 
Module: APLSCLIB 


Colled By: APLFXIIM 


Description: Executes YYSAVE service 
request (CMS). 


Exit: Returns 


SCSAVE 
Module: APLYULIB 
Called By: APLYUFXI 


Description: Executes the YYSAVE 
service reauest (TSO). An internal 
routine, LIBDSN, is invoked to build 
the 05 data set name and to determine 
Password ownership of the library. An 
attempt is now made to allocate the 
data set with DISP=OLD. If the data 
set is now found, it is allocated 
with a DISP=NEW, and space determined 
by the current data in the active 
Workspace. The data set 1s opened. To 
write the file to disk, the file is 
prefixed with an 80-byte header. 


Output is written directly from the 
workspace to the data set using 
chained scheduled BSAM output. When 
all the data is written, the LIBUSN 
is called to close and free the data 
set and the 80 bytes are restored to 
WSMBUFF. 


Exit: Returns 


SCSAVOFL 
Module: APLSCERR 
Called By: CMS executor routines. 


Description: Handles overflow of 
executor save area stack (CMS). 


Exit: ABEND 


SCSAVOFL 
Module: AFLYUERR 
Called By: Macro AFLCENIR 


Description: Handles overflow of 
supervisor save area stack (T50). 


Exit: ABEND 


SCSPIE 
Module: APLSCERR 
Called By: CMS, SPIE Exit 


Dascription: For interpreter, 
auxiliary processor, or shared 
variable processor program check, 
returns to CMS with PIE PSW altered 
¢o that control its passed to SCAPL 
»tth a YYPRGX service request; for 
supervisor program check, issues 
ASEND mecro. 


Exit: See description 


SCSPIE 
Module: APLYUERR 


Cailed By: MVS Program Interrupt 
Handler 


Description: SPIE exit routine for 
interpreter and surervisor (TSO). 


Exit: For interpreter or shared 
variable processor rrogram check. 
returns to MVS with PIE PSW altered 
to resume at "DOYYPRGX’ in this 


module. DOYYPRGX will then exit to 
the interpreter by giving control to 
its main antry point, APLIINIT. For 
supervi program check, issues 
ABEND macro with system code 'OCX'. 


SCSRETR 
Module: APLYUSHV 
Called By: APLYUFXI 


Description: This entry point 
executes the YYSRET service request 
(TSQ). 


Calls: ASVPSRVC, SCSAVOFL. Macros 
APLCENTR, APLCEXIT, ASVPON, ASVFOFR, 
ASVPRET, ASVPQRY, ASVPACC, ASVFSPC, 
ASVPREF, ASVPCPY, ASVPSOF, ASVPWAI?, 
WAIT 


Exit: Returns 


SCSTAE 
Module: APLSCEFR 
Called By: CMS STAE Exit 


Description: Address stops virtual 
machine to allow user to use CP 
commands to take storage dump or 
pnerform other problem determination 
actions (CMS). 


exit: Return to CMS ABEND Handles 


SCSTAE 
Module: APLYUERR 
Called By: MVS ABEND Handler 


Description: This is the ABEND (STAE> 
exit routine which receives contro: 
for all abends. The basic thrust of 
ercor recovery is to get the active 
workspace saved in CONTINUE, and then 
to cause TS0 to reinvoke a clean copy 
of VS APL which will reload the 
CONTINUE workspace and continue 
processing. There are two principal 
kinds of abends: 1} X22 and X3E 
abends brought about by operator 
cancel, timing, TCAM error, etc. In 
these instances, the CONTINUE 
workspace is saved normally; 2) all 
other abends constitute error 
Situations in which the CONTINUE 
workspace is marked nonloadable. 


Exit: Returns to MVS ASEND Handler 
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SCSVACC 
Module: APLSCSHV 


Called By: APLFXIIM 


Description: Executes YYSACC service 
request (CMS). 


Calis: ASVPSRVC 
Exit: Returns; SCSAVOFLCError) 


SCSVACC 


Module: APLYUSHV 

Called By: APLYUFXI 

Description: This entry point 
executes the YYSACC service request 
(TS0). 

Calls: ASVPSRVC. Macros APICENTR, 
APLCEXIT, ASVPON, ASVPOFR, ASVPRET, 
ASVPQRY, ASVPACC, ASVPSPC, ASVPREF, 
ASVPCPY. ASVYVPSOF, ASVPWAIT, WAIT 


Exit: Returns 


SCSVCOPY 
Module: APLSCSHV 
Called By: APLFXIIM 


Description: Exesutes YYSCOPY service 
request (CMS). 





Calls: ASYVPSRVC 
Exit: Returns: SCSAVOFLCError) 


SCSVCOPY 
Module: APLYUSHY 
Called By: APLYUFX) 


Description: This entry point 
executes the YYSCOPY service request 
(TSO) 


Calls: ASVPSRYVC, SCSAVOFL. Macros 
APLCENTR, APLCEXIT, ASVPON, ASVPOFR, 

ASVPRET, ASVPQRY, ASVPACC, ASVPSPC, 

ASVEREF, ASVPCPY, ASVPSOF, ASVPWAIT, 
AIT 


Exit: Returns 


SCSVOFF 
Module: APLSCSHV 
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|O 


alled By: APLFXIIM 


Description: Executes YYSOFF service 
request (CNS). 


Calis: ASVPSRVC 





Exit: Returns; SCSAVOFLCError) 


SCSVOFF 
Module: APLYUSHV 
Called By: APLYUFXI 


Description: This entry point 
executes the YYSOFF service request 
(TSO). 

Calls: ASVPSRVC, SCSAVOFL. Macros 
APLCENTR, APLCEXIT, ASVPON, ASVPOFR, 
ASYPRET, ASVPQRY, ASVPACC, ASVPSPC, 
ASVPREF, ASVPCPY, ASYPSOF, ASVPDIAIT, 
WAIT 


Exit: Returns 


SCSVOFFR 
Module: APLSCSHV 





Called By: APLFXIIM 


Oescriptton: Executes YYSOFFER 
service request (CMS). 


Calls: ASVPSRVC 
Ex1rt: Returns; SCSAVOFLCError) 





SCSVOFR 

Module: APLYUSHV 

Calied By: APLYUFXI 

Description: This entry point 
executes the YYSOFFER service request 
(750). 

Cells: ASVPSRVC. SCSAVOFL. Macros 
AFLCENTR, APLCEXIT, ASVPCN, ASVPOFR, 


ASYPRET, ASVPQRY, ASVPACC, ASVPSPC, 
ASYPREF, ASVPCPY, ASVPSOF, ASVPWAIT, 
WAIT 


Exit: Returns 


SCSVON 
Module: APLSCSHV 


Called By: APLFXIIM 


~ 








Description: Executes YYSON service 
request (CMS). 


Calls: ASVPSRVC 
Exit: Returns; SCSAVOFL(CError) 


SCSVON 
Module: APLYUSHV 


Called By: APLYUFXI 


Description: This entry point 
executes the YYSON service request 
(TSO). 


Calis: ASVPSRVC, SCSAVOFL. Macros 
APLCENTR, APLCEXIT, ASVPON, ASVPOFR, 
ASVPRET, ASVPQRY, ASVPACC, ASVPSPC, 
ASVPREF, ASVPCPY, ASVPSOF, ASVPWAIT, 
WAIT 





Exit: Returns 


SCSVPINI 
Module: APLSCSVI 
Called By: APL 


Description: Initializes shared 
memory and a task block for the 
interpreter and for each auxiliary 
processor running with VS APL under 
CMS. 


Calls: CMS to establish external 
interrupt handler and each auxiliary 
processor to initialize. Macro 
HNDEXT. 


Exit: To first auxiliary processor; 
as a result of its sign-on request, 
control is passed to ASVPSERV which 
exits to the next auxiliary 
processor; when all auxiliary 
processors have been called, contre} 
returns to routine APL. 


SCSVQUER 

Module: APLSCSHV 

Called By: APLFXIIM 
Description: Executes YYSQUERY 


service request (CMS). 
Calis: ASVPSRVC 
Exit: Returns; SCSAVCFL(CError) 


SCSVQUER 

Module: APLYUSHV 

Called By: APLYUFXI 

Description: This entry point 
executes the YYSQUERY service request 
(TSO). 

Calls: ASVPSRVC. SCSAVOFL. Macros 
PFLCENTR, APLCEXIT, ASVPON, ASVPOFR, 
ASVPRET, ASVFQRY, ASVFACC, ASVPSPC, 
ASVPREF, ASYPCPY, ASVPSOF, ASVPNAIT, 
WALT 


Exit: Returns 


SCSVREF 
Indule: APLSCSHV 
Called By: APLFXIIM 
iptio 
st (C 
aljs: ASVPSRVC 


n: Executes YYSREF service 
MS). 


silty 
o 
it 
co 
iD ‘7 


1B i} 


2 Cj 


Ke 2 


*Kit: Returns; SCSAVOFLCError) 


SCSVREF 


Module: APLYUSHV 


Called By: APLYUFXI 
Descripticn: This entry point 
executes the YYSREF service request 
(TSO). 


Cayls: ASVPSRVC, SCSAVOFL. Macros 
APFLCENTR, APLCEXIT, ASVPON, ASVPOFR, 
ASVPRET, ASVPQRY, ASVPACC, ASVPSPC, 
ASYPREF, ASVPCPY, ASVPSOF, ASVPIHAIT, 
WATT 


Feit: Returns 


Se 


odule: APLSCSHV 
Called By: APLFXIIM 





Description: Executes YYSRET service 
request CCHS ) . 


eq 
Alls: ASVPSRVC 





Exit: Raturns; SCSAVOFLCError) 
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SCSVSPEC 
Module: APLSCSHV 
Called By: APLFXIIM 


Description: Executes YYSSPEC service 
request (CMS). 


Calls: ASVPSRVC 
Exit: Returns; SCSAVOFLCError) 





SCSVSPEC 

Module: APLYUSHV 

Called By: APLYUFXI 

Description: This entry point 
executes the YYSSPEC service request 
(TSO). 

Calls: ASVPSRVC, SCSAVOFL. Macros 
APLCENTR, APLCEXIT, ASVPON, ASVPOFR, 
ASVPRET, ASVPQRY, ASVPACC, ASVPSPC, 
ASVPREF, ASVPCPY, ASVPSOF, ASVPWAIT, 
WAIT 


Exit: Returns 


SCSYSER 
Module: APLSCERR 
Called By: APLFXIIM 


Description: Executes the YYSYSER 
service request (CMS). 


Exit: Returns; SCSAVOFL(Error) 


SCSYSER . 
Module: APLYUERR 
Called By: AFLYUFXI 


Description: Executes the YYSYSER 
service request (7TS0Q). 


Exit: Returns; SCSAVOFL( Error) 


SCTABS 
Module: APLSCTYP 


Called By: APLFXIIM 


Description: Executes YYTABS service 
request (CMS). 


Exit: Returns; SCSAVOFL(Error) 
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SCTABS 

Module: APLYUTYP 

Called By: SCFXI via macro APLCCALL 
Description: This entry point 
provides supervisor support for 


QUAD-HT ¢TSO}. 


Calls: Macros APLDEFN, APLCENTR, 
APLCEXIT 


Fxit: Returns 


SCTIME 
Module: APLSCMSC 
Called By: APLFXIIM 


Description: Executes YYTIME service 
request (CMS). 


Exit: Returns; SCSAVOFLCError) 


SCTIME 

Module: APLYUMSC 

Called By: APLYUFXI 

Description: Executes the YYTIME 
service request (7TS0). YYTIME finds 
the current time and date in VS APL 
standard time format and returns it 
in the first eight bytes of WSMSVLRGQ. 


Exit: Returns; SCSAVOFL (Error) 


SCTRAN 
Module: APLSCMSG 
Called By: APLFXIIM 


Description: Executes YYTRAN service 
request (CMS). 


Exit: Returns; SCSAVOFLCError> 


SCTRAN 
Module: APLYUMSG 


Called By: SCFXI via macro AFLCCALL 
when interpreter issues APLSVCC 
YYTRAN 


Description: Executes WTO or TPUT to 
transmit a message to operator or 
user (TSO). The message is translated 
from Z-code to lowercase EBCDIC. If 
it 1s to go to the operator, a 4-byte 


WTO prefix its generated, and the WTO 
macro is used to send it. TPUT is 
used, otherwise, to send the message 
to the TSO user specified in the 
command. For MVS, the ‘USERIDL' form 
of TPUT is issued. 


Calls: Macros APLDEFN, APLCENTR, 
APLCEXIT, APLCOCCVO, JIPUT, WTO 


Exit: Returns; SCSAVOFLCError) 


scryr 

Module: APLSCTYP 

Called By: SCTYOI, APLFX1IM 
Description: Executes YYTYI service 
request for typewriter terminal 


(CMS). 
Exit: Returns; SCSAVOFLCError) 


scTyrI 
Module: APLYUTYP 
Called By: SCFXI via macro APLCCALL 





Description: This entry point 
performs terminal input (TSO). 


Cajis: APLYUTRM. Macros APLDEFN, 
APLCENTR, APLCEXIT 


Exit: Returns 


SCTYO 
Module: APLSCTYP 





Called By: SCTYOI, APLFXIIM 
Description: Executes YYTYO service 
request for typevriter terminal 
(CMS). 


Exit: Returns; SCSAVOFL¢Error>? 


Scryo 
Module: APLYUTYP 
Called By: SCFXI via macro APLCCALL 


Description: This entry point 
performs terminal output (TSO). 


lis: APLYUTRM. Macros APLDEFN, 
APLCENTR, CHKSINK CLOCAL macro), 
APLCEXIT 


Exit: Returns 


SCTYor 

Module: APLSCTYP 

Called By: APLFEXIIM 

Description: Executes YYTYOI service 
request for typevriter terminal and 
read tnput (CNS). 

Calls: SCTYO, SCTYI 


Exit: Returns; SCSAVOFLCError) 


SCTYOI 

Module: APLYUTYP 

Called By: SCFXI via macro APLCCALL 
Description: This entry point 
transmits a prompt to a terminal, 
then performs terminal input CTSO). 
Calls: APLYUTIO, SCTYQO, SCTYI. 
Macros APLDEFN, APLCENTR, APLCCALL, 
CHKSINK, APLCEXIT 


Exit: Returns 


SCHIDTH 
Madule: APLSCTYP 
Celled By: APLFXIIM 


Descripttron: Executes YYWIDTH service 
request (CMS). 


Exit: Returns; SCSAVOFL CError) 
SCHIDTH 

Module: APLYUTYP 

Called By: SCFXI via macro APLCCALL 





escription: This entry point 
rovides supervisor support for 
UAD-Pbi (TSO). 


40 IO 


IO 


alis: Macros APLDEFN, APLCENTR, 
PLCEXIT 


> 


Exit: Returns 


SCNSID 
Module: APLSCMSC 


Licensed Material—Property of IBM 


Section 3. Program Organizattion 205 


Called By: APLFXIIM 


Descrintion: Executes YYNSID service 
request (CNS). 


Exit: Returns: SCSAVOFL(CError) 


SCNSID 
Mocgule: APLYUMSC 
Called By: APLYUFXI 


Description: Executes the YYWSID 
service request (TSO). In response to 
a YWSID command, YYWSID either 
changes tne active workspace ID or 
returns the current ID. 


Calls: HELPENQ 


Exit: Returns; SCSAVOFL(CError) 





SSSATACH 
Module: APLSCOTYP 
Called By: APLFXIIM 


Description: Executes YYWIDTH service 
request (€C4$). 


Exit: Returns; SCSAVOFL(CError) 
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SSSATACH 


‘Module: APLYUSSH 


Called By: Operating system 
Deseription: This entry point 
intercepts the ATTACH SVC so that 
those IQEs that are needed can be 
propagated to the new TCB (TSO). 


Exit: Returns 


SSSROUTR 

Module: APLYUSSH 

Called By: Operating system 
Description: This SVC intercept is 
called when an intercepted SVC is 


issued under tne current TCB (TSO). 


Exit: Returns 


SSSSVC 
Module: APLYUSSH 
Called By: APLYUINI 


Description: This entry point creates 
or deletes SVC subscreens and their 
associated intercept routines (TSO). 


lis: Macros FESTAE, FREEMAIN, 
: 


C 
GETMAIN, SETLOCK, TESTAUTH, MODESET 


E 


Exit: Returns 


SECTION ¢. DIRECTORY 


This section includes two lists of entry points and the names of 
the modules in whitch they appear. The first list is given 
alphabetically by entry point: the second is gtven 
alphabetically by module name. In each list, column 3 gives the 
numbers of diagrams from Section 2 of this book in which the 
entry point or module is referred to. 


FOR DOS/VS: The conversion modules for DOS/VS differ from those 
for OS/VS. These modules are functionally the same, but the 
DOS/VS modules are designed to interface with DOS/VS and the 
OS/VS modules with OS/VS. The OS/VS modules begin with the 
characters APLO;: the DOS/VS modules begin with the characters 
APLD. To avoid unnecessery repetition in this publication, only 
the OS/VS names are used in this publication wherever possible. 
Unless explicitly noted otherwise, substitute the prefix APLD 
for APLO when using this publication for DOS/VS VS APL. 


NTRY POYNTS AND MODULE NAMES SORTED BY ENTRY POINTS 


Entry Entry 
Point Module Point Module 
or Micro~ Method of or Micro- Method of 
Routine fiche Oreration Routine fiche O-eration 
Nama Nare Diagram Name Hara Diagram 
APCREATE APLPAPCD 1.1.) APLATYO APLASCHD 8.2 
APDFN APLPAPCD APLATYOI APLASCHD 8.2 
AP DROP APLPAPCD 1.1.1 APLAUALT APLAK 
APFILSIZ APLPAFCD 1.1.1] APLASA 
APIO APLPAPCD 1.1.1 APLAYA 
APL APL APLAUATN APLAKP 

APLYUINI 1.94 APLASP 
APLACCBE APLACCBE APLAYP 
APLACDSL APLACBSL 8.2.1 APLAUCAE APLAK 
APLACHLP APLACHLP 8.2.1 APLAS 
APLACHMDF APLACNDP APLAY 
APLACMDX APLACMDX 8.2.1 APLAUNCO APLAK 
APLACMER APLACQRY APLAS 
APLACNDP APLACHNDP 8.2.1 APLAY 
APLACOPL APLACOPY APLAUPRO APLAK 
APLACOPY APLACOPY APLAS 
APLACPRM APLACPRM 8.2.1 APLAY 
APLACPRO APLACPRQ 8.2.1 APLAUSRX APLAUSRX 
APLACQRY APLACGRY 8.2.] APLAXCMD APLASCHD 8.2 
APLACQUE APLACQUE 8.2.1 APLFXIIM APLFXIIM 
APLACRCP APLACRCP 8.2.1 APLKIFIX 1.3 
APLACRDA APLACRDA 8.2.1 APLPFXIM i.l 
APLACRSA APLACRSA 8.2.1 APLSCFXI 1.2 
APLACSF APLACSF 8.2.1 APL YUFX]I 1.4 
APLACXCM APLACXCM 8.2.1 APLYUII©M 
APLAD APLAD APLIINIT APLITINI 
APLADMSG APLADMSG 8.2.1 APLKADEF APLK£ADEF 1.3 
APLADSON APLACRDA APLKADSP APLKADSP 1.3 
APLADTTM APLADTTM APLKAGBL APLKAGBL 1.3 
APLAERRM APLASCHD 8.2 APLKAHST APLKAHST 
APLAESTK APLAESTK APLKAMIX APLKAMNIX 
APLAINIT APLASCHD 8.2 APLKASON APLKASON 1.3 
APLALINE APLALINE APLKEHCP APLKEHCP 1.3 
APLAMODE APLACHWDP APLKEMGR APLKEMGR 1.3 
APLAPAGE APLALINE APLKIFON APLKIFIX 1.3 
APLAPASS APLASCHD 8.2 APLKISVI APLKISVI 1.3 
APLATERM APLASCHD 8.2 APLKLIBF APLKLIBF 1.3 
APLATYTI APLASCHD 8.2 APLKLIBG APLKLIBG 1.3 
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Entry 
Point 


or. 
Routine 
Name 


APLKLIBI 
APLKLIBR 


APLKLIBT 
APLKLUIT 
APLKLUTM 
APLKPFAP 
APLKPFOH 
APLKSPRG 
APLKSSR 

APLKSSUB 
APLKTCTL 
APLKTCWR 
APLPAPAC 
APLPAPOF 
APLPAPPR 
APLPAPRT 
APLPAPSF 
APLPCENT 
APLPCOAP 
APLP126T 
APLSCSSI 
APLSHACC 
APLSHBPB 
APLSHBVB 
APLSHCPY 


APLSHGET | 


APLSHOFR 
APLSHPST 
APLSHPUT 
APLSHQUE 
APLSHREF 
APLSHRET 
APLSHSOF 
APLSHSON 
APLSHSPC 
APLSHSRD 
APLSHSUB 
APLXACSO 
APLXACSV 
APLXAKSO 
APLXAKSV 
APLXAINP 


APLXAMSG 


APLXBACK 
APLXBSAB 
APLXBSXT 
APLXBYAB 


APLXBYXT 


APLXCALL 
APLXDKMP 
APLXDUCL 
APLXDUMP 
APLXDUOP 
APLXFINT 


APLXFSFL 
APLXFTRM 


APLXFYFL 
APLXGCAT 
APLXGCHC 
APLXGCOM 


Module 
Micro- 
fiche 
Name 


APLKLIBB 
APLKLIBG 
APLKLIBR 
APLKLIBB 
APLKLIBC 
APLKLIBC 
APLKASTB 
APLKASTB 
APLKVEXC 
APLKSSVP 
APLKSSUB 
APLKTFCTL 
APLKTCWR 
APLPAPAB 
APLPAPAB 
APLPAPAB 
APLPAPAB 
APLPAPAB 
APLPCOEX 
APLPCOAP 
APLP126T 
APLSCSSI 
APLSHACC 
APLSHBPB 
APLSHBVB 
APLSHCPY 
APLSHGET 
APLSHOFR 
APLSCSVI 
APLSHPUT 
APLSHQRE 
APLSHREF 
APLSHRET 
APLSHSOF 
APLSHSON 
APLSHSPC 
APLSHSRD 
APLSHSUB 
APLXAC 
APLXAC 
APLXAK 
APLXAK 
APLXASD 
APLXAYD 
APLXASD 
APLXAYD 
APLXSTAK 
APLSCSVI 
APLSCSVI 
APLYUSVI 


APLYUSVI 


APLXSTAK 
APLXDKMP 
APLXDUMP 
APLXDUMP 
APLXDUMP 
APLXFSFL 
APLXFYFL 
APLXFSFL 
APLXFSFL 
APLXFYFL 
APLXFYFL 
APLXGCAT 
APLXGCHC 
APLXGCOM 


Method of 
Operation 
Diagram 


= | 
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Entry 
Point 
or. 
Routine 
Name 


APLXGKON 
APLXGKR 
APLXGKRQ 
APLXGKRR 
APLXGKT 
APLXGKU 
APLXGS 
APLXGY 
APLXGYON 
APLXGYRQ 
APLXMKSG 


APLXMS5G. 


APLXMYSG 
APLXPK 

APLXPY 

APLXSTAK 
APLXTRAN 
APLXTREZ 
APLXTRZE 
APLXVERS 
APLXUKWP 
APLXWSLP 
APLXWYWP 


APLYDAIR 
APLYUCND 
APLYUCHV 
APLYUEXC 
APLYUFXI 
APLYUHSH 
APLYULNE 
APLYURVC 
APLYUTBL 
APLYUTIO 
APLYUUSR 
APL100 


APL100K 
APL100KO0 
APL101 


APL123 


APLi23K 
APL124K 
APL125K 
APL126 
APL126T 
APL132K 
APLI39K 
APL210 
APOPEN 
APPASSWD 
APSHARE 
APVIO 
ASVPSERV 


Mcdule 
Micro- 
fiche 
Nane 


APLXGKON 
APLXGKR 
APLXGKRQ 
APLXGKRR 
APLXGKT 
APLXGKU 
APLXGS 
APLXGY 
APLXGY 
APLXGY 
APLXMKSG 
APLXMSSG 
APLXMYSG 
APLXPK 
APLXPY 
APLXSTAK 
APLXTRAN 
APLXTRAN 
APLXTRAN 
APLXVERS 
APLXWKUWP 
APLSCSVI 
API.XWYWP 
APLYUSVI 


APLYDAIR 
APLYUCMD 
APLYUCNV 
APLYUEXC 
APLYUFXI 
APLYUHSH 
APLYULNE 
APLYURVC 
APLYUTBL 
APLYUTIO 
APLYUUSR 
APLYU100 
APL100 
APL100K 
APL100KO 
APLYU1O1 
APL101 
APLYU19O2 
APL102K 
APL110 
APLYUI111 
APLill 
APL120 
APL121 
APL121K 
APL123 


APLi23K 
APL124K 
APL125K 
APL126 
APL126T 
APL132K 
APL139K 
APLYU210 
APLPAPCD 
APLPAPCD 
APLPAPCD 
APLPAPCD 
APLSCSVI 
APLYUSVI 


Method of 


Operation 


Diagram 


Co 


w Ww ww ww 


ee ed ee ed eS ee od ee ee 
ROR ee 2 Ol & GIA ANGINA RQ RO wm eh WARD 
Ch er Re POR TOTO RO RO ROP RG mI NO RO & RD PO RO fo 


Co Oo 


= Co 
ys) 


Entry Entry 
Point Module . Point Module 
or Micro- Method of or Micro- Method of 
Routine fiche Operation Routine fiche Oreration 
Name Nam? Diagram Nane Nane Diagram 
ASVPSRVC APLYURVC ERSAVEAR APLPCOEX 1.1 
ASVPSRVC ERTIMDAT APLPSERR 
BEXIT APLKASTB FREESTOR APLPAPGD 
COIBM APLCOIBM FSMBUZZ APLPAPES 1.1.1 
CVCULL APLCCULL FSMFORMT APLPAPFS 1.1.1 
APLOCULL FSMGET APLPAPFS 1.1.1 
CVDATE APLCMISC FSMHCOPY APLPAPFS 1.1.1 
APLOMISC FSMMINT APLPAPFS 1.1.1 
APLQMISC FSMMTYPE APLPAPFS T.1.1 
CVDIRE APLCMIS5C FSMREAD APLPAPFS 1.1.1 
APLODIRE FSMRFEORM APLPAPFS 1.1.1 
CVDISP APLCDISP FSNSETC APLPAPFS 1.1.1 
APLODISP FSMSUB1 APLPAPFS 1.1.1 
APLQDISP FSMSUB2 APLPAPFS 1.1.1 
CVFUNC APLCFUNC FSMSUB3 APLPAPFS 1.1.1 
APLOFUNC FSMWRITE APLPAPFS 1.1.1 
APLQFUNC CDDMCRET APLPAPGB 1.1.1 
CVGDIR APLODIRE GDDMRCTL APL PAPGC 1.1.1 
CVGRUP AP! CGRUP GDDMSCTL APLPAPGB 1.1.1 
APLOGRUP GDDMSDAT APLPAPGB 1.1.1 
APLQGRUP GDDMSOFF APLPAPGB 1.1.1 
CVIBNM APLCIBNM GDDX APLPAPGD 1.1.1 
APLOIBNM GDDXINIT APLPAPGD 1.1.1 
APLQYBNM GETSTOR APLPAPGD 1.1.1 
CVINIT APLCINIT 6.) TABNM APLIATRN 4.1.5 
APLOINIT 6.0 LACKL370 APLIEXFR 
APLQINIT 6.0 TACHK APLIACHK 
CVIOER APLCMISC YACIRCLE APLIACIR 
APLOSIISC TAUCMX APLJIECMX 
CVLEAR APLCILEAR TACOMMA APLIERHO 
APLOLEAR TADDOM APLIADOM 4.1.3 
APLQLEAR TADEAL APLIATRN 4.1.5 
CVPARM APL CF ARM TADECODE APLIADEC 4.1.3 
APLOPAKM TADFORM APLTAFOR 4.1.3 
APLQPARM TEDSHARE APLIATRN 4.1.5 
CVPRTR APLCMISC TADIR!EN APLIATSP 
APLOMISC IADYB APLIEFCH 
APLQMISC LAENCODE APLIAENC 4.1.3 
CVRPRT APLCRPRT IAEXECTE APLIATRN 4.1.5 
APLORFRI TAEXNAME APLIATRN 4.1.5 
APUQRPRT IAEXPR APLIATRS 
CYSAVE. APLESAVE IAEXSTCK APLIATRN 4.1.5 
APLOSAVE LAFACT APLIATRS 
APLQSAVE LAFACTRL APLITATRN 4.1.5 
CVSHIP APLOSHTIP TAFCHNAM APLIANAM 
APLOSHIP TAFLCL APLIATRN 4.1.5 
CVSLST APLOSLST TAGEIMT APLIAGFM 
CVSPIJE APLCSPIE LAGFMT2 APLIAGFM 
APLOSPIE FAGOUT APLIAGQU G.1, 4.1 
APLQSPTIE TAGRADE APLIAGRD 4.1.3 
CYTBCD APLCTBOD IAHTSPEC APLIASYV 4.1.5 
APLOTBCD TAIPROD APLIAPRD 4.1.3 
CVTIDY APLCMISC TAIROLL APLIATRN 4.1.5 
APLOTIDY TALOG APLIATRN 4.1.5 
APLQMISC TALOGR APLIATRS 
CVVARB APLCVARB IA4MDOM APLIADOM 4.1.3 
APL OVARB LANFORM APLIAFCOR 4.1.3 
APLQVARB ITAMSHARE APLIATRN 4.1.5 
CVWKSP APLCIKSP TAMTRAN APLIATSP 
APLOWKSP TAPLFUN APLIATRN G.i.5 
APLQWKSP TAPOW APLIATRN 4.1.5 
CVWSFN APLCHSEN ITAQCR APLIAQFN 
APLOL-SFN TAQDL APLIAQFN 
DMSSEND APLYUSCN TAQDSPEC APLIATRN 4.1.5 
DMSSCNN APLYUSCN TAQEX APLIAQEN 
FRENDEX APLPCOEX 1.1 TAGFX APLIAQFN 
ERMSGRTN APLPSERR IAGNC APLIAQFN 
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Entry 
Foint 
or 
Routine 
Nare 


IAQHL 
TAQSVC 
TAQSVO 
TAQSVQ 
TAQSVR 
IAQUADS 
IAQUADSA 
ITAREDU 
IARESIDU 
IAREVARY 
IAROLL 
IAROTA 
IARTOTI 
IARTRACT 
TASCAN 
IASCOPY 
IASFIND 
IASHADO 
IASHRPST 
TASHSFEC 
TASQRT 
IASVOFF 
IASVON 
IASYSPEC 
IASYSFST 
IASYSREF 
IATABREF 
IATIDY 
IATKDP 
IATOBCD 
IATOBCD2 
IAUNSHAD 
IAUNSHR 
ITAVALNAM 
IEABEND 
IECHIX 
IECMEX 
IECOMMA 
TECONVR 
IECOPY 
IEDATTN 
IEDYAD 


IEDYB 
IEEPSIOT 
IEFIND 
IEFREE 
IEFUNN 
IESETNI 
IEGETNL 
IEGETHR 
IEGETV 
IEGINITI 
IEGINIFL 
IEGINITR 
IEGOGCMN 
IEGOGOSC 
IEGTSPAC 
IEINDB 
IEINDD 
ITELDSTK 
TEMONAD 
IENAME 
IERSHP 
IESCANG 


Lic 
2190 


Module 
Micro- 
fiche 
Nama 


APLIAQFN 
APLIASHF 
APLIASHF 
APLIASHF 
APLIASHF 
APLIATRN 
APLIATRN 
APLIARED 
APLIATRN 
APLIAROT 
APLIATRH 
APLIAROT 
APLIASYV 
APLIASHV 
APLIASCN 
APLIASHV 
APLIANAM 
APLIASYV 
APLIATRN 
APLIASHV 
APLIATRS 
APLIASHV 
APLIASHV 
APLIASTYV 
APLIASYV 
APLIASYV 
APLIASYV 
APLIATRN 
APLIATAK 
APLIATBC 
APLIATSC 
APLIASYY 
APLIASHV 
APLIANAM 
APLIEXAR 
APLIEMND 
APLIECMX 
APLIERHO 
APLIEFCH 
APLIERHO 
APLIEFXR 
APLIESCA 


APLIEFCH 
APLIEPSI 
APLIESPA 
APLIESPA 
APLIEFNM 
APLIEFCH 
APLIEFCH 
APLIEFCH 
APLIEFCH 
APLIEFCH 
APLIEFCH 
APLIEFCH 
APLIEFNM 
APLIEFNM 
APLIESPA 
APLIEIDX 
APLIEIDX 
APLIEXAR 
AFLIEMNND 
APLIESPA 
APLIERHO 


“APLIESCA 


Method of 
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IESFIND 
IESFREE 
IESGETN 
IESGETYV 
LESGINIT 
IESNAME 
IESPACST 
IESTOSTK 
IESUNFUN 
IESYHN 
IETKDP 
TEUNFH 
IEXARCH 
ITEXIT 
ITBFTYO 
ITBLDIN 
ITBLDOD 
JTCKALPN 
ITCLOSET 
ITCMCLEA 
ITCMCONT 
ITCMCOPNA 
ITCMCOPY 
ITCMDOST 
ITTCHDROP 
ITCMERAS 
ITCMFNS 
ITCMFVG 
ITCMGROU 
ITCMGRP 
TTCMESPS 
LTCMNcIB 
ITCMLOAD 
ITCMiM4SG 
IT CMNOFF 
ITCNOPR 
ITCMP COP 
ITCMOUOT 
ITCHSAVE 
ITCMSI 
ITCMSINL 
ITCMSTAC 
ITCNS YI1B 
TTCMVAR: 
ITCMWSID 
ITCMENSSI 
I}CCFIN 
ITDELETE 
ITEMPFUN 
ITERRORS 
ITEXECUT 


ITFDCLOS © 


ITFDCVT 
ITFDEDIT 
ITFDKILL 
ITFDNWLN 
ITFDOPEN 
ITFDTSOF 
ITFETCH 
ITFNLHO 
ITFORCOF 
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Name 


APLIESPA 
APLIESPA 
APLIEFCH 
APLIEFCH 
APLIEFCH 
APLIESPA 
APLIESPA 
APLIEXAR 
APLIEFNM® 
APLIESPA 
APLIETAK 
APLIEFNM 
APLIEXAR 
APLIEXAR 
APLITSUB 
AFLITIDS 
APLITIDS 
APLITSUB 
APLITFDC 
APLITCML 
APLITCMT 
arclTerd 
APLITCNC 
APLITCMS 
APLITCML 
APLITCME 
APLITCMF 
APLITCfF 
APLITCNG 
APLITCHG 
APLITCMF 
APLITCHL 
APLITCHIL 
APLITCMT 
APLITCMT 
APLITCMT 
APLITCNC 
APLITCML 
APLITCHIL 
APLITCMY 
APLITCMI 
APLITCMS 
APLITC?HMS 
APLITCMF 
APLITCML 
APLITCML 
APLITCPI 
APLITCHE 
APLITFUN 
APLITERR 
APLITEX 

APLITFDC 
APLITNCV 
APLITFDE 
APLITFDC 
APLITFDN 
APLITFDO 
APLITFDC 
APLITFCd 
APLITSUB 
APLITINP 
APLITHCV 
APLITINP 
APLITINP 
APLITCML 
APLITHDR 
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Diagram 
4.1.4, 
3.20 
5.2 
3.2 
3.2 
4.1 
G.1.1> 
3.2 
4.1.1, 
4.1 
4.1 
4.2 
3.2 
3.2 
4.2 
3.0, 3. 
4.2 
4.0, 4. 
3.0, 3. 
3.2 
3.0, 3. 
3.0, 3. 
3.0, 3. 
3.0, 3. 
4.2 
2.9, 3. 
3.2 
2.0, 3. 
2.0, 3. 
3.0, 3. 


4.1.5 
4.1.2 
4.1.2 
1, 3.2 
2 

1, 3.2 
1 

1, 3.2 
] 

1, 3.2 
0 

0 

0 

1, 3.2 
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ITLOUT 
ITNAMINI 
ITNUMCVT 
ITOKENIZ 
ITPRFNLN 
ITPRINTC 
ITPRLINE 
ITPRNAME 
ITPRNUM 
ITPRWSID 
ITSAVWS 
ITSHV 
ITSQUIRT 
ITSTSRCH 
ITSYSCMD 
ITSYSERR 
ITTIME 
ITTIMSUB 
ITTYERR 
ITTYIZ 
ITUSADF 
ITUSAG 
ITUSASH 
ITXBLNL 
KABEXIT 
KABOOTS 
KADEPON 
KCASE2Q 
KCASE3Q 
KCATOFF 
KCDELAY 
KCDUMP 
KCLEANUP 
KCLEAR 
KCMBL 
KCOPA 
KCOPI 
KCOFO 
KCOPZ 
KCQATI 
KCQUOTA 
KCQZ " 
KCSYSER 
KCTABS 
KCTIME 
KCTRAN 
KCWIDTH 
KDPCREG 


KDPFAB 
KDP FAP 
KDROP 
KFREESP 
KGCFILE 
KGCOL 
KGDFILE 
KGDROP 
KGETSPAC 
KGLOAD 
KGSAVE 
KGUDIR 
KGUFILE 
KGWDIR 
KGWLIB 
KIDSETUP 
KIFONEXT 
KINIEX 


Module 
Micro- 
fiche 
Name 


APLITSUB 
APLITCME 
APLITNCYV 
APLITLXS 
APLITSUB 
APLITSUB 
APLITPRL 
APLITSUB 
APLITSUB 
APLITCML 
APLITCML 
APLITCML 
APLITSUB 
APLITIDS 
APLITCMD 
APLITINI 
APLITSUB 
APLITSUB 
APLITSUB 
APLITINP 
APLITUSG 
APLITUSG 
APLITCMI 
APLITSUB 
APLKADSP 
APLKASTB 
APLKADSP 
APLKSSUB 
APLKSSUB 
APLKMSCB 
APLKMSCA 
APLKMSCA 
APLKSSUB 
APLKLIBU 
APLKMSCB 
APLKLIBU 
APLKLIBU 
APLKLIBU 
APLKLIBU 
APLKMSCA 
APLKMSCB 
APLKIFIX 
APLKMSCA 
APLKMSCB 
APLKMSCA 
APLKMSCB 
APLKMSCB 
APLKDOPS 
APLKVOPS 
APLKVOPS 
APLKDOPS 
APLKLIBU 
APLKSSUB 
APLKLIBV 
APLKSSUB 
APLKLIBV 
APLKLIBG 
APLKSSUB 
APLKLIBG 
APLKLIBG 
APLKLIBG 
APLKLIBV 
APLKLIBG 
APLKLIBV 
APLKSSUB 
APLKIFIX 
APLKDOPS 
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KLALLOC 
KLCLOS 
KLDEALOC 
KLGET 


KLIB 
KLOAD 
KLOPEN 
KLPUT 
KLRDBITM 
KMACRO 
KPASS 
KPGMCHK 
KPOSTWAI 
KPPSEARC 
KPROCOFF 
KRETSUB 
KRSTEX 


KSAVE 
KSEIZE 
KSETEX 


KSINGAL 
KSPALD 
KSPAUT 
KSP CMD 
KSPCPY 
KSPDOS 
KSPDSI 
KSPDSO 
KSPEXP 
KSPFMT 
KSPIMP 
KSPINT 
KSPLBI 
KSPLBO 
KSPMSG 
KSPPIN 
KSPSCN 
KSPTPO 
KSPTRM 
KTIMEREX 


KTOINTER 
KTRAL 
KTRCU 
KTRFA 
KTRFI 
KTRFM 
KTRGD 
KTRGF 
KTRHC 
KTRIN 
KTRRD 
KTRRS 
KTRRT 
KTRTRAN 
KTRWR 
KTSCHED 
KTSCLEAR 
KTSFCHK 
KTSFNDF 
KTSLINO 
KTSLOCID 
KTSLOCR 
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APLKVOPS 
APLKLIBA 
APLKVOPS 
APLKLIBA 
APLKDOPS 
APLKVOPS 
APLKLIBU 
APLKLIBU 
APLKVOPS 
APLKVOPS 
APLKLIBV 
APLKADSP 
APLKLIBU 
APLKIFIX 
APLKSSUB 
APLKSSUB 
APLKSSUB 
APLKSSUB 
APLKDOPS 
APLKVOPS 
APLKLIBY 
APLKSSUB 
APLKDOPS 
APLKVOPS 
APLKSSUB 
APLKVALD 
APLKVAUT 
APLKCVMD 
APLKVCPY 
APLKDDOS 
APLKVDSI 
APLKVDSO 
APLKVEXP 
APLKVFMT 
APLKVIMP 
APLKVINT 
APLKVLBI 
APLKVLBO 
APLKVMSG 
APLKVPIN 
APLKVCMD 
APLKVTPO 
APLKVTRM 
APLKDOPS 
APLKVOPS 
APLKIFIX 
APLKTRQO 
APLKTRQO 
APLKTRQO 
APLKTREQ 
APLKTRQO 
APLKTREQ 
APLKTRE@ 
APLKTRQO 
APLKTREQ 
APLKTREQ 
APLKTRQO 
APLKTRE@ 
APLKTRAN 
APLKTRQO 
APLKTSRV 
APLKTSRV 
APLKTSRV 
APLKTSRV 
APLKTSRV 
APLKTSRV 
APLKTSRV 
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KWSID 
KYYTYOI 
KYYOFF 
OFF121X 
PCATOFF 
PCCLEAR 
PCCMD 
PCCOPA 
PCCOPI 
PCCOPO 
PCCOPZ 
PCDELAY 
PCDROP 
PCDTYI 
PCDTYO 
PCDTYOI 
PCDUMP 
PCLIB 
PCLOAD 
PCMBL 
PCOFF 
PCPASS 
PCQAI 
PCQUOTA 
PCQZ 
PCRWAIT 
PCSACC 
PCSAVE 
PCSCOPY 
PCSOFF 
PCSOFFER 
PCSON 
PCSQUERY 
PCSREF 
PCSRET 
PCSSPEC 
PCSYSER 
PCTABS 
PCTIME 
PCTRAN 
PCTYI 
PCTYO 
PCTYOI 
PCWIDTH 
PCWSID 
PRDDIR 
PRDSEQ 
PWRITE 


SCATOFF 
SCATTN 
SCCLEAR 
SCCMD 
SCCOPA 
SCCOPI 
SCCOPO 
SCCOPZ 
SCDELAY 


SCDPA2 
SCDROP 
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APLKLIBU 
APLKIFIX 
APLKMSCB 
APL121 

APLPMISC 
APLPLIBS 
APLPMISC 
APLPLIBS 
APLPMISC 
APLPMISC 
APLPMISC 
APLPTYIO 
APLPLIBS 
APLPTYIO 
APLPTYIO 
APLPTYIO 
APLPSERR 
APLPLIBS 
APLPLIBS 
APLPTYIO 
APLPMISC 
APLPMISC 
APLPMISC 
APLPMISC 
APLPMISC 
APLPTYIO 
APLPSHVR 
APLPLIBS 
APLPSHVR 
APLPSHVR 
APLPSHVR 
APLPSHVR 
APLPSHVR 
APLPSHVR 
APLPSHVR 
APLPSHVR 
APLPSERR 
APLPTYIO 
APLPMISC 
APLPTYIO 
APLPTYIO 
APLPTYIO 
APLPTYIO 
APLPTYIO 
APLPLIBS 
APLPAPCD 
APLPAPCD 


APLPAPCD © 


APLIi21 

APLSCFXI 
APLSCTYP 
APLYUTYP 
APLSCTYP 
APLYUT.YP 
APLSCMSC 
APLYUMSC 
APLSCMSC 
APLYUMSC 


APLSCOPY: 


APLSCOPY 
APLSCOPY 
APLSCOPY 
APLSCMNSC 
APLYUMSC 
APLSCDPY 
APLSCLIB 
APLYULIB 
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SCDTYI 


SCDTYIO 
SCDTYO 


SCDTYOI 
SCDUMP 


SCENDAPL 
SCEXTINY 
SCFID 
SCLIB 
SCLOAD 
SCMBL 
SCMICRO 
SCOFF 
SCPASS 
SCQAT 
SCQUOTA 


SCQZ 
SCRWAIT 


SCSAVE 
SCSAVOFL 
SCSPIE 


SCSRETR 
SCSTAE 


SCSVACC 
SCSVCOPY 
SCSVOFF 
SCSVOFFR 
SCSVOFR 
SCSVON 


SCSVPINI 
SCSVQUER 


SCSVREF 


SCSVRETR 
SCSVSPEC 


SCSYSER 
SCTABS 
SCTIME 
SCTRAN 
SCTYI 
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APLSCDPY 
APLYUDPY 
APLYUDPY 
APLSCDPY 
APLYUDPY 
APLSCDPY 
APLSCERR 
APLYUERR 
APLSCINI 
APLYUINI 
APLSCSVI 
APLSCFID 
APLSCLIB 
APLYULIB 
APLSCLIB 
APLYULIB 
APLSCHSG 
APLYUMSG 
APLSCINI 
APLYUINI 
APLSCHSC 
APLYUINI 
APLSCMSC 
APLYUMSC 
APLSCMNSC 
APLYUSISC 
APLSCMSC 
APLYUMSC 
APLSCMSC 
APLSCMSG 
APLYUMNSC 
APLSCLIB 
APLYULTIB 
APLSCERR 
APLYUERR 
APLSCERR 
APLYUERR 
APLYUSHV 
APLSCERR 
APLYUERR 
APLSCSHV 
APLYUSHV 
APLSCSHV 
APLYUSHV 
APLSCSHV 
APLYUSHV 
APLSCSHV 
APLYUSHV 
APLSCSHV 
APLYUSHV 
APLSCSVI 
APLSCSHV 
APLYUSHV 
APLSCSHV 
APLYUSHV 
APLSCSHV 
APLSCSHV 
APLYUSHV 
APLSCERR 
APLYUERR 
APLSCTYP 
APLYUTYP 
APLSCMNSC 
APLYUMSG 
APLSCHSG 
APLYUMSC 
APLSCTYP 
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Entry Entry 
Point Module | Point Module 
or Micro~ Method of or Micro- Method of 
Routine fiche Operation Routine fiche Operation 
Name Name Diagram Name Name Diagram 
APLYUTYP SCWSID APLSCMSC 
scTyYo APLSCTYP 1.2 APLYUMSC 
APLYUTYP SSATACH APLSCTYP 
scTyYvol APLSCTYP 1.2 APLYUSSH 
APLYUTYP SSSROUTR APLYUSSH 
SCWIDTH APLSCTYP 1.2 SSSSVC APLYUSSH 
APLYUTYP 
ENTRY POINTS AND MODULE NAMES SORTED BY MODULE NAMES 
Entry Entry 
Module Point Module Point 
Microf- or Method of Microf- or Method of 
fiche Routine Operation fiche Routine Operation 
Name Name Diagram Name Name Diagram 
APL APL APLASP APLAUATN 
APLACCBE APLACCBE APLAUSRX APLAUSRX 
APLACDSL APLACDSL 8.2.1 APLAY APLAUCAE 
APLACHLP APLACHLP 8.2.1 APLAUNCO 
APLACMDX APLACMDX 8.2.1 APLAUPRO 
APLACNDP APLACNDP 8.2.1 APLAYA APLAUALT 
APLACMDF 8.2.1 APLAYP APLAUATN 
APLAMODE 8.2.1 APLCCULL CVCULL 
APLACOPY APLACOPL APLCDISP CVDISP 
APLACOPY APLCFUNC CVFUNC 
APLACPRM APLACPRM 8.2.1 APLCGRUP CVGRUP 
APLACPRO APLACPRO > 8.2.1 APLCIBNM CVIBNM 
APLACQRY APLACMER 8.2.1 APLCINIT CVINIT 6.0 
APLACQRY 8.2.1 APLCLEAR CVLEAR 
APLACQUE APLACQUE 8.2.1 APLCMISC CVDATE 
APLACRCP APLACRCP 8.2.1 CVDIRE 
APLACRDA APLACRDA 8.2.1 CVIOER 
APLADSON 8.2.1 CVPRTR 
APLACRSA APLACRSA 8.2.1 CVTIDY 
APLACSF APLACSF 8.2.1 APLCOIBM COIBM 
APLACXCM APLACXCM 8.2.1 APLCPARM CVPARM 
APLAD APLAD APLCRPRT CVRPRT 
APLADMSG APLADMSG 8.2.1 APLCSAVE CVSAVE 
APLADTTM APLADTTM APLCSHIP CVSHIP 
APLAESTK APLAESTK APLCSPIE CVSPIE 
APLAK APLAUALT APLCTBCD CVTBCD 
APLAUCAE APLCVARB CVVARB 
APLAUNCO APLCNKSP CVWKSP 
APLAUPRO APLCWSFN CVWSFN 
APLAKP APLAUATN APLFXIIM APLFXIIM 
APLALINE APLALINE APLIACHK TACHK 
APLAPAGE APLIACIR TACIRCLE 
APLAS APLAUCAE APLIADEC TADECODE 4.1.3 
APLAUNCO APLIADOM IADDON 4.1.53 
APLAUPRO TAMDOM 4.1.3 
APLASA APLAUALT APLIAENC TAENCODE 4.1.3 
APLASCHD APLAERRM 8.2 APLIAFOR ITADFORM 4.1.3 
APLAINIT 8.2 TAMFORM 4.1.3 
APLAPASS 8.2 APLIAGFM TAGFMT 
APLATERM 8.2 LAGFIMT2 
APLATYI 8.2 APLIAGOU IAGOUT 4.1, 4.1.5 
APLATYO 8.2 APLIAGRD TAGRADE 4.1.3 
APLATYOI 8.2 APLIANAM TAFCHNAM 
APL AXCMD 8.2 TASFIND 
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APLIAPRD 
APLIAQFN 


APLIARED 
APLIAROT 


APLIASCN 
APLIASHF 


APLIASHV 


APLIASYV 


APLIATAK 
APLIATBC 


APLIATRN 


APLIATRS 


APLIATSP 
APLIECMX 
APLIEFCH 
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IAVALNAM 
IAIPROD 
IAQCR 
TAQDL 
IAQEX 
IAQFX 
IAQNC 
IAQNL 
IAREDU 
IAREVARY 
IAROTA 
IASCAN 
IAQSVC 
IAQSVO 
LAQSVQ 
IAQSVR 
IARTRACT 
IASCOPY 
IASHSPEC 
IASVOFF 
IASVON 
IAUNSHR. 
IAHTSPEC 
IARTOI 
IASHADO 
IASYSPEC 
IASYSPST 
LASYSREF 
IATABREF 
IAUNSHAD 
IATKDP 
IATOBCD 
LATOBCD2 
IABNM 
IADEAL 
IADSHARE 
IAEXECTE 
IAEXNAME 
IAEXSTCK 
IAFACTRL 
IAFLCL 
IAIROLL 
IALOG 
IAMSHARE 
IAPLFUN 
IAPOW 
IAQDSPEC 
IAQUADS 
IAQUADSA 
IARESIDU 
IAROLL 
IASHRPST 
IATIDY 
IAEXPR 
IAFACT 
IALOGR 
IASQRT 
IADTRAN 
IAMTRAN 
IACMX 
IECMEX 
LADYB 
IECONVR 
IEDYB 


- TEGETNI 


ITEGETNL 
IEGETRR 
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APLIEFNN 


APLIEFXR 
APLIEIDX 


APLIEMND 


APLIEPSI 
APLIERHO 


APLIESCA 


APLIESPA 


APLIETAK 
APLIEXAR 


APLIEXFR 
APLITCNC 


APLITCMD 
APLITCME 
APLITCMF 


APLITCMG 
APLITCMI 


APLITCML . 
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Point 
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Routine 
Name 


IEGETV 
IEGINITI 
IEGINITL 
IEGINITR 
IESGETN 
TESGETV 
IESGINIT 
TEFUNN 
IEGOGOMN 
IEGOGOSC 
IESUNFUN 
TEUNFN 
IEDATTN 
IEINDB 
IEIHDD 
IECHIX 
TENONAD 
IEEPSIOT 
TACONMA 
ITECOMMA 
IECOPY 
IERSHP 
IEDYAD 


TESCANG 


IEFIND 
IEFREE 
IEGTSPAC 
IENAME 
IESFIND 
IESFREE 
TESNAME 
IESPACST 
IESYNN 
TETKEP 
IEABEND 
IELDSTK 
IESTOSTK 
IEXARCH 
TEXIT 
IACAL379 
ITCMCOPY 
ITCNPCOP 
ITSYSCMD 
ITCMERAS 
ITDELETE 
ITHAMINI 
ITCMFNS 
ITCMFVG 
ITCMHGRPS 
ITCMHVARS 
ITCNGROU 
ITCMGRP 
ITCMSI 
ITCMSINL 
ITUSASH 
ITCMNCLEA 
ITCMDROP 
ITCMLIB 
ITCMLOAD 
ITCMNQUOT 
ITCMSAVE 
ITCMWSID 
ITCHNSSI 
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4.1.1, 
4.1.1, 
4.1.1, 
4.1.1, 
4.1.1, 
4.1.94 
4.1.94 
4.1.3 
4.1.3 
4.1, 4%. 
4.1.2, 
4.1.4, 
G.1, 4. 
4.1.2, 
4.1.4, 
3.2 
3.2 
3.2 
3.2 
3.2 
3.2 
3.2 
3.2 
3.2 
4.1 
4.1 
4.1 
4.1 
4.1 
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APLITCMS 


APLITCMT 


APLITCPI 
APLITCPO 
APLITERR 
APLITEX 

APLITFCH 
APLITFDC 


APLITFDE 
APLITFON 
APLITFDO 
APLITFUN 
APLITHDR 
APLITIDS 


APLITINI 
APLITINP 


APLITLXS 
APLITNeV 


APLITPRL 
APLITSUB 


APLITUSG 


APLKADEF 
APLKADSP 


APLKAGBL 
APLKAHST 
APLKAMIX 
APLKASON 
APLKASTB 


APLKCVMD 
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Name 


ITLIBMSG 
ITPRWSID 
ITSAVINS 
ITSHV 
ITCMDOST 
ITCMSTAC 
ITCMSYMB 
ITCMCONT 
ITCMAISG 
ITCNOFF 
ITCMOPR 
ITCOPIN 
ITCMCOPO 
ITERRORS 
ITEXECUT 
ITFETCH 
ITCLOSET 
ITFDCLOS 
ITFDKILL 
ITFDTSOF 
ITFDEDIT 
ITFDMWLN 
ITFDOPEN 
ITEMPFUN 
ITLINEO 
ITBLDID 
ITBLDQD 
ITSTSRCH 
APLIINIT 
ITSYSERR 
ITFORCOF 
ITINPINI 
ITINPUT 
ITTYIZ 
ITOKENIZ 
ITFDCVT 
ITININT 
ITHUMCVT 
ITPRLINE 
ITBFTYO 
ITCKALPN 
ITFNLNO 
ITLOUT 
ITPRFNLN 
ITPRINTC 
ITPRNAME 
ITPRNUM 
ITSQUIRT 
ITTIME 
ITTIMSUB 
ITTYERR 
ITXBLNL 
ITUSACE 
ITUSAG 
APLKADEF 
APLKADSP 
KABEXIT 
KADEPON 
KMACRO 
APLKAGBL 
APLKAHST 
APLKAMIX 
APLKASON 
APLKPFAP 
APLKPFOH 
KABOOTS 
KSPCMD 


Method of 

Operation 

Diagram 
4.2 
4.0, 4. 
3.0, 3. 
3.0, 3. 
3.0, 3. 
3.0, 3. 
3.0, 3. 
3.0, 3. 
3.0, 3. 
S.2 
5.2 
3.2 
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Module 
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Name 


APLKDDOS 
APLKDOPS 


APLKEHCP 
APLKEMGR 
APLKIFIX 


APLKISVI 
APLKLIBA 


APLKLIBB 
APLKLIBC 


APLKLIBF 
APLKLIBG 


APLKLIBR 


APLKLIBU 


APLKLIBV 


APLKMSCA 


APLKMSCB 


APLKSSUB 


Entry 
Foint 
or 
Reutine 
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KSPDOS 
KDPCREG 
KINIEX 
KLGET 
KRSTEX 
KSETEX 
KTIMEREX 
APLKEHCP 
APLKEMER 
APLFXIINM 
APLKIFON 
KCQZ 
KIFONEXT 
KP GIICHK 
KYTOINTER 
RYYTOL 
APLKIS¥VI 
KLALLOS 
KLDEALOC 
APLKLIBI 
APLKLIBT 
APLKLUIT 
APLKLUTM 
AFELKLIBE 
APLKLIBG 
APLEKLIBR 
KGLOAD 
KGSAVE 
KGUBIR 
KGHIDIR 
APLKLIBR 
KCLEAR 
KCOPA 
KCGPI 
KCOFO 
KCOPZ 
KDROP 
KLIB 
KL_OAD 
KPASS 
KSAVE 
KIISTD 
¥VGCFILE 
KGEFILE 
KGUFILE 
KEWLIB 
KLRDBITM 
KCDELAY 
KC DuUfiP 
KCQAI 
KCSYSER 
KCTIME 
KCATOFF 
KCMBL 
KCQUOTA 
KCTABS 
KO TPAN 
KCHIIDTH 
KYYOFF 
APLKSSUB 
KCASE2Q 
KCASES9 
KCLEANUP 
KFREESP 
KGCOL 
KGETSPAC 
KIDSETUP 
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Module 
Micro- 
fiche 
Name 


APLKSSVP 
APLKTCTL 
APLKTCWR 
APLKTRAN 
APLKTRE® 


APLKTR@O 


APLKTSRV 


APLKVALD 
APLKVAUT 
APLKVCMD 
APLKVCPY 
APLKVDSI 
APLKVDSO 
APLKVEXC 
APLKVEXP 
APLKVFMT 
APLKVIMP 
APLKVINT 


APLKYLBI- 


APLKVLBO 
APLKVMSG 
APLKVOPS 


APLKVPIN 
APLKVTPO 
APLKVTRM 
APLOCULL 
APLODIRE 


APLODISP 
APLOFUNC 
APLOGRUP 
APLOIBNM 
APLOINIT 
APLOLEAR 
APLOMISC 
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Entry 
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or 
Routine 
Name 


KPOSTWAT 
KPPSEARC 
KPROCOFF 
KRETSUB 
KSEIZE 
KSINGAL 
APLKSSR 
APLKTCTL 
APLKTCWR 
KTRIRAN 
KTRFI 
KTRGD 
KTRGF 
KTRIN 
KTRRD 
KTRRT 
KTRAL 
KTRCU 
KTRFA 
KTRFM 
KTRHC 
KTRRS 
KTRWR 
KTSCHED 
KTSCLEAR 
KTSFCHK 
KTSFNDF 
KTSLINO 
KTSLOCID 
KTSLOCR 
KSPALD 
KSPAUT 
KSPSCN 
KSPCPY 
KSPDSI 
KSPDSO 
APLKSPRG 
KSPEXP 
KSPFMT 
KSPIMP 
KSPINT 
KSPLBI 
KSPLBO 
KSPMSG 
KDPCREG 
KDPFAB 
KINIEX 
KLCLOS 
KLGET 
KLOPEN 
KLPUT 
KRSTEX 
KSETEX 
KTIMEREX 
KSPPIN 
KSPTPO 
KSPTRM 
CVCULL 
CVDIRE 
CVGDIR 
CVDISP 
CVFUNC 
CVGRUP 
CVIBNM 


~CVINIT 


CVLEAR 
CVDATE 
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Oreration 
Diagram 


| 


fd pe ft fe f= ff Pt fe fp fp *  O  * 
« « © o «© © # 8© #8» #@© «© 8 #© o@ @ @ @ + @ @ © © © @ ww 4 »._ «© #® © @ # @ 


en tn Min in Min | 


- = * = > j= = (-= | 
* a a . a a . . 


ooo CA OA OA Cal OA OA Cer ON Gr OF OA Ol Ca Gl ON Ot CI GC OG Gt Gr sO ONG ON ON Cl Cd 


eaqaoqocea 


tA CA ON OA O41 O41 Cre Od 


= 6hU™W® ™ = = - 


—- -—- -—* - |-- - |= 
a a a a a a a 


CN ON Cal ON Cx ON CA 


me ee 


Mcdule 
Micro- 
fiche 
Nare 


APLOPARM 
APLORPRT 
APLOSAVE 
APLOSHIP 
APLOSLST 
APLOSPIE 
APLOTBCD 
APLOTIDY 
APLOVARB 
APLOWKSP 
APLOWSFN 
APLPAPAB 


APLPAPCD 


APLPAPFS 


APLPAPGB 


APLPAPGC 
APLPAPGD 


APLPCOAP 
APLPCOEX 


APLPFXIM 
APLPLIBS 


APLPMISC 


Entry 
Point 
or 
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CVIOER 
CVPRTR 
CVPARM 
CVRPRT 
CVSAVE 
CVSHIP 
CVSLST 
CVSPIE 
CVTBCD 
CVTIDY 
CVVARB 
CVLIKSP 
CVLISFN 
APLPAPAC 
APLPAPOF 
APLPAPPR 
APLFAPRT 
APLPAPSF 
APCREATE 
APDFN 
APDROP 
APFILSIZ 
APIO 
APOPEN 
APPASSWD 
APSHARE 
APVIO 
PRDDIR 
PRDSEQ 
PWRITE 
FSMBUZZ 
FSMFORMT 
FSMGET 
FSMHCOPY 
FSMMINT 
FSMMTYPE 
FSMREAD 
FSMRFORM 
FSMSETC 
FSMSUBI 
FSMSUB2 
FSMSU83 
FSMNWRITE 


GDDNCRET . 


GDDMSCTL 
GDDMSDAT 
GDDMSOFF 
GDPMNRCTL 
FREESTOR 
GDDX 
GDOXINIT 
GETSTOR 
APLPCOAP 
APLPCENT 
ERENDEX 
ERSAVEAR 
APLFXIIM 
PCCLEAR 
PCCOPA 
PCBROP 
PCLIB 
PCLOAD 
PCSAVE 
PCWSID 
PCATOFF 
PCCMD 
PCCOPI 
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Entry Entry 
Module Point Module Point 
Micro- or Method of Micro- or Method of 
fiche Routine Operation fiche Routine. Operation 
Name Name Diagram Name Name Diagram 

PCCOPO APLSCMSC SCCLEAR 

PCCOPZ SCCMD 

PCOFF SCDELAY 

PCPASS SCOFF 

PCQAI SCPASS 

PCQUOTA SCQAIL 

PCQZ SCQUOTA 

PCTIME $CQZ 
APLPSERR ERMSGRTN SCTIME 

ERTIMNDAT Sscwsid 

PCDUSIP APLSCMSG SCMBL 

PCSYSER SCRWAIT 
APLPSHVR PCSACC 1.1.1 SCTRAN 

PCSCOPY 1.1.1 APLSCOPY SCCOPA 

PCSOFF 1.1.1 SCCOPI 

PCSOFFER 1.1.1 SCCOPO 

PCSON 1.1.1 S$CCOPZ 

PCSQUERY 1.1.1 APLSCSHV SCSVACC 

PCSREF 1.1.1 SCSVCOPY 

PCSRET 1.1.1 SCSVOFF 

PCSSPEC 1.1.1 SCSVOFFR 
APLPTYIO PCDELAY SCSVON 

PCDTYI SCSVQUER 

PCDTYO SCSVREF 

PCDITYOI SLSVRETR 

PCMBL SCSVSPEC 

PCRWAIT APLSCSSI APLSCSSI 

PCTABS APLSCSVI APLSHPST 1.2.1 

PCTRAN APIXBSAB 

PCTYI APLXBSXT 

PCTYO APLXNSWP 

PCTYGI! ASVPSERV 1.2.1, 8.4.3 

PCWIDTH SCSVPINI 1.2.1, 8.4.3 
APLP126T APLP126T SCEXTINY 
APLQDISP CVDISP APLSCTYP SCATOFF 1.2 
APLQFUNC CVFUNC SCATIN 1.2 
APLQGRUP CVGRUP SCTABS 1.2 
APLQIBNM cVIBNM sciyrI 1.2 
APLQINIT CVINIT 6.0 SCTYG 1.2 
APLQLEAR CVLEAR SCTYOI 1.2 
APLQMISC CYDATE SCNIDTH 1.2 

CVFRTR SSATACH 

CVTIDY APLSHACC EPLSHACC 1.2.1 
APLQPARM CYPARM APLSHBPB SPLSHERPB 1.2.1 
APLQRPRT CVRPRY APLSHBVB APLSHBYB 1.2.1 
APLQSAVE CVSAVE APLSHCPY APLSHCPY 1.2.1 
APLQSPIE CVSPIE APLSHGET APLSHGET 1.2.1 
APLQVARB CVVARB APLSHUFR APLSHOFR 1.2.1 
APLQWKSP CVWKSP APLSHPUT APt. SHPUT 1.2.1 
APLSCDPY SCDPA2 APLSHQRE APLSHQUE 

SCDIYI APLSHREF APLSHREF 1.2.1 

SCDTYO APLSHRET APLSHRET 1.2.1 

SCDTYOI APLSHSOF APLSOHSOF 1.2.1 
APLSCERR SCDUMP 1.2 APLSIISON APLSHSON 1.2.1 

SCSAVOFL -}.2 APLSHSPC APLSHSPC 1.2.1 

SCIPIE 1.2 APLSHSRD APLSHSRD 1.2.1 

SCSTAE 1.2 APLSHSUB APLSHSUB 1.2.1 

SCSYSER 1.2 APLXAC APLXACSO 8.3 
APLSCFID SCFID APLXACSY 8.3 
APLSCFXI APLFXIIM 1.2 APLXAK APLXAKSO 

SCAPL 1.2 APLXAKSV 
APLSCINE SCENDAPL 1.2 APLXASD APLXAINP 8.3 

SCMICRO 1.2 APLXAMSG 8.3 
APLSCLIB SCDROP APLXAYD APLXAINP 8.3 

SCLIB AFLXAMNSG 8.3 

SCLOAD APLXDKMP APLXDKIMP 

SCSAVE APLXDUMP APLXDUCL 
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Module 
Micro- 
fiche 
Name 


APLXFSFL 


APLXFYFL 


APLXGCAT 
APLXGCHC 
APLXGCOM 
APL XGKON 
APLXGKR 
APLXGKR@Q 
APLXGKRR 
APLXGKT 
APLXGKU 
APLXGS 
APLXGY 


APLXMKSG 
APLXMSSG 
APLXMYSG 
APLXPK 
APLXPY 
APLXSTAK 


APLXTRAN 


APLXVERS 
APLXWKWP 
APLXWYWP 
APLYDAIR 
APLYUCMD 
APLYUCNV 
APLYUDPY 


APLYUERR 


APLYUEXC 
APLYUFXI 


APLYUHSH 


APLYUIIM 
APLYUINI 


APLYULIB 


APLYULNE 
APLYUMSC 
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APLXDUMP 
APLXDUOP 
APLXFINT 
APLXFSFL 
APLXFTRM 
APLXFINT 
APLXFTRM 
APLXFYFL 
APLXGCAT 
APLXGCHC 
APLXGCOM 
APLXGKON 
APLXGKR 
APLXGKRQ 
APLXGKRR 
APLXGKT 
APLXGKU 
APLXGS 
APLXGY 
APLXGYON 
APLXGYRQ@ 
APLXMKSG 
APLXMSSG 
APLXMYSG 
APLXPK 
APLXPY 
APLXBACK 
APLXCALL 
APLXSTAK 
APLXTRAN 
APLXTREZ 
APLXTRZE 
APLXVERS 
APLXWKWP 
APLXWYWP 
APLYDAIR 
APLYUCMD 
APLYUCNY 
SCDTYI 
SCDTYIO 
SCDTYO 
SCDUMP 
SCSAVOFL 
SCSPIE 
SCSTAE 
SCSYSER 
APLYUEXC 
APLFXIIM 
APLYUFXI 
APLYUHSH 
APLFXIIM 
APL 
SCENDAPL 
SCMICRO 
SCOFF 
SCDROP 
SCLIB 
SCLOAD 
SCSAVE 
APLYULNE 
SCCLEAR 
SCDELAY 
SCPASS 
SCQAI 
SCQUOTA 
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Module 
Micro- 
fiche 
Name 


APLYUMSG 
APLYURVC 
APLYUSCN 
APLYUSHV 


APLYUSSH 


APLYUSVI 


APLYUTBL 
APLYUTIO 
APLYUTYP 


APLYUUSR 
APLYU100 
APLYU1LOI 
APLYU1LO2 
APLYUL1I1 
APLYU210 
APL100 
APL100K 
APL100KO 


APLI21K 
APL123 
APL123K 
APL124K 
APL125K 
APL126 
APL1I26T 
APL132K 
APL139K 
ASVPSRVC 


Entry 
Point 
or 
Routine 
Name 


SCRWAIT 
SCTRAN 
SCWSID 
SCMBL 
SCTIME 
APLYURVC 
ASVPSRVC 
DMSSCND 
DMSSCNN 
SCSRETR 
SCSVACC 
SCSVCOPY 
SCSVOFF 
SCSVOFR 
SCSVON 
SCSVQUER 
SCSVREF 
SCSVSPEC 
SSATACH 
SSSROUTR 
SSSSVC 
APLXBYAB 


APLXBYXT 
APLXWYWP 
ASVPSERV 


APLYUTBL 
APLYUTIO 
SCATOFF 
SCATIN 
SCTABS 
SCTYI 
scTYo 
scTYo! 
SCWIDTH 
APLYUUSR 
APL1OO 
APL101 
APL102 
APL111 
APL210 
APL100 
APL100K 
APL100KO 
APL101 
APL102K 
APL110 
APLill 
APL120 
APL121 
OFF121X 
RET121X 
APL121K 
APL123 
APL1I23K 
APL124K 
APL125K 
APL126 
APL126T 
APL132K 
APL139K 
ASVPSRVC 
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SECTION 5. 


DATA_AREAS 


INTERPRETER DATA AREAS 


VS APL WORKSPACE 


The VS APL processor uses as a data area an area of virtual 
storage called an active VS APL workspace. An active VS APL 
workspace contains VS APL functions Cuser programs), data values 
developed during function execution, V5 APL processor transient 
data, and a communicstions area for use of the VS APL 
components. A saved VS APL workspace is that part of an active 
workspace that is transferred from virtual storage to a library 
when a user issues a SAVE or a CONTINUE command or when a Line 
disconnect or force-off occurs. 


Only the active workspace is immediately available to a user for 
program execution and modification. A saved workspace 1s 
activated (transferred from a library to virtua) storage) when a 
user issues a LOAD command. A clear workspace (Cone that contains 
no functions or data values) is activated when a user issues a 
CLEAR command. 


The minimum and maximum sizes of an active workspace are defined 
by the host system. Within these limits, the default size of a 
user's active workspace ts defined by the installaticn. A user 
may modify the size of the active workspace when issuing a LOAD 
or CLEAR command. The size specified must be large enough to 
contain the functions and data values in the workspace to be 
loaded; it may not exceed the maximum defined by the 
installation. 


An ective workspace is functionally divided into eight areas. 
These areas, tn low to high virtual storage address sequence, 
are shown in Figure 5 and in the sections that follow. 


el 


Area Bytes 
Buffer 1024 
Executor transient area 268 
Translator transient area 756 
Interpreter transient area 240 
Address table Variable 
Operation stack Variable 
Free space Variable 
Ri3 stack 1024 


Figure 5. VS APL Workspace 


Regardless of the size of the workspace, the first four areas 
and the lIast one are tixed in size. A user inmay increase or 
decrease the size of the acdress table with the SYMBOLS -.ommand 
and the size of the operation stack with the STACK command. 
These actions cause a corresponding decrease or increase in the 
size of free space. 


In the following sections, the general function of each area and 
the format and use of some of the information are described. For 
a detailed description of the entire workspace, see "“*WSM* 
control block format. All symbolic names used in the following 
sections are as defined in the APLWSM macro. 
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BUFFER 


This area is used to hold data being transmitted to and from the 
user's terminal. Output strings are built in WSMBUFF until it is 
full or until terminal input is required, then they are dumped 
to the terminal with a YYTYO service request. Input is placed in 
WSMBUFF as a result of a YYTYI service request. Copy data is 
transferred through WSMBUFF with YYCOPO and YYCOPI requests. 


EXECUTOR TRANSIENT AREA 


This area is used for communication between the executor and the 
translator/interpreter. The area extends from WSMSUPSW through 
WSMRSVO03. It includes a save area for use by the executor 
C(WSMSUPSW, WSNSURGS), pointers delimiting the active data in 
WSMBUFF CWSMCURSR, WSMBFPTR), parameter areas for service 
requests (WSMPARML, WSMPARM2, WSMSVLRQ), and a save area for 
Interpreter registers (CHISMREGSV). WSMPCPSW contains part of the 
interpreter PSW when it is given control to handle a program 
check (see “Program Check On-Vectors™ below). WSMNSI contains 
thg restart address after any service request, or the rest of 
the program check PSW. WSMPTHPT always addresses the PERTERM 
control block. WSMUCRK contains the offset to the RI3 stack 
area. WSMNIDTH has the current terminal width setting. 


TRANSLATOR TRANSIENT AREA 


This area contains a 156-word scratch area (WSMXXX) and various 
control words and switches that are used primarily by the 
translator part of the VS APL processor. This ares and the naxt 
one are described separately only because the microcoded exarch 
does not use any part of this area. The area extends from 
WSHMFDTOG through WSMTOGXX. 


Included in this area is information which controls the nandling 
of program checks, the writing of the active workspace to a 
library, and the relocation of a workspace. 


Program Check On-Vectors 


Four types of program~check interrupts may be intercepted: 
fixed-point overflow, exponent overflow, fixed-point divide, and 
floating-point divide. An an-vector is a 4-word list of the 
addresses of routines to hanole those interrupts. 


Execution of the APLON macro causes the current on-vector 
information (two wards at WSMON) to be saved at the specified 
location. Then the address of the spacified on-vector 15 stored 
in WSMONADR; the offset to the current RL3 stack level is stored 
in WSMONRi3; and the frroeram mack is set as specified and stored 
in WSMONSPM. In the program masx, exponent underflow and 
significance are always disabled; decimal overflow is always 
enabled; fixed-point overflow is enabled or disabled as 

speci fied. 


Execution of the APLOFF macro restores WSMON and the program 
mask to their prior state (as they were before APLON was 
executed). 


When one of the four interceptible program checks occurs, 
registers 12 through 15 are reset as they were when the APLON 
macro was executed, and control is passed to the routine whose 
address is in the corresponding on-vector element. If the 
on-vector element 15 zero (no intercept routine specified), a 
system error occurs. . 


While the translator is executing, the program mask and 
on-vector are set so that all four program checks cause a system 
error. While the interpreter is executing, the program mask and 
on~vector are set as a default so that fixed-point overflow 
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causes a system error and the other three program checks cause a 
DOMAIN ERROR; some interpreter routines use the APLON and APLOFF 
macros to change and restore this default. 


Saved Workspaces 


In an active workspace, there is transient information; there 
may also be unused free space (unallocated block) and data in 
free space that has been discarded (inactive blocks). There is 
no need to save any of this information when the active 
workspace is transferred to a library. Before writing the 
workspace to disk, all inactive blocks are freed, and all active 
blocks are collected into the low-address end of free space. The 
remaining free space (Cif any) is the unallocated block. 


The WSMFREEA control word contains the offset to the Low-address 
end of the unallocated block. After the inactive blocks have 
been freed, the offset encompasses all of the active data in 
free space. The part of the active workspace written to disk 
begins at WSMFREEA and extends through the offset contained in 
it. 


Workspace Relocation 


A particular workspace may be transferred into any virtual 
storage location. Relocation may occur when a saved workspace is 
activated or when a swappable service raquest Cexit tao a VS APL 
executor routine) has been made. A workspace contains both 
relative and absolute addresses; the absolute addresses must be 
adjusted when the workspace is relocated. 


Absolute addresses are contained in registers 13 and 14 
Cpointers to the R13 stack); saved registers 13 and 14 in all 
levels of the R13 stack; WSMFREEU Caddress of low end of 
unallocated block of free space}; LADDR, RADDPR, and ZADDR 
Cargument and result addresses); and some address table and 
operation stack entries beginning at WSMIRELO. All of these are 
located in other areas of the workspace and are described more 
fully in subsequent sections. 


When the VS APL processor receives control, register 11 (CMR) 
contains the virtual storage address of the active workspace. 
When a clear workspace is activated, MR is simply saved in 
WSMOLDMR. In all cases, the relocation factor (difference 
between MR and WSMOLDMR) is computed before MR is saved. If the 
relocation factor is nonzero, it is applied to all absolute 
addresses in the workspace. 


INTERPRETER TRANSIENT AREA 


This area contains a 24-word scratch area (WSMEXTMP) and various 
control words and switches that are used primarily by the 
interpreter part of the VS APL processor including the 
microcoded exarch. The area extends from WSMASYNC through 
WSMMINUB. The scratch area is reserved for the exclusive use of 
exarch Cwhether microcoded or not). 


Included in this area is information about the current operation 
CVS APL primitive function). The statement scan and syntax 
analysis routine of exarch CIESCANG) passes information about 
the operator and its arguments to operator routines (both exarch 
and appendage routines). The operator routines pass information 
see NaS result to the result-processing routine of exarch 
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Current Operator 


Argument Blocks 


Result Block 


During statement scan and syntax analysis, all information about 
the current operator is collected jinto one word on the operation 
stack. Before an operator routine is called, ITESCANG places this 
word in the WSMOPWD field. The operator itself is in the left 
half COPBYTEO and OPBYTE1) of the field. If the operator is 
neither indexed nor composite, it is duplicated in the right 
half of the WSMOPWD field. If the operator is indexed Ceither 
implicitly or explicitly), the index value is in the fourth byte 
COPINDEX); the index bit COPHASIND) is set; the explicit index 
bit (COPEXIND) is set if the index was explicitly specified; the 
fractional index bit COPFRIND) is set if a nonintegral index was 
specified. The contents of WSMOPWD for composite functions 
Creduction. scan, inner product, outer product) is described in 
"Method of Operation" (Diagram 6.1.3: "Primitive Function 
Processing™). The format of operator codes is described under 
"Operators and Separators." 


During statement scan and syntax analysis, the operator 
arguments are placed on the operation stack. Before an operator 
routine is called, IESCANG places the entry for the right 
argument in the right argument block CWSMRGETV) and calls the 
IEGETV routine to set up the argument block for fetching of 
data. If the operation is dyadic, the same thing 15 done fer the 
left argument using the WSMNLGETV block. 


Each argument block is three words long. The first word CLVALUE 
or RVALUE) 1s used to hold argument elements as they are 
fetched. The next byte (DL or DR) contains descriptor bits 
PBITIMME. PBITPERM, DBITSYNO, and DBITAPVE (see "Primary 
Descriptor” below and "Format of Blocks in Free Space," later in 
this section). The next byte (DL1 or DR1) contains the argument 
shape and data type. The next halfword (NL or NR) contains thea 
internal name of the argument if it has a remote value. The 
third word (CLADDR or RADDR) is used to hold addresses of 
argument elements as they are fetched. 


The operator routines use the information in the argument biocks 
to fetch argument elements. Data fetch routines IEGINITL, 
IEGINITI, IEGINITR, IEGETNI, IEGETNL, and IEGETNR mey be used to 
do this. Exarch operator routines call the data fetch routines 
directly; appendage operator routines communicate with chem 
through service routines ITESGINIT and IESGETN or the APLGETS 
macro. See the prologues of JEGETV and the data fetch routines 
for additional information about the contents and use of the 
argument blocks. 


There is a third block (WSMRSULT) that has the same format e5 
the argument blocks. Operator routines place the result in the 
second word of this block CRESULT) either as an immediate value 
or the internal name of a remote value. blhen used for this 
purpose, the contents of the other two words (ZVALUE and ZADDR) 
are trrelevant. 


The entire block may be used as the result is developed. 
Operations that have a third argument Cfor example, subscripted 
assignment) use it in the same manner as the argument blocks. 


ExarchAppendage Communication 


Before appendage routines return to exarch, they place a return 
code in WSMAFLGS that indicates how the result should be 
processed; the codes are defined in the APLWSM macro. The return 
code that indicates no special processing for the result 
CAFLG20K) is preset by exarch. 
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The IASHRPST appendage routine provides Several services 
involving shared or system variables. Before calling IASHRPST, 
exarch sets WSMAFLGS to indicate which service is required. 


Interpreter/Translator Communication 


ADDRESS TABLE 


Before the interpreter returns to the translator, it places a 
reason code in the fourth byte of WSMABTYP; the codes are 
defined in the APLIERRC macro. If the reason for exit is an 
error, the address of the point where the abnormal termination 
routine CIEABEND) was called is placed in WSMABLOC. This is of 
no interest to the translator, but is useful for diagnostic 
purposes. 


For each object (that is, for each function, group, named 
variable, temporary variable, etc.) in the workspace, the 
address table contains either the object itself or its address. 
The address table is a series of fullword entries extending from 
WSMATAAA through the address contained in WSMBDATS. 


The operation stack (the area after the address table) may be 
considered as part of the address table. The two areas are used 
for different purposes, but the format of their entries is 
similar, and they both contain as entries workspace objects 
themselves or their addresses. 


Internal and External Names 


Each object in the workspace is known to the VS APL processor by 
an internal name. An internal name is a 16-bit offset from 
WSMATAAA to an address table Cor operation stack) entry. [In 
other words, the internal name of an object is its location in 
the address table. An internal name is always a multiple of 
four; it can be distinguished from other items because its 
rightmost two bits are zero. 


Some objects are also known by an external name—the name given 
to a function or variable by the user. External names are never 
used by the interpreter. They are used by the translator in its 
input routine and when names are to be printed. External names 
are generally referred to as printnames. 


Permanent and Temporary Objects 


A permanent variable is one which has a printname. A permanent 
variable has two address table entries—one for the printname 
and one for the value assigned to that name. (For a further 
description of the permanent variable, see "Symbol Table.") A 
permanent variable is not discarded until the workspace is 
cleared. When a permanent variable is erased, its value block in 
free space is discarded and its second address table entry is 
set to indicate that the printname has no value; the first entry 
and the printname itself are unchanged. 


A temporary variable is one that has no printname. Temporary 
variables result from user input and from the execution of 
primitive or defined functions. A temporary variable is 
discarded as soon as it is no longer needed; both its internal 
name Cits address table entry) and its value block in free space 
are discarded. For example, when executing the statement 


A#«#23p1 6 


four temporary variables occur: tl, t2, t3, and t%&. tl is the 
scalar 6. t2 is the vector 2 3. t3 is the result of the iota 
function; at its completion, tl is discarded. t4 is the result 
of the rho function; at its completion, t2 and t3 are discarded. 
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The internal name t4% is discarded when its value is assigned to 
the permanent variable. 


Functions are also either permanent or temporary. A permanent 
function is one defined by the user. As with permanent 
variables, a permanent function may be erased; but its printname 
is not discarded until the workspace is cleared. A temporary 
function is one that is built by the translator to implement 
immediate execution, quad input, or the execute primitive. A 
temporary function has one main statement—one line typed by the 
user in immediate execution, the response to quad input, or the 
argument of execute; it also has the branch-to~line-zero 
statement that is the last statement of every function. When 
execution of a temporary function is completed, both its 
internal name and its function block in free space are 
discarded. 


Immediate and Remote Objects 


An immediate object is one whose value is contained in (rather 
than addressed by) an address table or operation stack entry. 
Immediate entries are used for objects that have mo shape and 
Whose value can be represented in 16 bits or less: character, 
logical, or small integer scalars and one~character printnames. 
The format of an immediate object is shown in Figure 6. 


Byte Bits Contents 
0 Syntax class and primary descriptor 
1 0 Sign bit of an integer value 
CATIMSIGN) 
1 ON indicates variable is result of 
assignment CABITASGN) 
2 Unused 
3 ON indicates a read-only 
object-——a label (ATIMLBL) 
q linused 
S= 7 Data type of the object: 
100 CDBITCHAR) = character; 
O01 CDBITINTE) = integer; 
000 CDBITLOGI) = logical. 
2-3 Value, right-justified 


Figure 6. Format of Inmediate Object 


There are a few immediate address table antries whose format is 
different than those described above (see "System Variables"). 


A remote object is one whose value is contained in free space. 
All functions, all groups, nonimmediate variables,» and 
printnames are remote objects. Byte 0 of the address table entry 
contains the object's syntax class and primary descriptor; bytes 
1 through 3 contain the absolute address of the DN-word (Csee 
"Free Space," later in this section) of the object's free space 
block. It is these entries that must be modified when the 
workspace is relocated. 
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When a remote object is placed on the operation stack, its 
relative rather than its absolute location is stored. Byte 0 of 
the operation stack entry for a remote object contains its 
syntax class and primary descriptor; byte 1l, bit 1l is as 
described in Figure 4 (the rest of byte 1 is irrelevant); bytes 
2 and 3 contain its internal name. 


Syntax Classes 


Class 


Oo wr 2 Oat DO WH SF Ww FR e& 


Figure 7. 


Bits 0 through 3 of byte 0 of all address table and operation 
stack entries define the syntax class. As noted in Figure 7, 
some syntax classes occur only on the operation stack. 


Symbol 
SBITNULL 


SBITOPER 
SBITVAR 

SBITFUN2 
SBITRPBR 
SBITLPBR 
SBITSEMI 
SBITLARR 
SBITRBRO 
SBITFUNO 
SBITEND 

SBITFUNI 
SBITSHAR 


SBITSYST 


Description 


In address table, an unused entry; on the stack, 
a null value or the beginning of a level 


Operator (stack only) 

Variable 

Dyadic function 

Right parenthesis or bracket (stack only) 
Left parenthesis or bracket (stack only) 
Semicolon (stack only) 

Left arrow (stack only) 

Right operator index bracket (stack only) 
Niladic function 

End of statement (stack only) 

Monadic function 


Shared object (shared variable, system variable, 
and Con stack only) quad, quote-quad) 


Unused 
Unused 


System object (group, printname) 


Syntax Classes 
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Primary Descriptor 


Value 
27 
29 
2B 
ZF 
oF 
3B 
99 
93 
BB 
C0 
C7 
CB 
CF 


FB 
FF 


Figure 9. 





For variables, functions, groups, and printnames (syntax classes 
2, 3, 9, B, C, FI, bits 4 through 7 of byte 0 of an address 
table or operation stack entry contain the object's primary 
descriptor as described in Figure 8. 





Bit Symbol Description 

g PBITVALU Object has a valve 

5 PBITIMME - Objact is immediate 

5 PBITABS Object is not to be relocated 

6 PBITPERM Object is permanent 

7 PBITINUS In address table, entry is in use 
7 PBITNAME On stack, object is named 


Chas an address table entry) 


Figure 8. Primary Descriptors 


The valid combination of syntax classes and primary descripto> 
bits is as described in Figure 9 


Description 

Object with no value 

Remote. temporary variable 

Remote, permanent variable 

Immediate, temporary variable on operation stack (stack immediate) 
Irmediate, permanent variable in address table 
Parmanent ciyadic function 

Temporary niladic function 

Permanent niladic function 

Permanent monadic function 

Quad or quote-quad (stack only) 

Unused entry Creserved for system variable) 
Shared variable Calways remote) 


System vartable Centry is immediate although variable may not 
be so; see "System Variables") 


Group or remote printname 


Immediate printname 


Combination of Syntax Classes and Primary Descriptor bits 


Licensed Materital—Froperty of I8M 


226 


VS APL Program Logic 


Address Table Sections 
The address table is functionally divided into four sections. 


RESERVED ENTRIES: The first 27 entries in the address table 
Cfrom WSMATAAA up to WSMADTAB) are used for reserved temporary 
entries, default system variables, constants, and four control 
words. 


The entries for default system variables and some of the 
constants are remete. The values addressed by these entries are 
1n module APLITMSG rather than in the workspace. These entries 
precede WSMIRELO, and are not exemined during workspace 
relocation. 


The four control wards are: 


e WSMFUNCT: byte 0 = X'2F* (bit 0 = 1 1f the current function 
is damaged); byte 1 = 0; bytes 2 and 3 contain the internal 
name of the function currently being executed. 


® WSMNXINS: byte 0 = X'2B'; bytes 1 through 3 contain the 
absolute address of the next token in the function currently 
being executed. 


® WSMTSADR: byte 0 = X'2B"; bytes 1 through 3 contain the 
absolute address of the top of tte operation stack (see 
"Operation Stack”) 


e WSMBDATS: hyte 0 = X'2B": bytes 1 through 3 contain the 
absolute address of the last word of the address table (see 
"Address Table Management™). 


SYSTEM VARIABLES: The next 20 entrtes in the address table (from 
WSMADTAB to WSMLSTNM) are used for system variables (Cquad-I0, 
quad-WA, etc.). These entries are all tmmedrate 
(syntax/descriptor=x'CF'). Byte 1 contains various flag bits 
including one that indicates whether the value of the system 
variable :s immediate or remote. See the APLWSM macro 
description in “Data Areas™ under WSM controi block, at symbol 
ATIMNOVL for a description of the flag bits. 


An entry for a system variable that has an immediate value 
contains the value in bytes 2 and 3. An entry for a system 
variable that has a remote value contains the internal name of 
another address table entry in bytes 2 and 3. The referenced 
entry may be either the reserved one in the first part of the 
address table that addresses the default value of the system 
variable; or a temporary one that e«ddresses the user-specified 
value in free space. 


SYMBOL TABLE: The next part cf the address table (beginning at 
WSMLSTNM) is known as the symbol table and 1s reserved for 
permanent objects. Its length, in words, is twice the value of 
the SYMBOLS command. This value is contained in WSMSYMBL, a 
control word in the translator transient area. 


Entries in the symbol table are used in pairs. The first entry 
of a pair contains or addresses the printname. The second entry 
centains or addresses the value assigned to the printname; it 
may contain no value, an immediate variable, or the address of a 
function block, group definition block, or remote variable block 
in free space. 


Symbol table entries are seleczred at random by means of a 
hashing algorithm that uses the printname as input. 


TEMPORARY ENTRIES: The remainder of the address table is used 
for temporary cbjyeacts, both immediate ard remote. The length of 
this part of the address table varies dynamically. 
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Address Table Management 


Management af the address table is concerned only with tha last 
part—that used for temporary objects. In this section, the term 
"address table” is used to mean the last part only of the full 
address table. There are three aspects of address table 
management: varying the size; getting an internal name; and 
freeing an internal name. 


The address tadle and the onmeratien stack are contiguous. In a 
clear workspace. the combrit.ad size of tha tua areas 15 515 
words——-257 address table entries and 258 operatian stack 
entries. However, the boundary bhetucen them Cits address is 
maintained in WSMBDATS) ts dynamic. The address tabla grows frem 
low virtual storage up. than more address table space 15 
reauired. talf of the uptsed onmaration stack ertries are 
allocated to the aid:ene table, and tha addrass in WSMBDATS is 
incremented... Tha operation stack grows from high virtual storage 
down. When more stack spare is required, half of the unused 
acidrass table entries are allocated to the oreration stack, and 
the address in WSMBDATS is decremented. In etther case, if no 
space is available, a STACK FULL error occurs. These functions 
are performed by routines IAEXNAME and ITAEXSTCK. 


The size of the operation stack end, indirectly, the address 
table can also be varicd by the user with the STACK command. 
Execution of the command causes the operation stack space to be 
increased or decreased; the active part of the stack to be moved 
down or up; and free space to be decreased or increased. 
WSMBDATS and the current size of the address table are not 
affactad. 


When examining a word between the bottom of the address table 
and the ton af the operation stack, there ere two ways of 
determining the ares to which it balongs. Tha first is to 
combare the address ef the tierd and tha addrass in DISNBDATS; the 
secund is ta examine byte 0 of the sword. Byte 0 of unused 
entries at the bottom of the address table is zero; the last 
entry is never used. Byte 6 of stack entries Cused or not) is 
NONTErO. 


In the address table, in additicn to antries that have never 
been used, there may be entries that have been used and freed. 
Tha latter are forred into a cshain of available names that 
hagins at WSMUXNML Ca control werd in the interpreter transient 
arenad. The format af antries in the chain Cinceluding WSMNXHM) 
1S: Eyte DO *-s X'0G6** bwte 1 1s unused? bytes 2 end 3 is the 
internal mame of the next entry in thea chain. 


An examele of an avatlat’a neva chain i156 shown in Figure 10. 
Khen =r internal mana is requested. t® 16s given and the name in 
the ¢5 entry is placed in WSMNXNIM; thus, t2 becomes the next 
available name. Wher another name th requested, t2 is given and 
t6 hecomes the next avaitesble name. When a third name is 
requested, t6 is5 given; sinees té is not a link in the chain, the 
next seszventiai entry (t7) bacomes the next availiable name. If 
the next sequential entry is not en addrass table entry, the 
address table is extended, if possible, as already described. 
The IENAME routine is called to gat an internal name, 


An internal rame is freed hy putting the next available name 
<the ona tn VJSMNXNMW) in the freed entry, and then putting the 
freed rame in WOMNXAMY. 
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WSMNXNMW 





tn | OO .. 1... | 


Figure 10. A Chain of Available Names 


ee Gee ee 


OPERATION STACK 


The operation stack is a pushdown stack that is used to hold 
input to and output from interpreter routines as VS APL 
statements are scanned and executed. [t 1s 09 series of fullword 
entries extending from the end of the address table to the 
beginning of free space. It grows fram high to low virtual 
storage as shown in Figure il. The address of the next available 
stack entry is maintained in WSMTSADR. The following entry, 
referred to as the top token on the operation stack, contains 
the last item put on the stack. The address in WSMTSADR is 
decremented as items are entered on the stack; it 185 incremented 
as items are taken off the stack. 


Source of Operation Stack Entries 


Tokenized function statements are the primary source of 
operation stack entries. The process of tokenizing a statement 
(converting an external statement to its internal form) is 
described in Diagram 3.2: "Function Definition.” In its internal 
form, a function statement consists of a series of tokens in 
inverted external sequance. Each token is a halfword in length. 
There are four general classes of tokens: internal names, 
operators and separators, descriptors of literals, and special 
operators. The format of these tokens and how they are put on 
the stack are described in the following sections. 


The input to the interpreter’s statement scan and syntax 
analysis routine is always a function statement. The statement 
may be part of a permanent function Cone defined by the user), a 
temporary function Cimmediate execution, quad input, or execute 
primitive), or an embedded VS APL function. An embedded VS APL 
function is one that is defined within the interpreter and is 
used to perform certain VS APL primitive functions (see "Methad 
of Operations" Diagram 4.1.3: “Primitive Function Processing"). 
The body of an embedded VS APL function its contained in an 
interpreter module, rather than in a function block in free 
space. There is no difference in the format of the statements in 
the various types of functions. During statement scan and 
execution, the function type its irrelevant. 
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A second source of operation stack entries is the execution of 
primitive and defined functions. The result of execution may be 
a temporary variable, either remote or immediate; a temporary 
niladic function resulting from quad imput or execute; or an 
embedded VS APL function. 


Finally, there are certain operation stack entries that are 
generated internally: nulls, stop werds, and function call 
blocks. 


Use of the Operation Stack 


During statement scan, WSMNXINS contains the address of a token 
in a function statement. The token is put on the operation stack 
in the entry whose address is in WSMTSADR. Then WSMNXINS is 
incremented so that it points to the next token, and WSMTSADR is 
decremented so that it points to the next available stack entry. 
The syntax classes of the top two tokens on the stack are 
analyzed to determine if there is some action to be performed. 
If not, the next token ts fetched and stacked. When there is 
some action to be performed, the items on the stack are used as 
input. As a result of the action, items or the stack may be 
modified; items may be taken off the stack; a result may be put 
on the stack. At completion, the statement scan is resumed. 


For example, tn performing a dyadic operation, tokens are 
fetched and stacked until the operation stack is as described in 
Part A of Figure 12. 


The appropriate dyadic operator routine is called. On retucn, 
the top three stack items are discarded, and the result is put 
on the stack as described in Part B of Figure 12. 
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A: Just before a dyadic operation 


WSMTSADR——— 


— 


Ivariable Cleft argument) 


operator 


variable Cright argumant) 





prior tecker 


B: After the operation 


| 


variable Cresult) 


| prior token 


Figure 12. Tokens on the Oreration Stack 
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The use of the operation stack is dascribed in "Method of 
Operations” Diagram 4.1: "Statement Scan, Syntax Analysis, and 
Execution.” 


ttems on the Operation Stack 


The first four bits of every operation stack entry define the 
syntax class of the item; all syntax classes may appear on the 
stack. The remainder of the entry varies according to the type 
of item. 


INTERNAL NAMES: The internal name of a function, group, or 
renote vartable Crather than the object itself) is entered on 
the operation stack. Byte 0 contains the syntax class and 
primary descriptor; byte 1 is unused; bytes 2 and 3 contain the 
internal name. 


An internal name appears in a function statement as a token 


whose rightmost tuo bits are '00'. The name is entered on the 
stack, and the syntax/descriptor area obtained from the address 
table. 


When the result of executing a rrimitive or defined function is 
a remote variabie or a Tunction, its syntax, primary desecriptor, 
and internal name are returned in the result block CWSMRSULT). 
The entry ts moved fram thoare to the operation stack. 


LITERALS: A literal appeare in a function statement as a 
descriptor token followed by the value of the literal. The 
rightmost two bits of the descriptor token are ']10'. There are 
four types of literals that are distinguished by bits 12 and 13 
of the descriptor token. 


A General Literal: Is used for vectors: The format of the 
descriptor appears in Figure 13. 
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Bit Description 


0-3 Shape 
Value Meaning 
0101 vector 
4-7 Data type 
Value Meaning 
0000 logical 
0001 integer 
0011 real 
0100 character 


8-11 Unused 


12-15 1010 general literal 
Figure 13. General Literal Descriptor Format 


The token following the descriptor contains the free-space byte 
count: length of values plus 12 for count word, DN-word, and 
element count. The tokens that follow contain the values. The 
last two tokens contain the element count. The values are padded 
to a full word, but are not nacessarily aligned on a word 
boundary. The statement scan routine gets a temporary internal 
name anda block of free space. It enters the shape, data type, 
name, values, and element count in the block. It enters the 
internal name on the operation stack with a syntax/descriptor of 
X°29°, 


A Scalar Literal: Is used for large integer and real scalar 
values. The format of the descriptor appears in Figure 14. 








Bit Description 
0-3 Shape 
Value Meaning 
0000 scalar 
4-7 Data tyre 
Value Meaning 
Q001 integer 
0011 real 
8-11 . Unused 
12-15 0010 scalar literal 


Figure 14. Scalar Literal Descriptor Format 





The two or four tokens following the descriptor contain the 
value. A scalar literal is entered on the operation stack as a 
temporary remote variable as described for general literals. 
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A Short Literal: Is used for logical, character, and small 
integer scalar values. The format of the descriptor appears in 
Figure 15. 


Bit Description 
0 Sign of integer value; else 0 
1-3 000 
&~-7 Data type 
0000 logical 
0001 integer 
0100 character 
8-11 Unused 
12-15 0110 short literal 


Figure 15. Short Literal Descriptor Format 











The token following the descriptor contains the value. A short 
literal is entered on the operation stack as an immediate value 
(described below). 


An Invalid Literal: Is used to indicate a value that is too 
large or too small to be represented. Bits 12 through 15 of the 
descriptor are 1110. When an invalid literal is encountered, a 
VALUE error exit is taken. 


IMMEDIATE VALUES: The value of a temporary immediate variable is 
placed directly on the operation stack; it does not appear in 
the address table. Such an item is referred to as a stack 
immediate value. Byte 0 contains the syntax class and primary 
descriptor (X'2E'); byte 1 contains the sign bit and data type; 
bytes 2 and 3 contain the value. Note that the format is the 
sare as that of an address table immediate entry except that the 
primary descriptor is "E’ rather than ‘F*. 


A stack immediate value is built when a short literal is found 
in a function statement or when the result of executing a 
primitive function is an immediate variable. 


OPERATORS AND SEPARATGRS: An onerator (VS APL primitive 
function) or separator appears ina function statement as a 
token whcse rightmost two bits are '01". The tcken is duplicated 
tn bytes @C and 1 and 2 and 3 of an operation stack entry. 


The bit patterns of individual operators is such that the 
operators fall into various functional groups. The meaning of 
the operator bits appears in Figure 16. 
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Bit Symbol 

0-3 SBITOPER 

G OPEQNE 

G OPTEMPGO 

5 OPRED 

6 OPHASIND 

7 OPISMIX 

8 

9 OPINDBL 

10-11 OPGRP 
GPCOMPR 
UGPLOGGR 
OPSARTH 
OPCARTH 

12-13 

14-15 

Figure 16. 


Description 


Syntax class (0001) 


1 = dyadic operator is “equal” or "not equal”. 


1 = monadic operator is "right arrow” entered 
by user in a temporary function 


1 = operator may be part of a composit operator 
Creduction, scan, inner product, outer product) 


1 = operator has implicit index of 0 (185 overstruck With 
a hyphen). This bit is also set subsequently by the 
interpreter if the operator is explicitly indexed. 


0 = scalar operator (result shape same as argument 
shapes) 
1 = mixed operator 


No functional significance 


1 = operator may be indexed. This bit is also set by 
the interpreter Cusing the symblic name OPREAL) when 
a real floor or ceiling is required. 


Defines class of scalar operators: 


00 = comparison 
01 = logical 
16 = simple arithmetic (done as either integer or reel 


according to argument type) 
11 = complex arithmetic (generally done as real 
regardless of argument type) 


No functional significance 


Always 01 


Operator Bit Meanings 
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Figure 17 shows the hexadecimal representation of all operators. 


1009 < 
100D s 
1011 v 
1015 A 
1019 ~ 
101D * 
1021 + 
1025 x 
1059 fF 
192D °$ 


Notes: 
1. Entered 


2. Entered in a 


3. Used to 


1031 
1035 
1039 
1089 
108D 
1095 
109D 
10A1 
1OA5 
10A9 


in a 


a 10B1 @ 1181 & 1555 / 

? 10B9 1185 + 1591 .« 

o 1101 p 1189 € 15D5 \ 

> 1105 + 118D T 1755 # 

> 1109 1 119D ¥ 17D5 \ 
+! 110D 2 11A1 B 1805 = 

~ 1111 ° L1A9 ¥ 1885 = 

- 111D 4 L1BD q: 1895 +? 
| 1129 # 11D9 , coo1i Q: 
L 1159 > 1259 © coos fy: 
permanent function. 


temporary function. 


identify a system function; is encoded by the 
not by the user; see "Special Operators." 


interpreter, 


G4. Cannot properly be called operators, since syntax class is 
shared object. However, the rightmost two bits place them in 
the class of operators and separators, and they are included 
here for reference. 


Figure 17. 


Operator Hexadecimal Representations 
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ng a rf fl SPSS 


Value 
4001 
4005 
4405 


4C05 


5001 
5005 


500D 


6001 
6201 


7101 
8005 
AOQx1 


Figure 18. 


The hexadecimal representation of separators appears in 
Figure 18. 





Description 
Right parenthesis 
Right bracket (subscripting) as encoded by the translator 


Right bracket as modified by the interpreter to indicate subscripted 
assignment 


Right bracket as modified by the interpreter to indicate subscripted 
assignment to a shared or system variable 


Left parenthesis 


Left bracket (subscripting or operator Cindex) 
as encoded by the translator 


Left bracket as encoded in an embedded VS APL function to allow a 
scalar or array to be subescripted asc if 1t had been revelled 


Semicolon 


Empty subscript marker; generated by the interpreter to indicate 
an omitted subscript 


Left arrow Cassignment) 
Right operator index bracket 


End of statement (£05), generated by the translator as the last 
token of every function statement. Bit 10 CEOSTPBIT) is 1 if the 
if the stop vector contains the number of the next statement. 

Bit 11 CEOSTRBIT) is 1 if the trace vector contains the number of 
this statemert. 

Bit 1] is always on in the EOS tcken of the main statement 

of a quad-input or execute temporary function, 


Separator Hexadecimal Representations 


SPECIAL OPERATORS: A special operator arpears in a function 
statement as a token whose rightmost two bits are ‘li’. There 
are five types of special operators distinguished by bits 11 
through 13 of the token. 


A Fast Branch Special Operator: Is encoded by the translator 
when the argument of the branch is input as a positive integer 
scalar. The fast branch operator is also used for the branch to 
zero which the translator generates as the last statement of 
every function. The format of the fast branch tcken appears in 
Figure 19. The fast branch is put in bytes 2 and 3 of an 
operation stack entry; bytes 0 and 1 are set to X'1000'. 





Bit ‘Description 

0 OPTEMPGO (see “Overators and Separators") 
\-11 Target statement number Cargument of branch) 
12-15 0011 

Figure 19. Fast Branch Special Operator Format 
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An Escape Special Operator: Is encoded by the translator when it 
encounters an ill-formed statement or assignment to a stop or 
trace vector. The escape token for an ill-formed statement is 
X'0007'. The next token contains the error code CABSYNT or 
ABDOMA). The next two tokens contain the byte count of the 
ill-formed statement. The following tokens contain the statement 
text as entered. The escape token for assignment to stop and 
trace vectors is X'ccF7' where cc is the Z-code for §S or T. The 
next token contains the internal name of the function. The 
escape special operator is put in bytes 2 and 3 of an operation 
stack entry; byte 0 is set to X'°2ZE'; byte 1 is unused. The 
following tokens are processed by the translator rather than by 
the interpreter, and they are not entered on the operation | 
stack. 


A Skip Special Operator: Is encoded by the translator when it 
encounters a comment. The skip token is X'OOLB*®. The next token 
contains the byte count of the comment plus four. The following 
tokens contain the comment text. The skip token is not entered 
on the operation stack. The count token is used to increment 
WSMNXINS, and the statement scan is resumed with the token 
following the comment. 


An Indirect Special Operator: Only in embedded VS APL function 
statements. The indirect operator token is X'000B*. The next 
token is the internal name of a scalar operator. The rightmost 
operator byte is obtained from the address table entry and 
catenated to X'10' or to X'°'18' if the operator is equal or 
not-equal. The resultant halfword is put in bytes 0 and 1 and 2 
and 3 of an operation stack entry. 


A Secondary Decode Spectal Operator: Is encoded by the 
translator when it encounters the external name of a system 
function (€quad-EX, quad-NL., etc.). The format of the secondary 
decode token appears in Figure 290. 


Bit Description 
0-7 Internal code that identifies the system function 
8-il Flag bits that classify the system function 


12-15 lill 


Figure 20. Secondary Decode Special Operator Format 


The secondary decode special operator is put in bytes 2 and 3 of 
an operation stack entry; bytes 0 and 1 are set to X'11BD' 
Cquad~-q operator). 


FUNCTION CALL BLOCK (FCB): A function call block is used to save 
information about the state of the workspace when a function is 
invoked. At function exit, the information is used to restore 
the workspace to its prior state. The information that is saved 
is the current value of the called function locals, the internal 
name of the calling function (that is, the currently active 
function), and the location within the calling function of tha 
token following thea function call. 


An FCB is built on the operation stack when a permanent 
function, a quad-input or execute temporary function, or an 
embedded VS APL function is invoked (see Diagram 4.1.1: 
"Function Call and Function Exit Processing"). There is no way 
in which immediate execution statements can be nested or 
invoked, hence an FCB is not built for immediate execution 
temporary functions. 
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Contents 
OF..kkkk 
2Fxx0002 


aeaaaadacda 


2F..onnn 


SF..ccce 


OF. .i111 


An FCB is removed from the stack at function exit (see Diagram 
4.1.1: "Function Call and Function Exit Processing”) or when an 
error occurs in a temporary function or a locked permanent 
function or when a branch with no argument is entered (see 
Diagram 4.2: “Return Code Processing”). 


The length of an FCB varies according to the number of local 
variables and labels; its minimum length is ten words. Its 


format from top to bottom as it appears on the stack appears in 
Figure dl. 


Meaning 
k = length of FCB in bytes (40 + 8 * number of locals) 


Marks end of variable entries. Byte 1 contains translator 


flags: 

Equate Meaning 

X'10° locked function 

X*'30' embedded VS APL function 
X'o1' quad-input temporary function 
X'G2!' execute temporary function 


Three or more pairs of variable entries as follows: 


a = copy of variable's address table entry; X*'27uU00000° 
if a dummy entry 


n = variable’s internal name; rightmost bit is 1 
if dumny antry 


c = internal name of calling function. If the functien is 
subsequently damaged, bit 90 is set to l. 


i= offset within calling function of token following 
function call (displacement from DN-vword of function block 
in free space) 


Figure 21. Function Control Block (CFCB) Format 


Following the first two entries is a pair of entries for (Cin 
sequence) each label, each local variable, right argument, left 
argument, result; that is, fer each entry in the called function 
header, FHEDLOCLn through FHEDZ. A dummy entry in the function 
header results in a dummy entry itn the FCB; these occur when the 
function has no result, right argument, left argument, or when 
local names are duplicated. 


STACK LEVELS AMD STOP HeRDS: At any point during execution, the 
operation stack is subdivided into one or more levels. A level 
is the set of operation stack entries that define the state of a 
function whose execution has not been completed. Thus, there is 
a stack level for the current function, for each pendant 
function Core which has invoked a function), and for each 
suspended function Cone whose execution has been suspended 
because an error occurred, because attention was signaled, or 
because of a stop reauest). 


Going from the top of the stack down, each level except the 
active current one begins with a stack entry whose first five 
bits are 'Q00001'. Thus, the top entry in an FCB delimits a 
lavel. The other type of entry that delimits a level is a stop 
word. A stop word itself is a one-entry level. When a function 
is suspended, any current statement tokens that have been 
stacked but not yet executed are discarded, and a stop word is 
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put on the stack. The bottom entry on the stack is always a stop 
word; it delimits the stack itself, rather than a level. 


Figure 22 shows the contents of the operation stack, level by 
level, after the following events have occurred (the term "scan 
block” is used to identify a series of statement tokens that 
have been stacked but not yet executed). The user types a 
statement that is formed into a temporary function Tl. Tl calls 
function AAA; statement 5 of AAA calls function BBB; and an 
error occurs in statement 7 of BBB. When the keyboard unlocks 
after the error message, the user types a statement that is 
formed into a temporary function T2. T2 calls function CCC, and 
statement 8 of CCC is now being executed. 


WSMTSADR 


Scan block for CCl[8] 


ICB for call af CCC 





| Enc of stack stop word | 


Figure 22. Operation Stack Levels 


When a function .is pendant, the restart information (the 
internal name of the function and the address of the next token) 
is contained in the FCB in its level. When a function is 
suspended, the restart information is contained in the stop 
word. The format of a stop word for a suspended function appears 
in Figure 23. 


The end-of-stack stop word is X'08000002'. Note that the top 
entry in an FCB can be distinguished from a stop word because 
its last two bits are always '090°*. 


NULLS: A null is X'07000000"°. A null is always put on the 
operation stack as the first entry in a level. Its purpose is to 
_serve as the prior token when just one statement token has been 
Stacked and the syntax classes of the top two tokens are 
analyze 


Operation Stack Management 


When a token is put on the stack, the address in WSMTSADR is 
decremented by four. If the new address is less than or equal to 
that contained in WSMBDATS, or if byte 0 of the entry pointed to 
is 0, an attempt is made to extend the stack as described in 
"Address Table Management” earlier in this section. 
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Bit Description 


0-4 Level identifier (00001) 
5-15 Statement number at which execution is suspended 
16-29 Bits 0-13 of internal name of suspended function 
30-31 Status of suspended function: 
| Code Meaning 
01 Damaged 
11 Good 


Figure 23. Suspended Function Stop Word Format 


Items are taken off the stack by incrementing the address in 
WSMTSADR by a multiple of four. The stack itself is not 
modified. 


Free space extends from the bottom of the operation stack to the 
beginning of the R13 stack. It contains the values of the remote 
objects in the workspace—variables, functions, printnames, 
groups. Free space is divided into blocks of words. There are 
four types of blocks—dummy, unallocated, inactive, and active. 


Format of Blocks in Free Space 


Each block of free space begins and ends with a count word. The 
interior of a block varies depending on the type of block and 
type of object. A count word contains the length of the block in 
bytes including the length of one of its count words. The 
eae two bits of a count word are used as a block type 

ag: 


Bits Meaning 

00 Inactive 

01 Active or dummy 
10 Unallocated 


Thus a 100-word block contains 98 interior words; the value of 
each count word is: 


Value Meaning 

396 _ For an inactive block 

397 For an active block 

398 For the unallocated block 


The format and purpose of dummy, unallocated, and inactive 
blocks are described under “Free Space Management." All active 


blocks have a common second word known as the "DN-word.” Bytes 0 


and 1 of a DN-word contain the object's descriptor. The bit 
meanings appear in Figure 24. 
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Bit Symbol 
0-3 
4 DBITAPVE 


5 
7 DBITSYNO 
8 DBITESCA 


DBITSCAL 
DBITVL1 
DBI TARRY 


DBITARL1 
DBITVECT 


DBITARRA 
DBITNSCA 


12 
13-15 


DOBITLOGI 
DBITINTE 
DBITREAL 
DBITNUM 

DBITCHAR 


Description 
Not used; always 0Q 


1 = object is an arithmetic progression 
vector; bit 8 also = 1 


Not used; always 0 
1 = object 15 a synonym; bit 8 also equals il 


1 = object is a special case: bit 4 or bit 7 also 
ecuals 1 


Shape descriptor: 


C60 = scalar 
O01 = vector containing one element 
x1lx = array of any length; bit 9 and/or 


bit 11 also equals 1 
011] = array containing one element 


101 = vector. length not 13; either an empty or 
a multi-element vector 


liji = array, length not 1; either an empty or oa 
multi-element array 


-— 


lxx = object is neithar a scalar nor a pseudoscalar 
(a one-element vector or array) 


Not used; always 0 


Data type descriptearli corresponds to bits 13 through 
15 of an immediate address table entry: 


900 = logical 


991 = integer 


012 = real 
Oxl = nomeric of some sort 
100 = character 


Figure 24. DN-Word Bit Meanings 


Bytes 2 and 3 of a DN-word contain the object's internal name. 
The address of the object's address table or operation stack 
entry is obtained by adding the internal name and the value of 
WSMATAAA. 


The address contained in a remote address table or operation 
stack entry is that of the DN-word of the cbject's active block. 


The remaining werds in am active block for various types of 
objects are descrikfed in tha following sections. In the 
descriptions, the conventions appear in Figure 25. 


The reason for the padding is that free space blocks are aligned 
on a doublewerd boundary to speed up the fetching and storing of 
real values. The padding occurs, when necessary, to fill out a 


block 


to a multinle of eight bytes. 
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Code Meaning 
cccce Denotes a count word J 
DDNN Denotes a DN-word 


KX... 2. eX Denotes an item (x) that occurs any number of 
times, always as some number of fullwords 


UU Denotes an unused halfword 


XXXX Denotes an unused word of padding that may or may 
not occur 


Figure 25. Active Block Descriptor Conventions 


ORDINARY VARIABLES: An ordinary variable is one that is neither 
an arithmetic progression vector nor a synonym. The format of an 
active block for various shapes of ordinary variables appears in 


Figure 26. 

Variable Format 

integer Ccccc DDNN VVVV CCCC 

scalar 

real CcCC DDONN VVVV VVYVV XXXX CCCC 

scalar 

vector cccc DDNN V... ...V XXXX NELM CCCC 

array Cccc DDNN V... ...V XXXX RR... ...R RANK NELM CCCC ) 


Figure 26. Active Block Format of Variables 


The element values (V) are stored in the word(s) following the 
DN-word. Integers are stored in raveled sequence, one word per 
elemant. Real values are stored in raveled sequence, two words 
per element. Characters are stored in raveled sequence, one byte 
per element, and may be padded on the right with undefined bytes 
to complete a word. Logical values are stored one bit per 
element; the bytes are in raveled sequence, but the bits within 
a byte are reversed; the byte containing the last element may be ) 
padded on the left with undefined bits. Thus, the elements of a 
19-element logical vector are stored in one word in this 
sequence with an undefined fourth byte: 


76543210 15 14 1312111098 xx x x x 18 «17 «16 


For vectors and arrays, the element count (NELM) is stored as a 
fullword. For arrays, the rank (RANK) is stored as a fullword; 
the dimension vector (RR...) is stored ona fullword per 
dimension. An empty vector or array has an element count of zero 
and no value words. 


The elements of an ordinary variable are accessed by stepping 
forward from the DN-word or beginning count word. The shape and 
size information is accessed by stepping backward from the 
ending count word. 
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ARITHMETIC PROGRESSION VECTOR: An arithmetic progression CAP) 
vector is a vector of integers that form an arithmetic 
progression. For example, 


1234 5 
10 13 16 19 22 25 28 
17 3 -11 -25 


Any AP vector may be represented in a compressed form: initial 
element, step between elements, number of elements. An AP vector 
is represented in free space by a six-word block: 


Cccc DDNN INIT STEP NELM CCCC 


The translator does not examine vectors to determine if they are 
arithmetic progressions. AP vectors are gererated by the monadic 
iota operator routine when the argument is greater than one. 
They are preserved across many operations such as addition or 
subtraction of a scalar, multiplication by a scalar, take, and 
drop. 


Storing AP vectors in their compressed form saves space. [It also 
saves processing time for operations with AP vector arguments. 


SYNONYMS: Synonyms are variables whose value and size are the 
same; their shape is usually, but not necessarily, the same. To 
save space, the value, shape, and size are stored just once ina 
value block whose format is as described for ordinary variables; 
a temporary internal name is obtained for this value block. The 
address table entry for each synonymous variable contains the 
address of a synonym block. The synonym blocks are formed into a 
chain, and each one points to the value block. The format of a 
synonym block is: 


CCCC DDNN UUVV PPSS XXXX CCCC 


VV is the internal name of the value block; PP is the internal 
name of the predecessor in the chain; SS is the internal name of 
the successor in the chain. Since the rightmost two bits ef an 
internal name are always 0, the rightmost bit of PP is set to 1 
in the first synonym of a chain, and the rightmost bit of SS is 
set to 1 in the last synonym of a chain. In practice, the start 
of chain and end of chain are indicated by a value of -l 
(X"FFFF*). 


Synonyms may be set up in the following cases: assignment, ravel 
of an array, invocation of a monadic or dyadic function (the 
arguments are copied), during statement scan and syntax analysis 
(see Diagram 4.1: "Statemant Scan, Syntax Analysis, and 
Execution’). A synonym is made only if the argument is permanent 
and its value block is large (in practice, more than 40 bytes 
long). If the argument is temporary, its value block is simply 
used for the result. If the argument is permanent and small, a 
copy of it rather than a synonym is made for the result. The 
making of synonyms and copies is done by the IESYNN routine. 
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Figure 27 shows the setting up and extending of a synonym chain 
that occurs when the following statement is executed. 


A+, B«C+34p1i12 


Address Table Free Space 


Re rrr if ff 
Entry for C —— >/0071 C Values, shape, size 
——— 


{Entry for 8B ——>|o1F1 B | tl | C -j 
Entry for C ——>o1F1 C -] B 
$$ ——-___—__/ / 
Entry for tl |———>?/0071 t1| Values, shape, size 
——_______—_———_ f / 


Entry for A ———>|o1p1 A ti | B -1 
ee a 
Entry for B ——>|o1F1 B | t1 focal 
Entry for Cc ———>[o1F1 C | ta | -4 B 
oo // 
Entry for tl ——>|o071 ti|Values, shape, size 
4/4 


HAE 


iH 


Figure 27. <A Synonym Chain 


Note that the descriptor in each free space block is shown in 
hexadecimal; the remaining information is shown symbolically and 
the count words are omitted for simplicity. 


The top part shows the address table and free space following 
assignment to C; at this point C 1s an ordinary variable. 


The middle part shows the new synonym chain following assignment 
to B. 


The bottom part shows the extended synonym chain following the 
ravel of B and assignment to A and illustrates that the shape 
descriptors in the synonym blocks and value block are different 
if the ravel of an array has occurred. A is correctly described 
as a vector in its synonym block; the dimension and rank 
information in the value block is ignored when A is accessed. 8B 
and C are correctly described as arrays in their synonym blocks. 
When synonyms are accessed, the shape descriptor in the value 
block is i'gnored. 


When a synonym is freed, it is removed from the chain by 
modifying the synonym blocks of its predecessor and successor. 
When a synonym chain is reduced to one link, the remaining 
variable is made an ordinary variable by discarding its synonym 
block and the internal name of the value block; putting the 
address of the value block in the variable's address table 
entry; and putting the variable's descriptor and internal name 
in the value block's DN word. 
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Although a value block has an entry in the temporary part of the 
address table, the entry is flagged as permanent. This 1s done 
to prevent the internal name and the value block from being 
discarded during recovery from a user error. 


SHARED VARIABLES: The address table entry for a shared variable 
contains the address of a share ID block. The share ID block 
points to a value block. The format of the value block 1s as 
described for an ordinary variable. As with synonyms, the value 
block has a temporary internal name, but its address table entry 
is flagged as permanent. 


The format of a share ID block is: 
cccc DDNN UUVV IIII XXxXX CCCcCc 


VV is the internal name of the value block. IIII is the offer 
sequence number Calso known as the share ID number); this is an 
integer that uniquely identifies the variable to the shared 
storage manager. 


GROUPS: The format of the free space block for a group is: 
cccc DDNN CTMiM4 MM... ..MM XXXX CCCC 


The block is described as a character vector (X'0054'). The 
first halfword following the DN-word (CT) is a count of the 
number of members. The following halfwords (MM...) contain the 
internal names of the members. 


PRINTNANES : The format of the free space block for a printname 
is: 


cece DDDD CV.. V XXXX CCccc 


The block is described as a character vector (X'0054'). The 
first byte following the DN-word (C) is a count of the number of 
characters in the printname less one. The following bytes are 
the printname as a character string; there may be undefined 
bytes on thea right to complete a word. 


FUNCTIONS: The interior of a function block in free space is 
divided into three sections—head, body, tail. In the following 
description, the term “offset” means the displacement from the 
DN word of the function block. 


The function header is a series of halfwords, as described in 
Figure 28. The symbols are as defined in the FHED macro (see 
Data Areas "FHED"). Since the rightmost two bits of an internal 
name are always 00, bit settings of O1, 10, 11 are used to 
indicate something other than a name. 


The body of the function block contains the internal text of the 
function statements. Where Sn indicates the text of statemant n 
and EQSn indicated the end-of-statement token for statement n, 
the body contains: 


EO0SO S1 £051 S2 E0S2 Sn EOSn branch-to-zero EQSx 
The last two tokens of the body are those ganerated by the 


translator to enable function exit when the last statement (Sn) 
has been executed. 
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The first part of the tail of the function block contains the 
offset to each end-of-statement token in the body—E0S0 through 
EQSx. Each offset is a halfword. Following the offsets, there 
may be a word of padding. The next word (RANK if this were an 
ordinary variable) contains a value that is equal to or greater 
than the number of bytes used when displaying the longest 


statement 


in the function. The next and last word (NELM if this 


were an ordinary variable) contains: 





Bytes Contents 
0-1 A count of the number of labels 
2-3 Offset to the first label in the head 
of the function block 
Halfword Symbol Description 
0~l FHEDDN DN-word; descriptor is X°'0054' 
2 FHEDM Number of last statement defined by user 
3 - FHEDT Offset to tail 
4 FHEDS Translator flags: 
FHEDLOCK X'1Q*' = locked functian 
FHEDMAG X°'30° = embedded VS APL function 
FHEDQUAD X'O1* = quad-input temporary function 
FHEDEXEC X*'O2° = execute temporary function 
X°00" = immaradiate execution temporary function 
or unlocked permanent function; distinguished by 
primary descriptor in address table entry 
5 FHEDK Byte count for function call block (FCB); 
equal to 409 plus 8 times the number of locals 
including labels. 
6 FHEDZ Internal name of result; rightmost bits = 01 if none 
7 FHEDL Internal name of left argument; rightmost 
bits = 01 if none 
8 FHEDR Internal name of right argument; rightmost 
bits = 01 if none 
9-n FHEDLOCL First, the internal name of each local variable in the 
seauence defined by tha user in the function header; 
if neme is a duplicate of a prior name, rightmost 
bits = O1. Then, as pair of halfwords for each label 
in statement number sequence. The first halfword 
contains the statement number in bits 0 through 13; 
rightmost bits = ll. The second halfword contains the 
internal name of the label. 
m Value of X*'0002' (Crightmost bits = 10) 
indicates end of locals. 
Figure 28. Function Header 
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Free Space Management 


In a clear workspace, free space contains a dummy block at each 
end and an unallocated block in the middle. A dummy block looks 
like an active block with no interior; it consists of contiguous 
count words whose value is 5. The dummy blocks delimit free 
space; their use is described later. The boundaries of free 
space are contained in a pair of control words in the ~ 
interpreter transient area: WSMFREES contains the offset from 
WSMATAAA to the word following the beginning dummy block; 
WSMFREET contains the offset to the word following the ending 
dummy block. 


The unallocated block is the free space that is unused but 
available for storing of objects. There is always just one 
unallocated block in the workspace. It has a count word at each 
end with a block type flag of 2; the interior is undefined. 
Whenever space for an active block is allocated, the space 15s 
taken alternately from the bottom and top end of the unallocated 
block. Thus, the used part of free space grows from each end 
toward the middle. 


There are three control words in the translator and interpreter 
transient areas that point to the unallocated block. WSMFREEU 
contains the absolute address of the beginning count word. The 
rightmost bit of WSMFREEU is an allocation flag. It is flipped 
each time a block is allocated; :f 0, space is allocated from 
the bottom Clow address end) of the unallocated block; if 1, 
space is allocated from the top. WSMFREEA and WSMFREEZ contain, 
respectively, the offset from the beginning of the workspace to 
the word following the beginning count word and to the ending 
count word. These two control words are used primarily by 
certain translator and appendage routines that use the 
unallocated block as a work area. WSMFREEA and its contents also 
serve to delimit that part of the workspace that is written to 
disk. 


There are three routines that may be called by exarch routines 
to get a block of free space. JEFIND takes a byte count as 
input; IEGTSPAC takes a data type descriptor, rank», and element 
count as input; IESPACST takes a model variable as input. All 
three routines allocate a block of the requested size and update 
the unallocated block count words and pointers; they also call 
IENAME to get a temporary internal name for the block. 
Translator and appendage routines communicate with IEFIND via 
the IESFIND service routine or the APLSFND macro. These allow 
the option of getting an internal name or providing one as 
input. The macro also provides the option of requesting that 
space be allocated from the top or bottom and of the unallocated 
ock. 


The IEFREE routine is called by exarch routines to free an 
active block and its internal name (if temporary). An active 
block is freed by setting the block type flag in each of its 
count words to 0 Cinactive block). The preceding and following 
blocks are then checked. If either is unused Cinactive or 
unallocated) the newly freed block is merged with it. Thus, if 
possible, the freed space is immediately recovered; if not, the 
presence of a few large inactive blocks rather than many small 
ones speeds up the collection of discarded material. The 
prasence of the dummy blocks, which are flagged as active, 
obviates special handling when the first or last block is freed. 
Translator and appendage routines communicate with IEFREE via 
the IESFREE service routine or the APLSFREE macro. 


The IATIDY routine is called to collect the discarded material 
when the amount of space requested for a block is not available, 
when the workspace is saved, and when system variable quad-WA is 
referenced. IATIDY goes through free space, block by block, 
deleting all inactive blocks and collecting all active blocks 
into the low address end of free space. The area to be examined 
is delimited by the dummy blocks and by WSMFREES and WSMFREET. 
During this process, IATIDY updates all the items that contain 


Licensed Materital—Property of IBM 
Section 5. Data Areas 247 


absolute free space addresses: the address table entry for each 
relocated active block, WSMFREEU, WSMNXINS, ZADDR, LADDR, and 
RADDR. It also updates the unallocated block count words and 
relative pointers (WSMFREEA and WSMFREEZ). Note that active 
blocks ere simply moved; there is no need to examine or modify 
their contents since they contain no absolute addresses. 


R13 STACK 


The R13 stack extends from the end of free space to the end of 
the workspace. It is 1024 bytes in length; the relative location 
of its low address end is contained in WSMWORK (a control word 
in the executor transient area). 


This area is used as a pushdown stack of variable~sized save 
areas. A save area (or level) is added to the stack whenever a 
routine is entered via macro APLENTRY. The level is removed when 
the routine returns to its caller via macro APLEXIT. It is known 
as the R13 stack because register 13 is used to point to the 
beginning of the current level; register 14 is used to point to 
the current level's end. 


Each level is used as a save area for the calling routine’'s 
registers and, optionally, as a work area for the called 
routine. Execution of the APLENTRY macro always causes register 
12 through register 15 of the calling routine to be saved in the 
new current level. Optional parameters cause other registers to 
be saved and a work area of the requested size to be appended to 
the current level. 


All translator and appendage routines and all exarch service 
routines (those which are called by translator or appendage 
routines) begin with an APLENTRY macro and terminate with an 
APLEXIT macro. Each call to one of these routines, therefore, 
adds oa level to the R13 stack. Potentially the R13 stack can 
overflow. However, the interpreter is designed so that calls are 
never nested to such a depth. 


The remaining exarch routines execute as one routine in the 
sense that they share a single level of the R13 stack. This 
level is created when exarch is called by the translator at 
entry point IEXARCH; it 1s removed when exarch returns to the 
translator at IEXIT. Most exarch routines do not use the R13 
stack a5 a work area; those that do use macros APLGET13 and 
APLDRP13 to extend and restore exarch'’s R13 stack level. 


VSPC WORKSPACE 


When VS APL iS running under VSPC, it has a VSPC workspace as 
its data area. The first 2048 bytes of the VSPC workspace 
contain the control blocks and work areas described below. The 
remainder of the VSPC workspace contains the VS APL workspace 
described in the preceding section. If data has been placed in 
the alternate input stack, the stack follows the VS APL 
workspace, and if the user has a shared-variable connection with 
the FSM auxiliary processor or the GDDM auxiliary processor,» an 
auxiliary-processor work area follows the alternate input stack. 


At the beginning of the VSPC workspace is a 256-byte VSPC 
control block called the workspace header (WSH). Following the 
WSH is a 24-byte VSPC control block called the standard file 
nome (SFN). The VS APL executor uses these control blocks in its 
communications with VSPC. They are described in VS Personal 
Computing CVSPC): Writing Processors, SH20-9074%, and in VSPC 
Version 2: Writing Processors, SH20-9203. 


Following the SFN is a 72-byte APL control block called the 
PERTERM header (PTH) that can be referenced, but not modified, 
by the translator and interpreter. The address of the PTH is 
contained in control work WSMPTHPT in the executor transient 
area of the VS APL workspace. Following the PTH is a 1556-byte 
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executor work area. that is for the exclusive use of the 
executor. The last 140 bytes preceding the VS APL workspace are 
used to contain a 132-byte buffer which must immediately precede 
WSMBUFF. This buffer is used to hold [] output which may later 
be written to the terminal input area (display terminals only). 
See “Control Block Formats” for a detailed description of the 
PTH and the executor work area (CECA). 


EXECUTOR DATA AREAS 


CMS EXECUTOR GLOBAL TABLE 


When VS APL is running under CMS, the executor has a 4096-byte 
work area called the global table. The address of the global 
table 18 contained in absolute storage location X'440' (symbolic 
locatien GLBLTABL in CMS macro NUCON). 


At the beginning of the global tabla is a 72-byte APL control 
block called the PERTERM header (PTH) which can be referanced, 
but not modified, by the translator and the interpreter. The 
address of the PTH is contained in control word WSMPTHPT in the 
executor transient area of the VS APL workspace. The remainder 
of the global table is for the exclusive use of the executor. 
See "Control Block Formats" for a detailed description of the 
PTH and the global table (CMSGL). 


PTH is immediately followed by a PTX which is available for use 
by only the CMS executor. 


TSO EXECUTOR GLOBAL TABLE 


When VS APL 18s running under TSO, the executor uses a work area 
called the global table. The address of the global table 15s 
contained in the first four bytes of the PRB save area, which is 
addressed by the TCBFSA field for all of the VS APL tasks. 


At the beginning of the global table is a 72-byte APL control 
block called the PERTERM header (PTH) which can be referenced, 
but not modified, by the translator and interpreter. The address 
of the PTH is contained in control word bBDISNPTHPT in the executor 
transient area of the VS APL workspace. The remainder of the 
Global table is for the exclusive use of the executor. See 
"Control Block Formats” for a detailed description of the PTH 
and the global table TSOGL. 


VS APL EXECUTOR STACK FOR CICS 


Module 
Creating 
Stack 


APLKASON 


APLKADSP 


Most CICS executor routines use a special set of entry and exit 
codes that saves registers and provides working storage from a 
processing stack. The following list shows which modules create 


stacks, which routines use stacks, and where the stacks are 
located: 


Stack Use Location of Stack 


Used by user signon and In the transaction work area CTWA) 
library services routines provided by CICS for the signon 


CAPL) transaction 


Used by the process dis- In the TWA for the user CAPLU) 
patcher routines transaction 
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Module 
Creating 
Stack 


APLKIFIX 


APLKLIBG 


APLKTCTL 


APL1I21K 


APLI2SK 


APL1I32K 


APLKSSUB 
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Stack Use 


Used by all YY code serv- 
ice routines—it is the 
primary executor stack 
for the user session 


Used by the library serv- 
ice routines 


Used by terminal] I/70 rou- 
tines 
Used by library services 


routines 


Used by terminal manager 
routines 


Used by destination man- 
ager routines 


Used by shared storage 
manager routines 


Stacks are made up of & 
register 11 always poirting to the current entry. 


Location of Stack 


In transaction storage for the 
user CAPLU) transaction 


In the TWA for the library CAPLL) 
transaction 


In the TWA for the terminal CAPLT) 
transaction or Con attention) the 
sign on (APL) transaction 


{n transaction storage for the 
user (APLU) transaction 


In transaction storage for the 
user (APLU) transaction 


In transaction storage for the 


user (APLU) transaction 


In shared memory 


series of variable-length entries, with 
Stacks are 


used beginning at the high address end and filling toward the 


low address end. 
fullwords, 


The format and content of a stack entry are shown 
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Space within the stack 
and the stack may be of any size. 


is allocated in 


in Figure 29. 





Dec Hex Length Name Description 


0 0 Cy STKP Pointer to a word at the low address 
end of the stack area. 
The word contains the address of the 
stack overflow routine provided by 
the module that owns the stack. 
stack. 


4 4 4 STKI Four characters identifying the 
routine for which this stack 
entry is provided. When exit is 
made from this routine, the second 
bit in this field is turned off, 
providing easy icentification of 
recent control flow when analyzing 
dumps. 


8 8 4 STKR The contents of register 14 when 
this routine pias entered. 


12 C 4Xn STKS The contents of any other registers 
saved when this routine was entered. 
Contains registers 2 through 10 for 
stack entries representing 
module entry points. 
For internal subroutines, STKS may 
be omitted or may contain a 
subset of registers 2 through 10. 


Varies Routines, when entered, may request 
additional stack space formatted 
in any way they require. 
For the format of this area and 
the total length af the stack entry, 
consult the individual routine. 


Figure 29. Format and Content of a Stack Entry 





CICS/VS EXECUTOR DATA AREA INTERRELATIONSHIPS 


Figure 30 shows the relationships between major data areas used 
by the CICS/VS executor. 
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CICS: VS CONTROL BLOCK STORAGE 


APLU TRANSACTION STORAGE 


Note: The TCA shown ts ussocigted with un APLU 
task, The sume user’s TCT is associated 
withan APL. APLT. or APIS task. 


PTXSMTBP 


PTXGXTBP 





PTKSSPST 
PTKSSPAL 


ATWGOBL 







PTKWSM 


WSMPTILPT 


WSM 


SGNPTIH 


PROGRAM STORAGE 
Note: There is one GBL in the CICS/VS sestem. It 
points to the head of the SGN wable. There is 


one setive SGN entrs tor euch User. 


Figure 30. CICS/VS Executor Data Area Interrelationships 


. (if non- 
88 leo Y 





+ 
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VS APL COMMON EXECUTOR STACK 


Executor modules which are common to multiple environments, 
including most APLA... and APLX... modules, use a special set of 
entry and exit code that saves registers and provides working 
storage from a processing stack. Some of the modules which are 
unique to a single subsystem have also adopted this convention. 
All of these modules are referred to as "SP-modules”™, and can be 
identified by their use of an APLXPROC macro at the beginning of 
the executable ccde. 


The APLXPROC macro generates an ID string at the module entry 
point that not only names the module and provides a compile 
data, but also contains a field indicating the amount of stack 
storage required by the module. 


SP-modules are never called directly. Instead, a stack linkage 
routine is used which saves registers and provides the required 
working storage. The APLCALLS macro is normally used for this 
purpose. A single register (normally R13) is used to point to a 
stack entry which includes: 


e a pointer to the linkage routine, 
° ea standard 18-word save area, and 
° the required working storage. 


The stack entry also has a prefix which identifies the module 
currently using the stack entry. In addition, stack services 
provides for abend exits at each level in the stack. These are 
also recorded in the stack entry prefix. 


Typically, then, a stack entry will appear as follows: 


-10 | <-> abend exit routine | 
~c |  caller’s R13 | 
-3 | module name =| 
R13---> | branch to linkage routine —‘| 
4 | -> previous stack entry —i 

8 | -> next stack entry | 

¢ | save RIG-R12 when this ——*| 


| | 
7 module issues a call. 7 
7 (First byte is X'FF' if / 
| control has returned. ) | 
68 | working area for this module. | 
/ (variable size) / 


=— eee ee eee eee ee ee ee eee ee ee 
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CONTROL BLOCK FORMATS 


Control blocks are given, in this subsection, in alphabetic 
‘order. Each control block heading shows the name of the control 
block followed (within parenthesis) by the components which use 
the control block. Acronyms are employed in place of the actual 
component names and have the following meanings: 


ALL All the principal components 

AP Auxtliary Processors 

cIcs CICS/VS Executor 

CMS CMS Executor 

CONV Converston Programs 

NTRP Interpreter including the translator exarch and 
appendage routines 

SERV CICS/VS Service Programs 

TSO TSO Executor 


VSPC VSPC Executor 


XSYS Cross~system components including the session manager, 
common auxiliary processor services, and common service 
support routines) 
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APC (XxSYS, 


AP) 


This is the common AP services interface request block. It 
contains the type of the shared storage manager request and the 


return code from the request. 
one used 


(The format of this layout is the 


in publications titled "Data Areas and Symbolic Names 


Cross-Reference Table," usually distributed on microfiche. ) This 
15 mapped by the APLXAPC macro. 


contro] block 


TYPE 


LENGTH 


DESCRIPTION 


SIGNED 
SIGNED 


APCRQTYP 
APCRQVAR 


REQUEST CODE SET BY AP 
WHICH SH VAR IN SET THIS 


BITSTRING 
BITSTRING 
SIGNED 


APCRET 
APCSSMRC 


AP DESIGNATED RETURN CODE 
UNUSED 
RETURN CODE FROM SSM 


ee ee ee eee ee ee eee eee eee ee ee ee ee ee eee eee ee ee 


SIGNED 
CHARACTER 
BITSTRING 
li... 
-l.. 4... 
--il 1l1il 
BITSTRING 


p= 


APCSSMRS 
APCFLAGS 
APCFLAG] 
APCEBCD 

APCIGNOR 


REASON CODE FROM SSM 
MISCELLANEOUS FLAGS 

FLAG BYTE 1 

EBCDIC TRANSLATION FLAG 

IGNORE UNREF’D WAITING VALUE FLAG 
RESERVED 

RESERVED 


SIGNED 
BITSTRING 
UNSIGNED 


APCNAMEL 
APCATYPE 
APCALEVL 


LENGTH OF RESOURCE NAME 
TYPE OF RESOURCE FOR AUTHCHECK 
ACCESS LEVEL FOR AUTHCHECK 


be ee ee TT es ee es ee es a es ee 


OFFSETS 
0 C0) 
0 (0) 
2 (2) 
4 C4) 
& (4) 
3 (5) 
6 (6) 
8 (8) 
10 CA) 
10 CA) 
11 (B) 
12 (C) 
16 (10) 
20 (14) 
24 (138) 
28 (1C) 
28 (1C) 
30 (1E) 
31 (1F) 
32 (29) 
36 (24) 
40 (28) 
40 (28) 
92 (5C) 


CHARACTER 


APCEND 


END OF PLS APC MAPPING 


Licensed Material—Property of IBM 
Section 5, Data Areas 255 


CROSS REFERENCE 


APC 0 ¢€0) 
APCALEVL 31 C1F) 
APCANCH 32 (20) ) 
APCATYPE 30 (1E) 
APCEAT 12 (C) 
APCEBCD 10 X'80' 
APCEND 92 (5C) 
APCFLAGS 10 =«((A) 
APCFLAG1 10. «CAD 
APCIGNOR 10 X'40' 
APCNAMEL 28 (1C) 
APCPARM1 16 (10) 
APCPARM2 20 (14) 
APCPARM3 24 (18) 
APCPARM4 28 (1C) 
APCPSCV 36 (24) 
APCRC 4 (4) 
APCREGS 40 (28) 
APCRET 4 (4) 
APCRQTYP 0 ¢€0) 
APCRQVAR 2 (2) 
APCSSMRC 6 (6) 
APCSSMRS 8 (8) 
APCWORKA 40 (28) 
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APFT (VSPC) 


This is the information table for auxiliary processors 
distributed with VS APL for VSPC. There are 15 of these blocks 
defined within the VSPC executor work area (ECA). This control 
block is mapped by the APLPFT macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (09) STRUCTURE 0 APFT 
0 (0) SIGNED 4 APCTL CTL SHARE ID | 
4 (4) SIGNED 4 APDAT DATA SHARE ID 
8 (8) SIGNED 2  APCIN CTL INTERNAL NAME 
10 (A) SIGNED 2 APDIN DATA INTERNAL NAME 
12 (C) SIGNED 4  APAPRCOD AP RETURN,REASON CODES 
12 (C) SIGNED 2  APAPRET AP RETURN CODE 
14 (E) SIGNED 2 APAPREA AP REASON CODE 
16 (10) HEX 1 APLACT SAVE LAST AP ACTION. 
APLACT DEFINITICGNS=APFIFO DEFINITIONS 
17. (11) HEX 1 APSACT SAVE CURRENT USER/AP ACTION 
APSACT FLAGS DEFINED BY APACVS DEFINITIONS 
18 (12) SIGNED 2 APSVRCOD SHRVAR RETURN,REASON CODES 
18 (12) HEX 1 APSVRET SV RETURN CODE 
19 (13) HEX 1 APSVREA SV REASON CODE 
20 (14) A-ADDRESS & APGDDXCO OFFSET OF GDDX COMMON AREA AP126 
20 (14) SIGNED 4  APSFN SFI/SET ADDRESS, ID 
20 (14) HEX 1 APSFNID SFT/SET ID 
21 (15) A-ADDRESS 3. APSFNAD SFT/SET ADDRESS (NON-RELOCATABLE) 
GENERAL FLAGS 
24 (18) HEX 1 APDSMS DUMMY SHARE MEMORYCDSM) STATUS 
APDSMS FLAG DEFINITIONS 
ll... .... APDDSM "Y'CO'™. DATA STATUS: O1=USER 
SPECIFIED 11=AP SPECIFIED OO=DATA 
REFERENCED 
lee cece APDUSPEC "X'GO'™ USER SPECIFIED 
‘11... APCDSM "X'3Q"™ CTL STATUS: OL=USER 
SPECIFIED LI=AP SPECIFIED O0=CTL 
REFERENCED 
a. ee APCUSPEC "xt79°" USER SPECIFIED 
ey APSVCMP "X'OT'™. USER SV REQUEST COMPLETED 
25 (19) HEX 1 APACVS ACCESS CONTROL FLAGS. 
APACVS FLAG DEFINITIONS : oO 
oe ewes APADSP "X'3O'™ AP SPEC DATA 
doe ee APACSP "Y°GO"". AP SPEC CTL 
1. oo. APADRE "y' 20" AP REF DATA 
yolit! APACRE wex'yo'™. AP REF CTL 
1... APUDSP "X'O8'". USER SPEC DATA 
1... APUCSP "X'OG'™ USER SPEC CTL 
1. APUDRF "X'O2'. USER REF DATA 
teas wed APUCRF "X'OL'™. USER REF CTL 
26 (1A) HEX 1 APAPID PSEUDO-AP IDENTIFICATION 
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APFT (VSPC) continued 


OFFSETS TYPE LENGTH NAME. DESCRIPTION 
APAPID DEFINITIONS 2 
ere APVSAM "X'O1'"™. VSAM AP 
ape) APAPL "X'o2'". VSPC APL AP 
ae ee APBCD "X'04"™". VSPC EBCDIC AP 
ee ee APVISA "X'O8'™, LWIORKSPACE ACCESS AP 
ee ee oe APFSM "X'10°". FSM AP PCM2045P 
aged: . sehaiercs APGDDM "X'20'". GDEDM AP AP 126 
Slain’ vepabia APALT "X'4o0'". ALTERNATE INPUT AP 
Lees dei Su APCND "x'sor’. VSPC COMMAND AP 
2/7 (1B) HEX 1 APFLG APFT ENTRY FLAGS 
APFLG DEFINITIONS 
di Splice APCACT "X'380'". CTL PARTNER ACTIVE 
oles wen. APDACT "X'*GO'™, DATA PARTHER ACTIVE 
1 ee APFTACT "APCACT+APDACT™".APFT ENTRY ACTIVE 
MASK 


ee eee eee eee ee eee ee eee ee ee eee 


APFIFO ENTRY DEFINITIONS S 
BYTE ENTRY PER AP ACTION : 
ACTION ENTRY FLAGS: APACSP,APADSP,APADRF, APACRFE 
La APAPDT "X'O8'™. DATA TYPE FLAG: 
O=-CODECRETURN,COMMAND) 1=DATA 


32. (20) CHARACTER 8 APSUFFIX CTL/DAT SUFFIX 
40 (28) HEX 1 APSUFLTH CTL/DAT SUFFIX LENGTH 
41 (29) HEX 1 APINFO 
VSPC COMMAND AP AND ALTERNATE INPUT AP INFORMATION | 
41 (29) HEX 1 APCFLG COMMAND, ALTERNATE INPUT AP FLAGS 
APCFLG FLAG DEFINITIONS 
1. APCIBAD "Xx'8O'", INITIAL VALUE NOT YET 
ACCEPTED 
As. Aes APCALL "X60". COMMAND AP 'ALL' OPTION 
el aad APCERR "X'2Q7". COMMAND AP 'ERROR' OPTION 
oh cae APCLIFO "X10". ALTERNATE INPUT AP "LIFO' 
OPTION 
WORKSPACE ACCESS AP INFORMATION 
41 (29) HEX 1 APWELG WORKSPACE ACCESS AP FLAGS 
APWFLG FLAG DEFINITIONS 
ie eds APWVWS "X'CO'™™. DISPLAY VSPC WORKSPACE ) 
i eeaeee APWPTC "X%'G0'". DISPLAY VSPC PTC 
42 (2A) SIGNED 2 
44 (2C) SIGNED 4 APWOFSET OFFSET OF AREA TO BE EXAMINED 
48 (30) SIGNED 4 APWLENG LENGTH OF AREA TO BE EXAMINED 
VSPC FILE AP INFORMATION a 
41 (29) HEX 1 APPCOF 
61 (29) HEX 1 APPELG VSPC AP FLAGS 
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APFT (VSPC) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 


APPFLG FLAG DEFINITIONS 
Ll... we ee. 


APPSI "X'8O0'",. OPEN MODES: SEQUENTIAL 

INPUT 

~l.. 2... APPSO "X'4O0'". SEQ.OUTPUT 

wel. we... APPDI "X'20°'". DIRECT INPUT 

-l .... APPDIO "X'10"'". DIRECT INPUT/ZOUTPUT VSPC 

FILE OPEN MASK 

liii .... APPOPEN "APPSI+APPSO+APPDI+APPDIO" 

wee. Lee. APPMODE "X'O8'". I-VARIABLE PROTOCOL MODE: 


O=COMMAND MODE 1=DATA TRANSFER 
MODE VSPC FILE TYPE: 


-1l.. APPFILUN "X'OS'". Q=DEFINED, L=UNDEFINED 
1. APPFILDR "X'O2'". O=SEQUENTIAL, 1L=DIRECT 
SEQUENTIAL I70 SUBMODE: 
1 APPLINE "X'O1L'™. O=DATA ONLY,1=LINE# AND 
DATA | 
42 (2A) SIGNED 2 APPREC I7Q0 BUFFER DISPLMT TO CURRENT ITEM 
44 (2C) SIGNED 4 APPRECNO LOGICAL RECORD NUMBER 
48 (30) SIGNED 2 APPLRECL DIRECT FILE RECORD LTH SAVE 
wees Lel APPLTH "xX-APPCOF™ 
VSAM FILE AP INFORMATION 
50 (32) HEX 1 APVSAMF 
54 (32) HEX 1 APVFLG! voAM AP FILE OPEN MODE FLAGS 
APVFLG1 DEFINITIONS 
wee wee APVIN "X'O1'". OPEN INPUT 
1. APVOUT "X'O02'",. OPEN OUTPUT 
l.. APVUP "X'O04'™. OPEN UPDATE 
~111 APVOPEN MAEM NT APWOUTFAPVUPNYSAM FILE OPEN 
MAS 
51 (33) HEX 1 APVFLG2 VSAM AP ACTION FLAGS 
APVFLG2 DEFINITIONS=CURRENT I70 ACTION 
weer eeel APVR "X'O1'". READ 
el. APVRU "X'O2'". READ UPDATE 
-l.. APVWRT "X'O04'". WRITE 
--- Ll... APVERA "X'O8'™. ERASE 
-.-l .... APVPOS "X'10°". POSITION 
---L ...1 APVKF "X'11'". KEY FEEDBACK 
--1l. 1... APVOPN "X'20'". OPEN 
a Cree APVCLS "X'40'". CLOSE 
Ll... 12. APVKEY "X'8O0'". KEYED REQUEST 
1... 1... APVWRTI "X'8O'". WRITE NEW RECORD COPEN 
UPDATE) 
1. APVLTH "X-APVSAMF"™ 
FULL SCREEN MANAGER (FSM) AP INFORMATION 
41 (29) HEX 1 APFSMF 
41 (29) HEX 1 APFFLAG WORK FLAG 
APFFLAG DEFINITIONS 
eee ceed APFIDXF Not INDEX INTO FSMFLD FOR FLD 
1. APFPENDF "X'O02'*. PENDING FORMAT 
.l.. APFBUZZR "X'O4¢*". SET ALARM ON NEXT 
READ,WRITE 
oe. Le. APFCURSR "X'O08'". SET CURSOR ON WRITE 
-l. .... APFFINIT "X'20'". FSMWORK INITIALIZED 
---Ll 1... APFMEMP "X'10°". DAT VARIABLE EMPTY 
42 (2A) HEX 1 APFCMDR LAST READ-TYPE COMMAND~ - 
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APFT (VSPC) continued 
OFFSETS TYPE 


APFCMDR VALUES = APFREAD,APFGET,APFRFORM,APFWRITE 
43 (2B) HEX 1 APFSMCMD CURRENT FSM CMD 


LENGTH NAME DESCRIPTION 


sheet APFFORMT Wi") FORMAT 
Chere bh APFWRITE wo" WRITE 
eat! APFREAD w3"" READ 
iad APFGET a5 GET 
ace APEMTYPE "6". MODIFY-TYPE 
"4d APFMMINT "7". MODIFY-INTENSITY 
ea ead APFRFORM "om READ-FORMAT 
li APFHCOPY mio’, HARDCOPY 
1.11 APFBUZZ "11". SOUND ALARM 
11. APFSETC mi2". SET CURSOR 
il. APECMDH "12". HIGH COMMAND VALUE 
44 (2C) SIGNED 6 APDATVAL DISPLMT FROM WS TO DAT VALUE BLK 
48 (30) SIGNED & APFSMD DISPLMT FROM WSH TO FSMWORK | 
ee toe Dill APFLTH "x —-APFSME™ : -_ ) 
GDDM AP INFORMATION 7 
41. (29) HEX 1 APGDDMF 
41 (29) HEX 1 APGCTYPE DATA TYPE OF CTL VARIABLE 
APGCTYPE VALUES 
eae APGFIXED "1", INTEGER 
one APGELOAT "2". ELOATING POINT 
42 (2A) SIGNED 2  APGINDEX INDEX OF GDDX PATH UNIQUE BLOCK 
44 (2C) A~ADDRESS 4 APGCTLBO OFFSET OF OUTPUT CTL BUFFER 
48 (30) A-ADDRESS 4 APGDATBO OFFSET OF OUTPUT DAT BUFFER AP126 ) 
veae Dodd APGLTH "x-APGDDMF” AP126 
TUL VL.. APFTLTH "x-APFT" 





Licensed Material—Property of IBM 
260 VS APL Program Logic 


CROSS REFERENCE 


APACRF 
APACSP 
APACVS 
APADRF 
APADSP 
APALT 
APAPDT 
APAPID 
APAPL 
APAPRCCD 
APAPREA 
APAPRET 
APBCD 
APCACT 
APCALL 
APCDSM 
APCERR 
APCFLG 
APCIBAD 
APCIN 
APCLIFO 
APCND 
APCTL 
APCUSPEC 
APDACT 
APDAT 
APDATVAL 
APDDSM 
APDIN 
APDSMS 
APDUSPEC 
APFBUZ2 
APFBUZ2R 
APFCMDH 
APFCMDR 
APFCURSR 
APFFINIT 
APFELAG 
APFFORMT 
APFGET 
AP FHCOPY 
APFIDXF 
APFIFO 
APFLG 
APFLTH 
AP FMEMP 
APFMMINT 
APFMTYPE 
AP FPENDF 
AP FREAD 


X'10' 
X'G0! 
(19) 

X'20' 
X'80' 


& 
Oo 
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APFRFORM 
APFSETC 
APFSM 
APFSMCMD 
APFSMD 
APFSMF 
APFT 
APFTACT 
APFTLTH 
APFWRITE 
APGCTLBO 
APGCTYPE 
APGDATBO 
APGDOM 
APGDDMF 
APGDDXCO 
APGFIXED 
APGFLOAT 
APGINDEX 
APGLTH 
AP INFO 
APLACT 
APPCOF 
APPDI 
APPDIO 
APPFILDR 
APPFILUN 
APPFLG 
APPLINE 
APPLRECL 
APPLTH 
APPMODE 
APPOPEN 
APPREC 
APPRECNO 
APPSI 
APPSO 
APSACT 
APSFN 
APSFNAD 
APSFNID 
APSUFFIX 
APSUFLTH 
APSVCIIP 
APSVRCOD 
APSVREA 
APSVRET 
APUCRE 
APUCSP 
APUDRF 
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APUDSP 
APVCLS 
APVERA 
APVFLG1 
APVFLG2 
APVIN 
APVKEY 
APVKF 
APVLTH 
APVOPEN 
APVOPN 
APVOUT 
APVPOS 
APVR 
APVRU 
APVSAM 
APVSAMF 
APVUP 
APVWRT 
APVURTI 
APWEFLG 
APWLENG 
APWOFSET 
APWPTC 
APWSA 
APWVWS 
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APM (CICS, xXSYS) 


this is the request control block for authorization check in 4 
C1CS/VS. It is marped by the APLKAPM macro. ) 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 13 APM ACHK PARAMETER LIST | 
0 (0) BITSFRING 3 APMAMASK USER AUTHORIZATION MASK 
3 (3) BITSTRING 1 APNRELBY WHICH TABLE BYTE TO CHECK 
6 (42 BITSTRING 1 APMRESOR THE RESOURCE TYPE TO CHECK 
5 (5) CHARACTER 8 APMNANE THE RESOURCE NAME TO CHECK 


CROSS REFERENCE 


APM 09 (0) 
APMAMASK 0 ff) 
APPNATIE SB CS? ) 
APMRELBY a. “<3. 
APMRESOR 4 % } 
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ATW (CICS, AP) 


This is the CICS/VS executor user task TWA rapping area wirich 
contains register save areas and dispatch blocks for VS APL 
processes. Jt is mapped by the APLKATW macre. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


— ee eae eee eee — See eee 
i ee ee ee ee ee ee 


ABOVE FIELDS MUST REMAIN AT THE BEGINNING OF ATW, AD THEY 
ARE USED BY APLKWAIT, APLKEXIT, AND THE SS!4 REQUEST MAZROS. 


= aw ee ee ee eee eee ee eee eee eee 
=— eee eee eee eee eee ee 


PROGRAM CHECK SAVE AREA 
APLXBND DSECT=NO,P=ATB GENERATE XPEHD AREA 


— ee ee eee ee ee a a eee eee ee Se 
— ae eee i i ie ea eee Se eel meee ee 


THE FOLLOWING FIELDS ARE SET ONLY FOR PROGRAM CHECK 
TYPE ABENDS. THE AREAS ARE DEFINED FOR SYSTEM ABENDS 
BUT ARE NOT SET OR USED BY ABEND RECOV:RY SERVICES. 


=— woe eee eee ieee eee ee ese ei see ee 
Cn ee ee ee ee ee ee ee ee ee ee ee) 


THE FOLLOWING 16 WORDS ARE THE REGISTERS AT THE POIN}) 
OF THE PROGRAM CHECK, STORED FROM REGISTER 9 TO 15 


Ne ee ee ee ee ee ee _. _ ee 
— ewe ee ee eee ie eee ee eee oe 


Le el ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
eee eee eee eee ee eee oe 


wee ese ees ee ee =— ee ee eee ee eee eee = 
= ee ee eee ee eae ee ee eee eS sell ee ee ee ee 


= ee eee eee eee ee a ee 
=—_— ee eee eee ee eee 


DPD - DEPENDENT PROCESS DISPATCH ENTRY 

THE DPD'S ARE LOCATED IN THE TWA FOLLOWING THE ATH HEATER. 
ONE ENTRY IS USED FER PROCESS. THIS INCLUDES THE INTERPRETER 
INTERFACE PROCESS AND THE VARIOUS DEPENDENT AF PROCESSES. 

EACH ENTRY CONTAINS ALL INFORMATION REQUIRED TC RESUME EXECUTION 
OF THE PROCESS, AS WELL AS ABEND EXIT AND AP NUMBER DATA. 


On ee ee 


0 C(O) STRUCTURE 0 Dred | | | 
0 (0) HEX 1 OPDFLAG WS" SE FLEGS 
Ll... wee DPDFWALT "X"38OQ'™" THIS FRCCESS IS WAITING 
rn DPDFSING "X'G4O'™ WAITING ON A SINGLE ECB 
~-Ll. oc... DP DF APL "X'20'™ WAITING ON APL ECBCS) ONLY 
~l ov... DPDFSTS "XTLO'™ WAITING ON SYS CHON CICS) 
ECR(S) 
Vili... DP DFWALL "OP DFWALT+DPDFSING+DPDFAPL+DPDFSYS” 
ALL WAIT FLGS 
~-.e. Ll... DP DFXBX “A'O8'™" ABD EXIT NEEDS FULL BND 
wee eel. DPDFSTRI "X'02'" PROCESS BEING STARTED 
we lL DFDFACT "X*OL'™ THIS ETRY [5 ACTIVE 
1 C1) HEX 1 DPDHR RELATIVE DPD NUMBER 
2 (2) SIGNED 2 DPDOFFST OFFSET IN DAP TABLE OF A? KR 
4 (4) CHARACTER 8 DPDXIT AEEND EXIT INFORMATION 
4 (4) A~ ADDRESS G4 DPDOXADR EP TQ EXIT RGUTINE 
8 (8) SIGNED 4 DPDXPRIM PAFM TO PASS TO EXIT ROUTINE 
12 (C) A-ADDRESS G DPDWKA ADDR OF WORK AREA PASSED TO AP 
16 €10) CHARACTER 16 DPDECBL PTRS TO UP TO 46 ECBS, T USED FOR 
DEBUGGING 
32 C20) CHARACTER 64 DPDSAVE SAVE ALL PROCESS REGS 
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ATW (CICS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
32 (20) SIGNED 4 DPDPRO REG 0 
36 (24) SIGNED 4 DPDPREGC13) REGS 1 THRU 13 
88 (58) SIGNED 4 DPDPRIG REG 14 T 
92 (5¢C) SIGNED G4 DPDPR1S5 REG 15 T 
NOTE THAT REG 1 IS A POINTER TO THE ECBLIST. 
IF IT IS ZERO, THE PROCESS IS AYTOMATICALLY DISPATCHABLE. 
-ll. ... DPDLEN "4%-DPD"* LENGTH OF ONE DPD ENTRY 


CROSS REFERENCE 


DPD 
DPDECBL 
DPDFACT 
DPDFAPL 
DPDFLAG - 
DPDFSING 
DPDFS™RT 
DPDFSYS 
DPCFINAIT 
DPDFWALL. 
DPDFXBX 
DPDLEN 
DPDHR 
DPDOFFST 
DPDPREG 36 
DPDFRO 
DF DPR14¢ 
DPDFR15 
DPDSAVE 
DPDWKA 
DP DXADR 
DPDXIT 
DP DXPRM 


- 
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AP) 


This is the common executor services abend interface block for 
abend exits. 


TYPE 


LENGTH 


DESCRIPT 


It is mapped by the APLXBND macro. 


ION 


BITSTRING 
Diaa S- cies sbek 


oe ee ae ee 
BITSTRING 


BNDTYPE 
BNDPROG 
BNDSYS 


ABEND TY 
PROGR “4M 
SYSTEM A 
RESERVED 


PE BYTE 
CHECK INDICATOR 
BEND INDICATOR 


BITSTRING 
SIGNED 


BNDBCMKC 
BNDBCINT 


BC MODE 
BC MODE 


MASKS, KEY AND CMWP 
INTERRUPT CODE 


SIGNED 


— 


BNDPSWD2 


WORD TWO 


OF PSW 


eae @e eee we 2 SF Few eFZessZFZOFO ZT OF FTO FFF VFFTOwWMO Bess FFT FFF FFF Sess Fess ese F 2 2 we BF we wre F ee @ Ss | | j= ap ae ae 


A-ADDRESS 


— 


BNDECADR 


INTERRPUT ADDRES 


BITSTRING 
i eer 
soil 

eaea. dd 
A-ADDRESS 


BNDBCICP 
BNDBCILC 
BNDBCCC 

BNDBCMSK 
BNDBCADR 


FIRST BYTE OF WORD 2 
INSTURCTION LENGTH 
CONDITION CODE 
PROGRAM MASK 
INTERRUPT ADDRESS 


BND (XSYS, 
OFFSETS 

0 (0) 
0 (0) 
0 (0) 
1 C1) 
® (4) 
& (3) 
8 (3) 
8 (8) 
10 CA) 
12 (C) 
12 (CC) 
12 (C) 
13 (D) 
16 C10) 
16 (10) 
20 (149) 
24 (18) 
28 (1C) 
32 (20) 
36 (249) 
40 (28) 
44 (2C) 
48 C30) 
52 C34) 
56 (38) 
60 C3C) 
64% (40) 
68 0449) 


SIGNED 


— 


BNDREGD 


REGISTER 


License 
S 


13 AT PROGRAM CHECK 
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BND (xSYS, AP) continued 


OFFSETS TYPE LENGTH NAME | DESCRIPTION 
720 (48) SIGNED 4 BHDREGE REGISTER 14 AT PROGRAM CHECK 
76 (4C) SIGNED 4 BNDREGF REGISTER 15 AT PROGRAM CHECK 


CROSS REFERENCE 


BND 0 (0) 
BNDBCADR 13 6(D) 
BNDBCCC 12 X'30° 
_BHDBCICP 12 (C) 
BHDBCILC 12 X'CO’ 
BNDBCINT 10 CA) 
BNDBCHIKC 8 (8) 
BNDBCNSK 12 X'OF* 
BHDCODE 46 (4) 
BNDECADR 12 (C) 
BNDPROG 0 X’80" 
BNDPSW 8 (8) 
BHDPSND1 8 (8) 
BENDPSWD2 12 (C). 
BNDREGA 56 (38) 
BNDREGB 60 (3C) 
BNDREGC 64 (40) 
BHDREGD 68 (44) 
BNDREGE 72 (48) 
BNDREGF 76 (4C}3 
BNDREGS 16 (10) 
BNDREGO 16 (10) 
BNDREGI 20 (14) 
BNDREG2 24 (18) 
BHDREG3 28 (IC) 
BNDREGS 32 (20) 
BNDREGS 36 (24) 
BNDREG6 60 (28) 
BHDREG7 44 €2C) 
BNDREG8 48 (30) 
BHDREGS 52 (34) 
BNDSYS 0 rie 
(0) 


BNDTYPE 9 
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CIT (cics, 


SERV) 


This is the VSAM control interval trailer written by the CICS/VS 
executor library services and the CICS/VS service program. It is 
mapped by the APLKCIT macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 10 6CcITS 
0 (0) SIGNED 4 CITSBLOK SCROLL BLOCK SEQUENCE, NR OF 
& (4) SIGNED 2 CITSLINE HR OF LOGICAL LINES IN CI 
6 (6) SIGNED 2 CITSSEGH NR QF LINE SEGMENTS IN CI 
8 (8) SIGNED 2 CITSSEGL LENGTH USED FOR SEGN CALC 
0 (0) STRUCTURE G4 CITW SCROLL LINE DESCRIPTOR 
0 (0) SIGNED 2 CITWSEGN HR SCREEN SEGMENTS IN LINE 
2 (2) SIGNED 2 CITWOFFS OFFSET IN CI TO LINE DATA 
0 (0) STRUCTURE 2 CIT 
0 (0) CHARACTER G4 CITKEY FILE LOCATOR KEY 
0 (0) UNSIGNED 3 CITLIBNO LIBRARY NUMBER 
3 (3) CHARACTER 1 CITMBRA 
3 (3) CHARACTER 8 CITNEMBR MEMBER NAME 
3 (3) CHARACTER 8 CITCLHAM CLIST NANE 
11 (B) UNSIGNED 3 CITHILN HICHEST LINE NUMBER 
14 CE) BITSTRING 1 CITFTYPE FILE TYPE 
lili. RESERVED 
...-l i... CITCLNRD CLIST 15 NOREAD 
1... CITQBJ OBJECT PROGRAM 
-1.. RESERVED 
-i, CITRA RECORD ORIENTED 
~see eeel CITDIR DIRECT 
15 (F) CHARACTER 1 CITCATTR CONTENT ATTRIBUTE 
16 C€10) UNSIGNED 4 CITNRBA MEXT CONTROL INTERVAL RBA 
16 (10) A-ADDRESS G4 CITNEXT NEXT &K BLOCK ADDRESS 
20 (14) SIGNED 2 CITNLR MUMBER OF LOGICAL RECORDS 
22 (16) SIGNED 2 CITDLEN DATA LENGTH 
22 (16) A-ADDRESS 2 CITCLDSP DISP IN BLOCK [O NEXT iINE 
24 (18) CHARACTER 1 RESERVED 
25 (19) CHARACTER 7 CITVSAM VSEM CONTROL INFORMATION 
25 (19) UNSIGNED 3 CITVRDF VSAM RDF 
25 C19) BITSTRING 1 CITRDFF VSAM RDF FLAG BYTE 
26 C1A) SIGNED 2 CITRECL VSAM RECORD LENGTH 
28 (10) UNSIGNED G CITVCIDF VSAM CIDF 
28 (1C) A-ADDRESS 2 CITCIFSD CONTROL INTERVAL FREE SPACE 
DISPLACENENT 
30 C1E) SIGNED 2@ CITCIFSL CONTROL INTERVAL FREE SPACE LENGTH 
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CROSS REFERENCE 


CIT 
CITCATTR 
CITCIFSD 
CITCIFSL 
CITCLDSP 
CITCLNAM 
CITCLNRD 
CITDIR 
CITDLEN 
CITFTYPE 
CITHILN 
CITKEY 
CITLIBNO 
CITMBRA 
CITMEMBR 
CITNEXT 
CITNLR 
CITNRBA 
CITOBJ 
CITRDFF 
CITRECL 
CITRO 
CITS 
CITSBLOK 
CITSLINE 
CITSSEGL 
CITSSEGN 
CITVCIDF 
CITVRDF 
CITVSAM 
CITW 
CITWOFFS 
CITWSEGN 
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CMSGL (CHS, XSYS, AP) 


This is the CMS executor global table mapping. For a more 
detailed description, see "Executor Data Areas." It is mapped by 
the APLCMSGL macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 C0) STRUCTURE 0 CMSGL 
0 (0) FLOATING 8 PTH 


THE PERTERM HEADER PROVIDES INFORMATION ABOUT THE ACTIVE 
USER WITH REGARD TO THE SYSTEM ENVIRONMENT, AND COMPLETES 


0 (0) SIGNED 4 PTHWORDI 
0 (0) HEX 1 PTHASYNC 
ree PTHDATIN "X80", DOUBLE-ATTENTION 
SIGNALLED 
. ee PTHQEND "X'GO'" QUANTUM-END REQUESTED 
oie ee PTHCPULM wXx'O0"" CPU LIMIT EXCEEDED. 
E ooh PTHNOOUT "X04" "CANCEL OUTPUT’ SIGNAL 
RECEIVED. 
sitews wale PTHFOFF "X'Q2" LINE-DROP OR BOUNCE 
eee ed PTHATTN "X'OL'™. SINGLE ATTENTION 
SIGNALLED 
1 (1) HEX 1 (2) RESERVED 
3 (3) HEX 1 PTHSUSPL SUPERVISOR SUSPENSION BITS 
Vee aehets PTHCWBIT "x'8O'", CLOCK WAIT BIT 
0. Gone PTHWABIT "X40". YYWATE BIT 
i eer PTHSVBIT X'20'". SH. VAR, WAIT BIT __ 
PTHNSTAT HOLDS THE PROCESSING STATE OF THIS WS 
4 (4) HEX 1 PTHWSTAT 
15 waste PTHSVON "xr80'". THIS USER SIGNED ON TO 
VP 
1. PTHSINK "X'Q2"™, THIS IS A COPY SINK 
ee i ____PTHSORS "X'OL"™. THIS IS A COPY SOURCE 
PTHUSTAT RECALLS THINGS WE'RE DOING FOR OR TO THIS USER 
5 (5) HEX 1 PTHUSTAT 
ie, pate, PTHLOCKB "x'gO"", WE KEEP HIS KBD LOCKED 
a Lee cee PTHMDY "X'GO"™. DATE FORMAT FLAG 
PTHMDY=L="MM/DDVYY® EEE 
PTHMDY=0="DD-MM-YY" 
i PTHMSBLK "X20", WE BLOCK HIS MESSAGES 
ie aro PTHMICRO "xr10". APL MICROCODE WILL BE 
tase PTHFSAVL "xr 0gt RESERVED FOR FULLSCREEN 
eee hee PTHUEXTN "X'04'™ PTH EXTENSION (PTX) EXISTS 
PTHQVAR IS THE MAXIMUM NUMBER OF VARIABLES HE MAY SHARE 
6 (6) SIGNED 2 PTHQVAR 


PTHYYCOD CONTAINS THE YYCODE OF THE LAST SVCC ISSUED 
PTHSRCOD CONTAINS THE RETURN CODE THAT RESULTED. 


8 (8) SIGNED 4 PTHYYRC 
8 (8) SIGNED 2 PTHYYCOD 
Ls oe aieteus PTHSPCLY "X'380""HI-ORDER BIT ON IF 
"SPECIAL" YYCODE 
10 CA) SIGNED 2 PTHSRCOD 
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CMSGL (CMS, XSYS, AP) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 


a eee eee eee ee ee es eee es ee ee ee ees es es es ees eee eee ee eee eee eee ee eee ie eee i 


12 CC) SIGNED 2 RESERVED 
1% CE) SIGNED 2 PTHWIDTH 


PTHCURSR IS THE TYPEBALL POSITION RESULTING FROM THE LAST 
TYO OR TYI. PTHCURSR=0=*AT THE LEFT MARGIN’. 


16 (10) SIGNED 2 RESERVED 
18 (12) SIGNED 2 PTHCURSR 

PTHQSIZE IS THE MAXIMUM SIZE A SHARED VARIABLE MAY OBTAIN 
20 C14) SIGNED G4 PTHQSIZE 


PTHPARM1, PTHPARM2 ARE RETURN PARAMETER FIELDS FOR 
SOME SVCC FUNCTIONS. 


24 C18) FLOATING 8 
"ae eda) signed ; prupaRM]. 
28, (102 SEGNED 4 PTHPARN se ccecceeecerseceeeerssueecesesss 
PTMUSLEN CONTAINS THE SIZE OF THE US ADDRESS SPACE. 
=232__ (20) SYGNED 6 PTHWSLEN ss ceeeeceeeeeecerceuceeeeesess 
PTHACGNO CONTAINS THE BINARY ACCOUNT NUMBER OF THIS USER 
“Seay sreneD ; pTHACCND..~SSsSSS 


TIME FIELDS: ALL ARE IN APL-STANDARD TIME FORMAT 
IE A FLOATING POINT NUMBER OF MICROSECONDS, 
POSSIBLY FRACTIONAL. TIME-OF-DAY VALUES 
ARE FROM THE BEGINNING OF THE APL EPOCH. 
INTERVALS ARE SIMPLY MICROSECOND COUNTS. 

PTHLOCAL IS THE OFFSET OF THIS USER FROM GMT. 

PTHCPUTM IS THE CPU TIME THIS SESSION. 

PTHKEYTM IS THE UNLOCKED-KBD TIME THIS SESSION. 

PTHCNCTM IS THE DATE/TIME HE SIGNED ON. 


40 (28) FLOATING 8 
40 (28) FLOATING 8 PTHLOCAL  — 
48 ~=«(30) FLOATING | 8 PTHCPUIM 
56 (38) FLOATING 8 PTHKEYIM 
64 «€40) FLOATING 8 PTHCNCTM 
______-- 2 tits test i. PTHSIZE ______- WeTPTHN SIZE OF _PERTERM HEADER. ___ 
APLXXPTX DSECT=NO)0 EEO 
72 «€48) FLOATING B PIX PERTERM EXTENSION FOR EXECUTOR 
COMMON SERVICES 
72 (48) ACADDRESS 4 PTXWSM ADDR OF ACTIVE WORKSPACE =———~™” 
76 +(4C) A-ADDRESS ¢ PIXVCT ADDR OF VECTOR TABLE  ~—> 
80 (50) A-ADDRESS G PIXSTACK ADDR OF SP STACK i (ai‘Cé‘;~™S 
84 (54) A-ADDRESS 4 ~=SO~PTXSMTBP)™” ADDR OF SESSION TABLE =———~— 
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Ne 


CMHSGL (CHS, 


XSYS, AP) continued 


TYPE 


LENGTH NAME 


DESCRIPTION 


a ee ee eee eee eee eee ee eee eae eee eee eee a ee eee 


A-ADDRESS 
A-ADDRESS 


PTXGXGDM 
PTXPRTBP 


ADDR OF CURRENT GDM 
ADDR OF PRINT SERVICES TABLE 


_— oe ee ee ae ee ieee ee ee ee eee ee ee eee eee eee ee eee ere eee eee eee eee 


oe ees ee eee eee ee eee a eee eee eee eee ee eee ee 


PTXSUBSY 
PTXTSO 
PTXCHS 
PTXCECS 
PTXVOPC 
FTXDEBUG 
DBGMICRO 


PBGNSTAE 
DBGECHO 
DRGMSG 
PTXFLASS 
PIXATPUR 
PTXFSRST 


PTXADSM 


SUBSYSTEM FLAGS 

"X*80'™" THIS IS A TSO USER 
"X'G4O"'™" THIS IS A CMS USER 
"X'20'" THIS IS A CICS USER 
"X'10°" THIS IS A VSPC USER 
VARIOUS DEBUG OPTIONS 

"X"'80'" DEBUG CANCEL MICROCODE 
TEST DEBUG 

"X'GO"'™ DEBUG CANCEL ESTAE EXITS 
DEBUG 

"X'O2°'" DEBUG ECHO STACK (CMD 
PARM) DEBUG 

"X'OL'™ DEBUG ERROR MESSAGES DEBUG 
GENERAL USE FLAGS 

"X"80"'" PURGE THE ALTERNATE INPUT 
STACK 

"X'G0'™" FULLSCREEN RESTORE 
REQUIRED 

"X'O8"'" ADSM OWNS THE SESSION 
RESERVED 


wee ee ees ee eee eee ee ee eee ee ee eee eee ee eee ee 


= ee ee ee eee eee ee ee ee eee ee ee eee ee ee 


OFFSETS 

88 (58) 
92 (5C) 
96 (60) 
190 (64) 
104 (68) 
108 (6C) 
108 (6C) 
109 (6D) 
119 (6B) 
111  (6F) 
112. (70) 
116 (74) 
120 (78) 


COMMON LIOPRK 


AREA, USED FOR/BY ACSM AND IS 
IS AVAILABLE FOR QTHER USERS AS A SCRATCH 
C 


oe ee eee ee ee ee ee eae ee eee es ee eee ee eee a ee eee ee ee ee 


=e ee ee eee ee eee ee eee ee eee ee eee ee eee ee ae ee 


Ce ee ee! 


be tie ta Re i i in le ee ee ee ee eee ee ee ee 


= ee a ee ee eee ee ee eee a ee ae ees a eee oe eee ee ee eee ee a eee eS 


124 7C) CHARACTER 28 PTXSCRTH 
124 (70) CHARACTER 8 PTXSMPSD 
124 (70) CHARACTER 8 PTXSMP&O 
12¢ (70) A-ADPRESS G4 PITXSMP 
“128 (80) A-ADDRESS 4 FIXSMP2 
“132 (84) A-ADDRESS =) PTXSIPS 
136 (88) A-ADDRESS & PTXSMP4 
140 (8C) A-ADDRESS G4 PIXSMES 
144 (90) A-ADDRESS G PIXSMPG 
148 (94) A-ADDRESS G4 PITXSMP? 
152 (98) SIGNED G4 PYXHILit 


1D,11,00,F0 
SF,OUT-ATTR,IN-ATTR,FLAGS HILITE 
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CHSGL (CMS, XSYS, AP) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION } 
152 €98) HEX 1 PTXHISF START FIELD 3270 ORDER HILITE 
153 €99) HEX 1 PTXHIAOT OUTPUT ATTRIBUTE BYTE HILITE 
154 C9A) HEX 1 PTXHIIOT INPUT ATTRIBUTE BYTE HILITE 
155 C9B) HEX 1 PTXHIFLG FLAGS COUTPUT,INPUT HILITE) HILITE 
1.. . PTXHIOHI "x'go'™ QUTPUT HILITING REQUESTED 
HILITE 
wl. PTXHIIHI "X'GO0'™ INPUT HILITING REQUESTED 
HILITE 
156 €9C) A-ADDRESS G4 PTXHELPQ ADDRESS OF MESSAGE QUEING RTN 
160 CA0) A-ADDRESS 4 PTXUSRWA ADDR OF INST EXIT WORK AREA 
164 CAG) SIGNED G PTXRSVO1 RESERVED 
168 CA8) SIGNED G4 PTXRSVO2 RESERVED 
172 CAC) SIGNED G PTXRSVO3 RESERVED 
176 (BO) SIGNED G4 PTXRSV04 RESERVED \ 
1.11 .1. PTXEND "x" END OF THE PTX ) 
~l1. 11. PTXLEN "x¥-PTX" SET THE LENGTH OF THE PTX 


ee ee ee ee ee ee ee ee 2 ee ee ee 2 ee ee ein nile 
ee ee ee ee ee ee eee ee ee ee ee es 2 


THE CMS GLOBAL TABLE DEFINES 
IN THE CURRENT MACHINE 


NEXT 4 WORDS WILL NEVER BE USED BY VS APL 
HOWEVER, OFFSET MAY CHANGE DUE TO PTH,PTX ETC. ABOVE 


192 (CO) SIGNED 4 CMSUSERD AND NOW, J 
196 «4(C4) SIGNED” 4 CMSUSER1 = A FEWWORDS = 

200 (C8) SIGNED 4 CMSUSER2 TO OUR SPONSOR... = t—(<‘:SC~S™ 

204 (CC) SIGNED 4 CMSUSERS eee 

NEXT 8 WORDS RESERVED FOR IBM USE WITH OPTIONAL FEATURES = ~~ 

208 «(D0) SIGNED ¢ IBMOPTL =) 
(212 (D4) SIGNED” 4 IBMOPT2 0 

(216 (D8) SIGNED 4 IBMOPT3 = = 3 
220. (DC) SIGNED 4 IBMOPTG 

(224 «(E0) SIGNED — 4 IBMOPT5 
228 «#4(E4) SIGNED 4 IBMOPT6 

232 (E8) SIGNED ¢@ IBMOPT7) 8 

236 CEC) SIGNED 4 IBMOPTS 
240 (FO) FLOATING 8 CMSDIAGO | CP EXTENDED IDENTIFICATION —~> 
240 (FO) CHARACTER 8 CMSDSYS > SYSTEM NAME C'VM7370")) st” 
248 (F8) HEX  ~=~«<3 +~«CMSDVERS™” VERSION, LEVEL, PLO =t—<“i‘CO 

251 (FB) HEX 1 CMSDCODE STIDP 
252 (FC) HEX —™SW 20 MCEL 

254 (FE). HEX 2 STAP 
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CMSGL (CMS, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 

256 (€100) CHARACTER & CMSDUSER USERID 

264 (108) HEX CMSDPP PP BIT MAP 

272 (110) A-ADDRESS 4 CMSSOPT ACOPTIONS) MAPPER BY APULSOCS 


—_ ee eee ai eee eee ee 
ee ee eee eee ee eee eee ee ee el er 


— ee ee ee ee ee eee eee eee ee ee ee eee ee eee ee eee 


280 (¢€118) SIGNED 4 CMSMAXWS MAXIMUM ALLOWED WS SIZE. “SEE 
PTHWSLEN FOR CURR SIZE) 


28% (LLC)? HEX 24 CMSAWSID ACTIVE WSiD. 
284 (11C) SIGNED & CMSALIB LIB NUMBER 
288 €120) CHARACTER 12 CMSANAM WS NAME (Z-CODES) 
300 (12C) CHARACTER 8 CMSAPAS PASSWORD FROM LAST )SAVE OF 21400. 
308 (€134) HEX 24 CMSAVACT SAVE ACTIVE WSID THRU )CCFY OR 
UISID. 
332 (140) SIGNED G  CMSRSOLF(3) RESERVED 
LIBRARY MANAGEMENT PARAMETERS AND CONTROL FIELDS 
344 (158) HEX 1 CMSLIBEL LIBRARY MOMT FLAGS. 
Li... eee CMSNOLIB "BITO" LIBRARY TABLE IS EMPTY: - N94 
PUBLIC OF PROJECT LIBS. 
7: CMSPRIVT "BITL™ =L1 IF CURPENT LIB OF CRAITON 
ACCESSES PRIVATE LIB. =9 IF PUBLIC 
OR PROJECT. 
Le vee, CMSPUBLC VBIT2" CUSED ONLY IF LIBPRIV°=5.) 


-1 IF CURR LIB OP IS FOR PUBLIC 
LIB. =O IF CURR LIB IS P&OJcCT. 


-lo.... CMSOcCCWS “"BIT3" DURING JSAVE, WS EXISTS IN 
~LEBRARY BEFCRE SAVE. 
-l CMSLTPTH “BITZ™ =1 TF DEFAULT LIB 
CPTFACCNOQ) IS IN LIB TABLE 
345 (1593 HEX 1 CMSYYL&t FLAGS FOR YYLIB HANDLING. 
bee eee CMSTYLNT "BITO™ STORAGE GOTTEN FOR FILENAME 


MAME TABLE. CALSO MEANS, IF = 1, 
THAT YYLIB HAS BEEN REISSUED 
BECAUSE OF OVERFLOW OF LISMIEUFF OR 
NéME TABLE ON FREVIOUS YYLIB.) 


i. CMSYYLNO "BITL” NAME TASLE HAS OVERFLOVEC. 
CTHERE ARE MORE QUALIFIED WS NAMES 
FOUND THAN THERE ARE TABLE 
ENTRIES.) 

-l. wee. CMSYYLBO "BIT2" WSMBUFF OVERFLOWED. CWE 


COULDN'? FIT ALL FILENAMES IN NAME 
TABLE INTO WSMSUFF. > 
346 (C15A) HEX 1 CMSRSO2XC2) RESERVED 


348 (€15C) SIGNED G@ CMSLIBXL NEXT 3 WORDS MUST BE CONTIGUOUS. 
~-l. 11.. CMSLTL "a qM SIZE OF LIBRARY TABLE ENTRY. 
348 (€15C) A-ADDRESS & CMSLTADR ADDRESS OF LIBRARY TABLE. DEFAULTS 


TO ACCMSLIBTB). 
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OFFSETS TYPE LEHGTH NAME DESCRIPTION J 
352 (160) A-ADDRESS G4 CMSLTLF WORD CONTAINING CMSLTL 
356 (164) SIGNED 4 CMSLTS1I2 NUMBER OF LIB TABLE ENTRIES IN 


USE, TIMES CMSLTL. 


FOLLOWING EQUATES DEFINE FORMAT OF ENTRY IN INCORE 
LIBRARY TABLE. 


wee wee CMSLTFLG "Q" OFFSET TO FLAG FIELD (1 BYTE) 
| re CMSLTPRV “BITO" =O IF LIB IS PUBLIC OR 
PROJECT =l IF LIB IS PRIVATE 
i orn CMSLTPRJ "BIT1" =0 IF LIB IS PUBLIC. 
=1 IF LIB IS PROJECT. 
oe rr CMSLTRNG "BIT2™" =0 IF SINGLE LIB NUMBER. 
=1 IF RANGE OF LIB NUMBERS. 
-l o.... CMSLTACC "BITS" =Q IF DYNAMICALLY LINKED 
DISK =1 IF PERMANENT ACCESS 
ol CMSLTDSK "),3" OWHER DISK ADDRESS, IN 
EBCDIC. BLANKS IF NOT 
USED. THREE BYTES. J 
wll CMSLTDSL "3" LENGTH OF DISK ADDR. 
a on CMSLTOLIN "4,8" OWNER USERID, IN EBCDIC. 
BLANKS IF HOT USED. 8 
BYTES 
1.. CMSLTOWL "A" LENGTH OF OWNER'S USERID. 
11. CMSLTLMO "12,2" WRITE LINK MODE FOR DISK. 
~... Lill. CMSLTANO "14,2" ACCESS MODE FOR DISK 
~-l we... CMSLILBI "16,4" LIB NUMBER, OR LOWER LIMIT 
OF LIB NUMBER RANGE. 
FULLWRD INTEGER. 
.3 21 CMSLTLB2 "20,4" UPPER LIMIT OF RANGE OF 
LIB NUMBERS. FULLWORD 
INTEGER. USED OHLY IF ) 
CMSLTFLG.CMSLTRNG=1. 
-li1... CMSLTCUU "29,4" LINKED ADDRESS ‘Cuy ' 
».el 1l.. CMSLTLC "28,4" TOTAL LINK COUNT 
a ra CMSLTWC "32,4" WRITE LINK COUNT 
1. .1.. CMSLTRPK "36,8" READ PASSVIORD 


DATEZTIME WORKSPACE WAS SAVED, TO BE RETURNED TO INTERP. 
VIA PDSPASS. 


WORK AREA FOR BUILDING PARMLISTS 
USED FOR CP + CMS COMMANDS, FID ) 
MAY BE USED BY ANY MODULE BETWEEN APLYALL'S 
APLSCFID WILL NOT USE THIS AREA 


ee ee ee eee ee eee ee ee ee ee eee eee eee ee eee ee ee ee ee 


WORK AREAS FOR BUILDING FSCB'S. 
CMSFSCB1 FSCB "FILENAME FILETYPE FM',RECFM=F,NOREC=1,BSIZE-4096 


696 (1F0) SIGNED G4 CMSFSCB1 
496 (1FO) CHARACTER BT 
504 (1F8) CHARACTER) 8 
(512 (200) CHARACTER BO 
520 (208) CHARACTER 2 
S22 (20A) A-ADDRESS c 
524 (200) A-ADDRESS 4 
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OFFSETS TYPE LENGTH NAHE DESCRIPTIGN 
“528 (210) SIGNED EE 
532. (214) CHARACTER. 2 
534 (216) A-ADDRESS 2 
536 (218) A-ADDRESS 4 
540 (21C) SIGNED 4 (4) ADDITIONAL SPACE FOR FORM=EFSCBS 


(4) 
CMSFSCBL "*¥-CMSFSCB1" LENGTH OF FSCB. 


SECOND FSCB USED ONLY BY SCOPY FOR WORK FILE 
CMSFSCB2 FSCB ‘FILENAME FILETYPE FM‘,RECFM=F,NOREC=1,BSIZE=1026 


556 (22C) SIGNED G CMSFSCB2 
556 (22C) CHARACTER 8 
564 (234) CHARACTER 8 
572 (23C) CHARACTER 8 
580 (€244) CHARACTER 2 
582 (246) A-ADDRESS 2 
584 (248) A-ADDRESS 4 
588 (24C) SIGNED 4 
592 (250) CHARACTER 2 
594 (252) A-ADDRESS 2 
596 (254) A-ADDRESS 4 
600 (258) SIGNED G (4) CAS ABOVE FOR FORM=E) 
THE FOLLOWING GROUP OF FIELDS IS USED BY YYLIB. 
616 (268) A-ADDRESS G CMSNTPTR ADDR OF NAME TABLE FOR YYLIB 
620 (26C) SIGNED G CMSNTSIZ SIZE OF NAME TABLE CDBLWORDS 
624 (270) A-ADDRESS 4 CMSNTZ ADDR OF END OF NAME TABLE. 
628 (274) SIGNED G CMSYYLNP NUMBER OF ENTRIES IN NAME TABLE 
THAT HAVE NOT YET BEEN PUT INTO 
WSMBUFE TO BE PRINTED. 
632 (278) A-ADDRESS 4  CMSNTHI ADDR OF NEXT AVAILABLE ENTRY IN 
NAME TABLE. | 
636 (€27C) CHARACTER 11 CMSYYLNL CURRENT NAME, INCLUDING SUFFIX OF 
3 BLANKS, FOR COMPARISON TO 
PDSNAME. 
636 (27C) CHARACTER 8 CMSYYLNN NEW NAME, AS OBTAINED FROM FST AND 
TRANSLATED TO 2-CODES. 
644 (284) CHARACTER 3 CMSYYLNS NAME SUFFIX FOR CMSYYLNN CTHREE 
: ZBLANKS). 
647 (287) CHARACTER 1 CMSLIBMD . ACCESS MODE FOR ANY LIB REQUEST 
648 (288) CHARACTER 8 CMSNTONM NAME TABLE OVERFLOW NAME. THIS IS 


THE LOWEST ALPHABETIC NAME WHICH 
WAS NOT PUT INTO THE NAME TABLE, 
DUE TO OVERFLOW. ALL NAMES IN THE 
TABLE ARE LOWER THAN THIS. 
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656 (€290) SIGNED 4 CMSCOPSA NUMBER OF RECORDS IN SINKWS FILE 
USED TO SAVE AREA BETWEEN (1) 
BEGINNING OF WS AND (2) SPOT 
POINTED TO BY WSMFREEA. CPART A.) 

660 (€294) SIGNED 4 CMSCOPSB NUMBER OF RECORDS IN SINKUWS FILE 
USED TO SAVE AREA BETWEEN (1) SPOT 
POINTED TO BY WSMFREEZ AND (2) END 
OF WORKSPACE. CPART B.) 


664 (298) A-ADDRESS 4 CMSCOPSZ ADDRESS OF SPOT IN WORKSPACE AREA 
WHERE PART B OF SINKWS FILE 
STARTS. 

668 (€29C) SIGNED 4 CMSAVSIZ SAVE SIZE OF ACTIVE CSINK) WS HERE 
WHILE SOURCE IS LOADED. 

672 (2A0) SIGNED G CMSICTR COUNT OF RECORDS READ FROM 
COPYDATA FILE. 

676 (€2A%) SIGNED G4 CMSOCTR COUNT OF RECORDS WRITTEN TO 
COPYDATA FILE. 

680 (€2A8) SIGNED G4 CMSIREC RECNO PARAMETER FOR NEXT FSREAD OF 
COPYDATA FILE 

684 (C2AC) SIGNED 4 CMSOREC RECNO PARAMETER FOR NEXT FSWRITE 
OF COPYDATA FILE. 

688 (280) SIGNED 2 CMSCOPLL SAVE LENGTH OF COPIED- OBJECTS 
LIST HERE. 

690 C2B2) SIGNED 2 CMSNKMOD MODE OF SINKWS FILE IS SAVED HERE. 


FIELDS USED DURING )SAVE FOR MANIPULATION OF 
TEMPORARY UWS FILE. 


616 (268) CHARACTER & CMSNTYPE SAVE FILETYPE OF SAVED WS. 

“62a (270) FLOATING. -8SSC~S~S~S ARMS FOR RENAME OF SAVED WS. 
“624 (270) CHARACTER 8 CMSRENAM RENAME’, =S™C*~<“‘=*s*‘“‘“‘~*s~*S 
632 C278) CHARACTER 8 CHSOLDN GLb Fitename. SS™C~S~SCS 
“640 (280) CHARACTER 8 CHSOLDT. cip Filervre. SC~C~C~CSSCS 
“64a (288) CHARACTER 2 CHSOLDM] OLD FIrenopE crest 2cuaRs) 
650 (¢€28A) CHARACTER 6 CMSOLDM2 OLD FILEMODE CLAST 6 CHARS) 

656 (290) CHARACTER 8 CHSNEWN NEW FILENAME. 
“664 (208) cHaRAGTER 8 CHSNENT New FILETYPE, 
“672 (2A0) CHARACTER 2 CHSNEWM] ~NEW FILEMODE (riRsT 2 CHARS) 
674 C2A2) CHARACTER 6 CMSNENM2 NEW FILEMODE CLAST 6 CHARS) 

“ea0. cans) HEX 8 cHSRENZ -END OF PARMS (HEX FYS) 
692. (204) SIGNED. ______ 4 _OMSRSOSF(4)_ RESERVED sec eccccees 
PROGRAM MANAGEMENT. SSS 
ADDRESS OF APLMAIN MODULE. 

"70a (ace) A-ADDRESS 4 GNSAMAIN. ~SOSSSCSCSC~C~<;S<ST 
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712 (€2C8) SIGNED 4 CMSAVE THREE SAVE AREAS 
CMSAVEZ ; "x" MARKS END OF SAVE AREAS. 

928 (3A0) A-ADDRESS 4 CMSAVEZP ADDR OF END OF SAVE AREAS. 

~l.. Ll... CMSBMPSV "18*4" TO BUMP TO NEXT SAVE AREA. 
932 C3A%) HEX 1 CMSPGMFL PROGRAM MANAGEMENT FLAGS. 

Ll... wee CMSHRSYS "BITO™ =1 IF THIS IS SHARED APL 

SYS 
-l.. 1... CMSINSVP "BITi™ =1 IF PROGRAM CONTROL HAS 


BEEN GIVEN TO THE SVP CWHICH IN 
TURN GIVES CONTROL TO AN AP). 

-1. .... CMSCOPER “BIT2™" SYSTEM ERROR OCCURRED WHILE 
IN COPY STATUS. SET BY YYSYSER, 
CHECKED BY YYCOPZ. 


1... CMSABEX errors =1 IF COMIMON STAE EXIT 
EXIST 
wl... CMSCSUB "BIT5™ =1 IF CMS CMDS MUST BE 
SUBSET 
1. CMSBSEPP "BIT6™ =1 IF SYSTEM IS BSEPP 
wees weal CMSVMSP "BIT7™ =1 IF SYSTEM IS VM/SP 
933 C3A5) HEX 1 CMSRSO04X% RESERVED 


CMSASTOP WILL CONTAIN A "BCR' INSTRUCTION WHEN IT IS 

NECESSARY TO STOP THE VIRTUAL MACHINE CVIA ADSTOP) ON 
INTERPRETER SYSTEM ERRORS OR SUPERVISOR ABENDS. 

934 (C3A6) SIGNED 2 CMSASTOP SEE COMMENT ABOVE. 


nw eee eae eee ee eee eer et Oe eee eee er eer ere ee ee ee eee Oe ee ee eer ee eee ee ae ee Pe es ee eee 
mee ee ee eee se eee ee eee ee ee eee eee ee eee ee ee 


LIST FORM OF STAE MACRO GOES HERE. 
CMSTAE STAE ,MF=L,PURGE=QUIESCE, ASYNCH=NO 


936 (€3A8) A-ADDRESS 1 CMSTAE FLAGS FOR TCB, PURGE AND ASYNCH 
937 C3A9) A-ADDRESS 3 EXIT ADDR. NOT SPECIFIED 
940 ¢3AC) A-ADDRESS 4 PARM. LIST ADDR. NOT SPECIFIED 
944 (3B0) A-ADDRESS 4 TCB NOT SPECIFIED 
wee. TL,. CMSTAEL "%-CMSTAE’ LENGTH OF STAE LIST 
FORM. 


THIS IS THE ECB AND ASSOCIATED FLAGS USED WHEN 
PUTTING THE APL PROGRAM TO SLEEP ON YYDELAY AND YYRWAIT. 
956 C3BC) SIGNED 4 CMSECB THE WAIT ECB. 
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OFFSETS TYPE LENGTH NAME ; DESCRIPTION 
960 (¢3C0) HEX 1 CMSWAITF SHOWS WHY WE ARE WAITING ON 
CMSECB. 
L S.e. ears WAITRPLY "BITO™ WAITING FOR ATTENTION TO 
UNLOCK KEYBOARD AFTER SENDING 
MESSAGE. 
aS ee ee WAITIMER "BIT1™" WAITING FOR ATTENTION OR 
TIMER POP FOR YYDELAY. 
rere CMSTIMEP “BIT2" INSPECTED BY YYDELAY AFTER 


FALLING QUT OF WAIT MACRO. =1 IF 
TIMER EXIT POSTED ECB. =0 IF ATTN 
EXIT POSTED ECB. 


op ere CMSVWAIT "BITS" WAITING FOR DOUBLE ATTN TO 
BREAK SHARED VARIABLE DEADLOCK. 
CMSMINDL "1000000" MINIMUM WAIT TIME FOR 


YYDELAY, IN MICROSECONDS. 


ee ee ee eee a a ea a a a a Le a ee ee Le ee ee, ee ee ee ee ee Le ee ee ee ee ee ee ee ee ee ee 
ee ee i i re ic re Ri A i ct a te ce NR ie ee eed 


CMSENDRT CONTAINS THE ADDRESS OF THE APL TERMINATION 
ROUTINE IN MODULE APLSCINI. IT IS CALLED BY YYOFF. 


CMSPSTIM TS WHERE CP PUTS THE THE RESULT OF THE PSEUDO 
TIMER DIAGNOSE INSTRUCTION. THIS FOR THE YYDUMP SERVICE 


968 (308) FLOATING 8 CMSPSTIM(4) DIAG 00C NEEDS 4 DOUBLE 

968 (€3C8&) CHARACTER 16 CMSPSDT MM/DD/YYHH:MM:SS CEXACTLY) 

968 (3C8) CHARACTER & CMSPDATE PSEUDO DATE 

976 €3D0) CHARACTER 8 CNSPTIME PSEUDO TIME 

984 ¢€3D8) FLOATING 8 CMNSPVIRT VIRTUAL CPU TIME USED SINCE LOGON, 
IN ee eee UNSIGNED 64-BIT 
INTEGER. 

992 (C€3E0) FLOATING 8 IGNORED. SEE VM MANUAL 


mae SS eS eee eee ee eer er ere eee ee eee ee eee er eee eer eer eer eee ae eee ee eee ete eae eee eet th eee eee eer SE ee ee eee ee 
=e ee SSS Se eee eS eS SE eS et Ste See SE Se Se St eS SS SS eT ee ee at eee eee eee ere eee ae eer ee eee eee es eee eee ee 


CMSDMPNO CONTAINS THE DUMP NUMBER THAT [IS PUT INTO SYSTEM 
ERROR MESSAGES BY THE INTERPRETER. IT IS RETURNED BY 


1000 (3E8) SIGNED 4 CMSDMPNO SEE ABOVE. 
1004 (3EC) SIGNED 4 CMSRSO5F(4) RESERVED 
TERMINAL MANAGEMENT. 2 3=———— ESSE 
1020 (3FC) HEX 1 CMSIDLSW =ENL IF IDLES REQ'D, ELSE 0. 
1021 C3FD) HEX 1 CMSNLSW =ENL IF NEW-LINE SEEN, ELSE X'00°. 
USED FOR WSMPARM2 CHECK ON YYTYO. 
1022 (3FE) HEX 1 CMSFLAGS TERMINAL MANAGEMENT FLAGS 
fe eee CMSSEGZ "BITO" SEGMENT IS LAST ONE IN 
CMSBF 
. er CMSRELAG *"BITL™ READING FROM TERMINAL 
Ce CMSTYOI "BIT2" TYO CALLED FROM TYOI 
oe eas CMSLAST "BIT3™ FINAL TYO OUTPUT 
ee ces CMSOUT "BIT4" O-U-T SIGNALLED ON DISPLAY 
TERMINAL . 
Aen CMSNLREQ “BIT5" ON YYTYO FOR DISPLAY TERM, 


INPUT PARM SAYS NEW-LINE CHAR MUST 
BE AT END OF OUTPUT. 


a CMSQUIET "BIT6" RUNNING WITHOUT A TERMINAL 
aod CMSDSMAV “BIT7" DISPLAY SESSION MG 
AVAILABLE 
chee: Lath CMS3270W "79" DEFAULT WIDTH IF 3270. 
Re bo le eee CMS2741W "120" DEFAULT WIDTH IF 2741 OR 


OTHER TYPEWRITER TERMINAL. 
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CMSBUFF POINTERS. USED DURING TYO TO KEEP TRACK OF . 
WHAT HAS BEEN PUT IN CMSBUFF. : 


1024 (400) A-ADDRESS 4 CMSBFLIN BEGINNING OF CURRENT LINE IN 
So CNSBUFF CTYPEWRITER ONLY) 
CMSHELD "CMSBFLIN" FOR DISPLAY TERMINALS, 


. CONTAINS LENGTH OF DATA HELD FROM 
PREVIOUS YYTYO. 


1628 (404) A-ADDRESS 4 CMSBFSEG BEGINNING OF CURRENT SEGMENT IN 
CMSBUFF. CFOR TYPEWRITER TERMINAL 
ONLY.) ; 
CMSINBUF "CMSBFSEG" LENGTH OF INPUT BUFFER 


FOR DISPLAY TERMINAL (=135 IF 
USING 3270). 


1032 (€408) SIGNED 4 CMSXPLST WRTERM PLIST USED BY ATTENTION 
CSTAX) EXIT. 


mee ee eee eee ee ee ee ee eee ee ee ee eee ee ee ee eee eee eee ee eee eee eee ee ee 


©9032 (€408) CHARACTER 8 
i040 (€410) HEX 1 UNUSED HISTORIC BIT. 
1041 (411) A-ADDRESS 3  CMSXADDR OUTPUT ADDRESS. 
~044 (414) CHARACTER 1 BLACK RIBBON. 
1045 €415) HEX 1 LONG WRITE. EDIT=NQ. 
3046 (416) SIGNED 2 CMSXLGTH OUTPUT LENGTH. 
oeel wee. CMSXPLL "H-CMSXPLST" LENGTH OF PLIST. 
41048 (€418) SIGNED 4 CMSWPLST WRTERM PLIST. 
4048 (418) CHARACTER 8 
1056 €420) HEX 1 UNUSED HISTORIC BIT. 
£057 (421) A-ADDRESS 3 CMSWADDR CUTPUT ADDRESS. 
1060 (€424) CHARACTER 1 BLACK RIBBON. 
1061 (425) HEX 1 LONG WRITE, EDIT=NO. 
i062 (426) SIGNED 2 CMSWLGTH OUTPUT LENGTH. 
-l .... CMSWPLL "¥-CMSWPLST”" LENGTH WRTERM PLIST. 
1064 (428) SIGNED 4 CMSRPLST RDTERM PLIST. 
1064 (428) CHARACTER 8 
1072 (€430) HEX | 1 UNUSED HISTORIC BIT. 
1073 (€431) A-ADDRESS 3 CMSRADDR INPUT BUFFER ADDRESS. 
1076 €434) CHARACTER 1 ATTREST=NO OPTION. 
1077 (€435) HEX 1 UNUSED. 
1078 (€436) SIGNED 2 CMSRLGTH INPUT LENGTH. 
~.-)b 2... CMSRPLL "X-CMSRPLST" LENGTH OF RDTERM 
PLIST. 
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"CMSDCCULI' DEFINES A SPECIAL PSELDO- ccu USED WITH | a 
DIAGNOSE X*'58° TO DISPLAY PROMPTS IN THE INPUT AREA . 

OF A SCREEN. ALL FIELDS EXCEPT THE LENGTH FIELD ARE 

INITIALIZED BY APLSCINI; THE CCW IS USED IN MODULE 


APLSCDPY. 

1032 (408) FLOATING 8 CMSDCCW 

1032 (408) HEX 1 OP-CODE. 

1033 (409) A-ADDRESS 3 CMSDCCWA ADDR OF DATA. 

1036 ¢40C) HEX 1 STANDARD CCW FLAGS. 
1037 (40D) HEX 1 LINE NUMBER ON SCREEN. 
1038 (49E€) SIGNED 2 CMSDCCWL DATA LENGTH 


TERMINAL DEVICE INFORMATION. 
DESCRIPTOR BITS FOR REAL CONSOLE DEVICE, AS RETURNED 
BY DIAGNOSE 24. 


= eee ee ee ee ee ee es eee ee eee ee ee ee ee ee ee ee ee eee eee ae eee eee 


1080 (438) SIGNED G4 CNSTYCON DESCRIP BITS ARE PUT HERE. 
oe wee RDEVTYPC "QO" OFFSET OF BYTE IN TYCON GIVING ) 
DEVICE CLASS. 
Low. woe. CLASTERM “BITO™ CLASS IS TYPEVRITER DEVICE. 


C(CLASTERMN BIT SET IF REMOTE 3270. 
APLSCINI WILL RESET BITS TO LOOK 
LIKE LOCAL 3270). 


-le. wae. CLASDPY “BITI" CLASS IS DISPLAY CGRAPHICS) 
DEVICE. 
-1 RDEVTYPE "1" OFFSET OF BYTE IN TYCON GIVING 
DEVICE TYPE. 
11 RDEVLLEN "3" OFFSET TO BYTE CONTAINING LINE 
LENGTH. 
-l 1... CMS2741 “BIT3+BITG™" TYPE IS 2741. 
-l1 .1.. CMS1050 “BITS+BIT5" TYPE IS 1050. 
wsoe ola, CNS3270 "BITS" TYPE IS 3270. 
Ll... 1... CMSR3270 "BITO™ TYPE IS REMOTE 3270 CBIT 


*CLASTERM? IS ALSO SET). 


PARMLIST FOR STAX MACRO. 
CNSTAXPL STAX 0,MF=LIST FORM OF STAX. MOVED TO 
THIS SPOT BY INITIALIZATION. 


1084 ¢43C) SIGNED G CMSTAXPL 

1084 (43C) A-ADDRESS 4 ADDRESS OF EXIT ROUTINE 

1088 (440) A-ADDRESS 2 LENGTH OF INPUT BUFFERS 

1990 (442) A-ADDRESS 2 LENGTH OF OUTPUT BUFFERS 

1092 (444) A-ADDRESS 4 ADDRESS OF OUTPUT BUFFERS 

1096 (448) A-ADDRESS 4 | ADDRESS OF INPUT BUFFERS 

1100 (44C) A-ADDRESS 1 REPLACEYNO REPLACE, DEFERRAL IND 

1101 (44D) A-ADDRESS 3 ADDRESS OF USER PARAMETERS 

as oo. ee CMSTAXL '¥-CMNSTAXPL™ LENGTHE OF STAX 
PARMLIST. 
STXEXIT "QO" OFFSET TO FIELD IN CMSTAXPL 

CONTAINING ADDR OF STAX EXIT 
ROUTINE. 
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PLIST FOR "ASVPHINT' MACRO. THE SSM ‘ASVPHINT* MACRO 
TS EXECUTED IF THIS IS A DISPLAY (3270) TERMINAL. 

IF *TERM APL ON’ IS SET AND THIS IS A DISPLAY 
TERMINAL, VM/7370 WILL GIVE AN EXTERNAL INTERRUPT 
WHENEVER THE PA2 KEY IS STRUCK. APL USES THE 

PA2 TO SIGNAL CANCEL-OUTPUT. 


1084 (€43C) HEX 12 CMSEXTPL PLIST FOR *ASVPHINT’ MACRO. 
1084 (¢43C) A-ADDRESS 4 CMSEXTID ACCOUNT NUMBER FROM PTHACCNO 
1988 (440) V-ADDRESS 4 CMSEXTAD "VCSCDPA2)" ADDR OF EXTERNAL 


INTERRUPT EXIT HANDLER. HANDLER 
SETS CANCEL-OUTPUT BIT. 


1092 (444) A-ADDRESS 1 (4) SEE ASVICV FOR FIRST TWO BYTES 
ASYN LAST TWO BYTES ARE EXT INT 
CODE. 
».e. L1.. CMSEXPLL "¥-CMSEXTPL® LENGTH OF PLIST 
1104 (¢€450) HEX 256 CMSTABS CURRENT TAB SETTING. CALL 0 IF NO 
TABS.) 


ADDRESSES OF DEVICE-DEPENDENT SERVICE REQUEST 
HANDLERS. THE ADDRESSES IN THESE FIELDS DEPEND ON 
VIHETHER THE TERMINAL IS A TYPEWRITER OR A 

DISPLAY €3270). APLSCINYI STORES THE ADDRESSES WERE, 
APLSCFXI USES THEM. 


1360 (550) SIGNED 4 CMSDDADR 

1360 (550) A-ADDRESS | 4 CMSXTYI © -—«s ADDRESS OF YYTYI HANDLER. 
1364 (554) A-ADDRESS 4 CMSXTYO ADDRESS OF YYTYO HANDLER. 
1368 (558) A-ADDRESS | 4 CMSXTYOI ADDRESS OF YYTYOI HANDLER. 


CONSOLE ADDRESS. NEEDED FOR DIAGNOSE 58 IF THIS IS 
A 3270. SET BY APLSCINI, USED BY APLSCDPY. 


STORAGE MANAGEMENT. 
THE ENTRY-POINT AND WORKAREA ADDRESSES FOR THE FIRST TEN 
AUXILIARY PROCESSORS ARE KEPT HERE. THE FIRST WORD OF 
EACH WORD-PAIR HAS THE ENTRY POINT ADDRESS, THE SECOND 
WORD HAS THE WORKAREA ADDRESS. 
1392 (570) A-ADDRESS 4 CMSAPALC20) SEE COMMENT ABOVE. 
. 1.1. CMSAPALL - "CH-CMSAPAL)/78™" NUMBER OF ENTRIES. 


KEEP ADDRESS AND LENGTH OF AREA WE GOT IN USER 
PROGRAM AREA FOR WORKSPACE, SHARED MEM AND AP WORK 
AREAS. WE USE THESE TO FREE THE SPACE AT YYOFF. 


1472 (€5C0) SIGNED 4 CMSFRADR ADDRESS OF WS, ETC. AREA. 

1476 (€5C4) SIGNED 4 CMSFRSIZ LENGTH OF AREA, IN DOUBLEWORDS. 
CMSAPWKL "512" WORK AREA FOR EACH AP 

1480 (€5C8) SIGNED 4 CMSRSO7FC(4) RESERVED 
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1496 (5D8&) HEX 1 CMSSHVFL SHARED VARIABLE FLAGS. 
1... 1... SHVAVATIL "BITO" =1 IF SHARED VARIABLES CAN 
BE USED DURING THIS SESSION. 
l... SHVRPEAT "BIT4" IF =1, WE REPEAT A 


REFERENCE OR OFFER REQUEST ONCE JO 
PREVENT FALSE RESULTS WITH CERTAIN 
DISTRIBUTED AUX. PROCESSORS. IF 
=0, REQUEST HAS NOT BEEN REPEATED 
AND MAY HAVE TO BE FOR CERTAIN 
RETURN/REASON CODES. 

-l.. SHYNOAP “BITS” A.P.*S NOT LOADABLE 2018 


THIS IS THE ECB LIST INFORMATION THAT WE PASS TO THE SVP 
WHEN WE DO A SHARED VARIABLE WAIT. 


1500 (5DC) A-ADDRESS 4 CMSECBLA ADDR OF ECB LIST. 
1504 (5E0) A-ADDRESS § 4 CMSVECBA ADDR OF ECB AREA. ss -) 
1508 (564) SIGNED = 4 CMSVPECB «PCV ECB FOR SH VAR WAIT. 
weee ele, CMSECBSP "4" SIZE OF ECB OR ECB LIST ELMT 
1512 (5E8) A-ADDRESS 4 CMSSSMAD ADDR OF SHARED STORAGE MANAGER. 
1516 (5EC) SIGNED 4 CMSIOE14 | —-«IVO INTERRUPT RETURN REG 
1520 (5F0) SIGNED G4 CMSEIRI1S EXT INT. R13 POINTER 
1524 (5F4) A-ADDRESS 4 CMSEIOLD ADDRESS OF OLD EXT INT EXIT 
1528 (5F8) A-ADDRESS 4 CMSTSKBL ADDRESS OF INT TSK BLOCK =~ 
1532 (5FC) SIGNED «4 ~«<CMSRSOOF(2)—soRESERVED— J 


SHARED VARIABLE INFORMATION THAT IS PASSED TO THE SVP AT 
APL STARTUP TO INITIALIZE THE SHARED VARIABLE FACILITY. 


1549 (604) SIGNED 4 CMSSVPIN THE FOLLOWING 3 WCRDS MUST BE 
CONTIGUOUS. 
1540 (604) SIGNED 4 CMSNUMAP NUMBER OF AP'S LOADED. =——™” 
1544 (608) SIGNED 4 CMSSMSIZ SIZE OF SHARED MEMORY. 
1548 (60C) A-ADDRESS | 4 CMSSMADR = «THE ADDRESS OF SHARED MEMORY > 
1552 (610) SIGNED | 4 CMSRS1OF(4) RESERVED = = | 
1568 (620) A~ADDRESS | 4 CMSAPADAC300) 60 5-WORDS FOR SVP PARMS. ONE 


SET FOR EACH AP. SEE MODULE 
APLSCINI FOR DEFINITION OF SETS. 
CCMSBUFF [TS AT SAME LOCATION 
AS CMSAPADA,.) 

2768 (CADO) FLOATING 8 CMSINIBF LABEL USED FOR BUFFER SPACE 
DURING INITIALIZATION 


nam HE FF SF Be SS SSS SS SSeS Se SSS SSeS eee ee eee eee eee Se ee ee ee ee ee ee ee ee ee ee eo i 
Sl ee i i le i i een ee ee ee ee ee ee 


1568 (€620) CHARACTER 2048 CMSBUFF THE BUFFER. 
CMSBUFFZ "¥" MARKS END OF CMSBUFF. 
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CMSGL (CMS, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
MISCELLANEQUS. = 
3616 (E20) FLOATING 8 CMSPACK CONVERTS LIB NUMBERS 10 EBCD 
3624 (E28) SIGNED 4 CMSRECNO RECORD NO. FOR FSWRITE OF FILE FOR 

YYCOPQ. 
3628 (E2C) SIGNED 2 CMSCLISL HOLD COPY LIST LENGTH. 


WORK AREA USED FOR EDITING SUPERVISOR MESSAGES WITH 
LINEDIT MACRO. 
CMSLINED LINEDIT MF=L,MAXSUBS=5 

3630 CE2E) HEX 1 CMNSLINED(C47) 


CMSINITF IS USED ONLY DURING INITIALIZATION (SEE APLSCINID 
AFTER INITIALIZATION, CMSWORKF IS AVAILABLE TO 

TO ANY ROUTINE WHICH DOES NOT GIVE UP CONTROL 

VOLUNTARILY. (I.E. HANDS OFF, ASYNCH ROUTINES) 


3677 CE5D) HEX 1 CMSINITF 

3677 (CE5D) HEX 1 CMSWORKFO eee 

THESE FOUR DOUBLEWORDS CONTAIN TIMES, FOR QUAD-AI'S USE 

3680 (E60) FLOATING 8 CMSTRTUP TIME OF DAY THAT APL WAS STARTED, 
IN APL STANDARD TIME FORMAT. 

3688 (E68) FLOATING 8 CMSKEYTM PTHKEYTM IS NOW USED INSTEAD OF 
THIS FIELD. 

3696 (E70) FLOATING 8 CMSCPUAC ACCUMULATED VIRTUAL CPU TIME FOR 
INTERPRETER, IN MILLISECONDS. 

3704 (E78) FLOATING 8 CMSHOLDT HOLD AREA FOR SAVING CPU TIME WHEN 


INTERP IS DISPATCHED OR TIME OF 
DAY WHEN KEYBOARD IS UNLOCKED. 


THE GLOBAL-TABLE-RESIDENT LIBRARY TABLE. LIB 
TABLE IS HERE IF THERE ARE NO MORE THAN 
CMSLLTMX/CMSLTL LOGICAL RECORDS IN THE LIBRARY TABLE 
3712 (E80) SIGNED 4 LIB TABLE MUST BE ON FULLWRD 
" CMSLLTMX "¢C CCMSGL+CMSML-*)/CMSLTL-1)*CMSLTL” 
AMOUNT OF SPACE AVAILABLE IN 
GLOBAL TABLE FOR LIB TABLE 


ENTRIES. 
3712 (E80) HEX 1 _CMSLIBTB THE LIBRARY TABLE ; 
GLOBAL EQUATES. - - - 
oe ae CMSR "R10" GLOBAL TABLE BASE REGISTER. 
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CROSS REFERENCE 


CLASDPY 
CLASTERM 
CMSABEX 
CMSALIB 
CMSAMAIN 
CMSANAM 
CMSAPADA 
CMSAPAL 
CMSAPALL 
CMSAPAS 
CMSAPWKL 
CMSASTOP 
CMSAVACT 
CMSAVDAT 
CMSAVE 
CMSAVEZ 
CMSAVEZP 
CMSAVSI2Z 
CMSAWSID 
CMSBFLIN 
CMSBFSEG 
CMSBMPSV 
CMSBSEPP 
CMSBUFF 
CMSBUFFZ 
CMSCLISL 
CMSCONAD 
CMSCOPER 
CMSCOPLL 
CMSCOPSA 
CMSCOPSB 
CMSCOPS2Z 
.CMSCPUAC 
CMSCSUB 
CMSDCCW 
CMSDCCWA 
CMSDCCWL 
CMSDCODE 
CMSDDADR 
CMSDIAGO 
CMS DIMPNO 
CMSDPP 
CMSDSMAV 
CMSDSYS 
CMSDUSER 
CMSDVERS 
CMSECB 
CMSECBLA 
CMSECBSP 
CMSEIOLD 
CMSEIR1I3 
CMSENDRT 
CMSEXPLL 
CMSEXTAD 
CMSEXTID 
CMSEXTPL 
CMSFLAGS 
CMSFRADR 
CMSFRSIZ 
CMSFSCBL 
CMSFSCB1 
CMSFSCB2 
CMSGL 
CMSGLID 
CMSGRING 
CMSHELD 
CMSHOLDT 
CMSHRSYS 
CMSICTR 
CMSIDLSW 
CMS INBUF 
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CMSLLTMX 
CMSLTACC 
CMSLTADR 
CMSLTAMO 
CMSLTCUU 
CMSLTDSK 
CMSLTDSL 
CMSLTFLG 
CMSLTL 
CMSLTLB1 
CMSLTLB2 
CMSLTLC 
CMSLTLF 
CMSLTLMO 
CMSLTOWL 
CMSLTOWN 
CMSLTPRJ 
CMSLTPRV 
CMSLTPTH 
CMSLTRNG 
CMSLTRPW 
CMSLTSIZ 
CMSLTWC 
CMSMAXWS 
CMSMINDL 
CMSML 
CMSNEWM1 
CMSNELMM2 
CMSNEbIN 
CMSNEWT 
CMSNKMOD 
CMSNLPEQ 
CMSNLSW 
CMSNOLIB 
CMSNTHI 
CMSNTONM 
CMSNTPTR 
CNSNTSIZ 
CMSHTYPE 
CMSNTZ 
CMSNUMAP 
CMSOCTR 
CMSOLDM1 
CMSOLDM2 
CMSOLDN 
CMSOLDT 
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CMSPDATE 
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CMSR 
CMSRADDR 
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CMSRENAM 
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CMSRFLAG 
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CMSRPLL 
CMSRPLST 
CMSRSOIF 
CMSRS02X 
CMSRSO3F 
CMSRS04X 
CMSRSO5F 
CMSRS06F 
CMSRSO7F 
CMSRS08X 
CMSRSOSF 
CMSRSIOF 
CMSR3270 
CMSSEGZ 
CMSSHVFL 
CMSSMADR 
CMSSMSIZ 
CMSSOPT 
CMSSSMAD 
CMSSVPIN 
CMSTABS 
CMSTAE 
CMSTAEL 
CMSTAXL 
CMSTAXPL 
CMSTIMEP 
CMSTRTUP 
CMSTSKBL 
CMSTYCON 
CMSTYOI 
CNSUSERO 
CMSUSERI 
CMSUSER2 
CMSUSER3 
CMSVECBA 
CMSYNSP 
CMSVPECB 
CMSYWAIT 
CMSWADDR 
CNSWAITF 
CMSWLSTH 
CMSLORK 
CMSWORKF 
CMSWPLL 
CMSWPLST 
CMSWSADR 
CMSXADDR 
CMSXLGTH 
CMSXPLL 
CMSXPLST 
CMSXTYI 
CMSXTYO 
CMSXTYOI 
CMSYYLBO 
CMSYYLFL 
CMSYYLNL 
CMSYYLNN 
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CMSYYLNP 
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CMSYYLNT 
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1022 X'02' 
3712 X*0A" 
1073¢431) 
3624(C E28) 
624(270) 
680(2A8) 
1022 X'40° 
10780436) 
1078 X‘'10' 
1064(428) 
332¢014C) 
346C15A) 
692(02B4) 
93303A5) 
1004(3EC) 
1376(0560) 
1480¢05C8) 


- 
ui 
— 
i om | 
oe er 


1508( 
105 
106 


~~ rr rr A rr FR A 


Cd ee AAA UO PD SD 
J Fr Fr” 


O A tA CLA OO oO 
AON OLPOICMK AON WORN CO ~ 


o 
al 
Ft aan’ 


345 X*'80' 
1080 X'14' 








CROSS REFERENCE 


CMS2741 
CMS2741W 
CMS3270 
CMS3270W 
DBGECHO 
DBGMICRO 
DBGMSG 
DBGNSTAE 
IBMOPT1 
IBMOPT2 
IBMOPT3 
IBMOPT4 
IBMOPTS5 
IBMOPT6 
IBMOPT? 
IBMOPTS 
PTH 
PTHACCNO 
PTHASYNC 
PTHATTN 
PTHCNCTM 
PTRHCPULM 
PTHCPUTM 
PTHCURSR 
PTHCWBIT 
PTRDATTN 
PTHFOFF 
PTHFSAVL 
PTHKEYTM 
PTHLOCAL 
PTHLOCKB 
PTHMDY 
PTHMICRO 
PTHMSBLK 
PTHNOOUT 
PTHPARM1 
PTHPARN2 
PTHQEND 
PTHQSIZE 
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PTHQVAR : 


PTHSINK 
PTHSIZE 
PTHSORS 
PTHSPCLY 
PTHSRCOD 
PTHSUSP1 
PTHSVBIT 
PTHSVON 
PTHUEXTN 
PTHUSTAT 
PTHNABIT 
PTHWIDTH 
PTHWORDI 
PTHNSLEN 
PTHWSTAT 
PTHYYCOD 
PTHYYRC 
PTX 
PTXADSM 
PTXAIPUR 
PTXATTN 
PTXCICS 
PTXCMS 
PTXCODE 
PTXDEBUG 
PTXDXTBP 
PTXEND 
PTXFLAG 
PTXFLAGS 
PTXFSRST 
PTXFSTBP 
PTXGXGDM 
PTXGXTBP 
PTXHELP@ 
PTXHIAOT 
PTXHIFLG 
PTXRITHI 
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PTXHIIOT 
PTXHILIT 
PTXHIOHI 
PTXHISF 
PTXLEN 
PTXLEVEL 
PTXPRTBP 
PTXRSVO1 
PTXRSVO02 
PTXRSVO3 
PTXRSV04 
PTXSCRTH 
PTXSMPRO 
PTXSMPSD 
PTXSMP1 
PTXSMP2 
PTXSMP3 
PTXSMP4 
PTXSMP5 
PTXSMP6 
PTXSMP7 
PTXSMTBP 
PTXSTACK 
PTXSUBSY 
PTXTSO 
PTXUSRWA 
PTXVCT 
PTXVSPC 
PTXWSM 
RDEVLLEN 
RDEVTYPC 
RDEVTYPE 
SHVAVALL 
SHVNOAP 
SHVRPEAT 
STXEXIT 
WAITIMER 
WAITRPLY 
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DESC (CICS, 


ee ee ee a ae eee eee eee es ee eee eee ee es ee ee ee ees ee eee ee eee eee ee a eee ae ee ee 


XSYS>» 


This 


object types as a numeric, 


AP) 


the APLDESC macro. 


OFFSETS TYPE NAME 
0 C(O) STRUCTURE APLDESC 
0 (0) BITSTRING APLDESCO 
Yili... 

woee Le. APLOAPV 
1 C1) BITSTRING APLDESC@] 
1... .... APLIEXTN 
-l.. 1... APLINOTI 
»-l. wo... APLIARRY 
»oel i... APLINOTS 
o- od. APLICHAR 
at APLIREAL 
wees weed APLIINTE 

2 €2) SIGNED 2 APLDNN 


& (4) CHARACTER G0 APLDATA 


CROSS REFERENCE 


APLDATA G4 (4) 
APLDESC 0 ¢€0) 
APLDESCO Q (90) 
APLDESC1 1 (1) 
APLDNN eg (2) 
APLOAPV 0 X'08' 
APLIARRY 1 X*20° 
APLICHAR 1 X'04' 
APLIEXTN 1 X'80' 
APLIINTE 1 X'O1' 
APLINOTS 1 X‘'10' 
APLiINOT1 1 X‘'40° 
APLIREAL 1 X'O03' 
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16 the VS APL variable mapping descriptor used to describe 
scalar, vector, etc. It 15 mapped by 


DESCRIPTION 


FIRST DESCRIPTOR BYTE 
RESERVED 

ARITH PROGRESSION VECTOR 
SECOND DESCRIPTOR BYTE 

TYPE IS DEFINED BY DESCO 
OFF=1 ELEM, ON=0 OR >1 
ON=ARRAY, OFF=SCALAR/VECTOR 
OFF=SCALAR, ON=VECTOR/ARRAY 
CHARACTER DATA 

REAL (FLOATING) NUMERIC 


INTEGER CBINARY) NUMERIC 
FOR APL INTERPRETER USE ONLY 


V..V BEGINS HERE 


J 





DIg (crcs, 


XSYS ) 


This is the destination 


interface block. It controls a CICS/VS 


transient data destination or a 3270 printer that has been 
opened by the destination manager. The DIB is passed to the 
destination manager by the terminal manager, the screen format 


manager, 
a chain of DIBs. 


macro. 


TYPE 


LENGTH 


and auxtliary processor 132. The user perterm.points to 
This control block its mapped by the APLKDIB 


DESCRIPTION 


ash pbc 
6 Lies 

i 
Tee oer ee 
CHARACTER 
11 bates 


ee 
las 
ela 


gg ate See cick 
CHARACTER 
do Ses. “Mirae 
op er 
sade 
Sab. Sees 
eee 
oe rer 
Se ee 
BITSTRING 


— 


DIBREQ 
DIBOFEN 
DIBCLOSE 
DIBREAD 
DIBURITE 
DIBOPTN 


DIBOREAD 
DIBOWRIT 
DIBENQOP 
DIBENQRQ 
DIBZCODE 
DIBNFORM 
DIBFLGS 
DIBPRINT 
DIBFXLEN 
DIBCTLA 
DIBCTLM 
DIBSYNCP 
DIBPLIN 
DIBINTRA 
DIBFLGe 


REQUEST TYPE 

OPEN THE DIB 

CLOSE THE DIB 

READ A RECORD 

WRITE A RECORD 

OPTIONS KEPT WHILE OPEN 
RESERVED 

OPEN FOR READ 

OPEN FOR WRITE 

ENQ FROM OPEN TILL CLOSE 
ENQ FOR I/0 ONLY 

CONVERT FROM/TO ZCQDE 
BYPASS FORMATTING 
PROCESSING STATE 

OUTPUT TO PRINT TERMINAL 
FIXED LENGTH RECORDS 
ANST CONTROL CHARACTERS 
MACHINE CONTROL CHARACTERS 
SYHCPOINT HAS FORCED DEQ 
PRINT LIMIT IS IW EFFECT 
INTRAPARTITION DESTIN. 
RESERVED 


SIGNED 
SIGNED 


DIBRLEN 
DIBNAXLN 


LENGTH OF RECORD 
MAXIMUM RECORD LENGTH 


OFFSETS 
0 C0) 
0 C0) 
4 C4) 
5 (5) 
6 (6) 
7 (7) 
8 C8) 
12 CC) 
16 (10) 
20 C149) 
e2 (16) 
24 (18) 
28 €1C) 
32 (20) 
36 C249) 


CHARACTER 


© 


END OF DIB 
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CROSS REFERENCE 


DIB 
DIBAREA 
DIBCHAIN 
DIBCLOSE 
DIBCNT 
DIBCTLA 
DIBCTLM 
DIBDEST 
DIBENQOP 
DIBENQR@ 
DIBFLGS 
DIBFLG2 
DIBFXLEN 
DIBINTRA 
DIBMAXLN 
DIBNFORM 
DIBOPEN 
DIBOPTN 
DIBOREAD 
DIBOWRIT 
DIBPLIM 
DIBPRINT 
DIBREAD 
DIBREQ 
DIBRESRC 
DIBRLEN 
DIBSYNCP 
DIBTDOA 
DIBWRITE 
DIBXLATE 
DIBZCODE 
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DIR (CICS, 


SERV) 


This is the APL library directory entry. It is a keyed logical 
record that generally resides in a VSAM KSDS (the APL 


directory). 


file. 


APLKPRO macro), 
macro), 


A DIR may describe either an APL workspace or a 
Special forms of the DIR describe APL users (mapped by the 
the library freespace map (mapped by the APLKFSP 
file extents (mapped by the APLKFEB macro), and’ signon 


messages (no special mapping). This control block is mapped by 
the APLKDIR macro. 


TYPE 


LENGTH NAME 


DESCRIPTION 


ee ee ee ee ea ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee 


ee se aa a ee a ee ea a a se ee ee ee ee ee a ea es ee ee ee ee ee a a ee ee 


SIGNED 
SIGNED 


DIRECTORY ENTRY LENGTH 
RESERVED 


a_i ee ee a ee eee ee eee ess es ees es ee ee ee ee ee eee eee ee eee ee ee ee i ee ee ee ee ee ee 


UNSIGNED 
CHARACTER 
UNSIGNED 


DIRLIBNO 
DIRWSNAM 
DIRCODE 


USER LIBRARY NUMBER 
WORKSPACE OR FILE NAME 
CODE FIELD 


CHARACTER 
UNSIGNED 


REST OF 8 BYTE FILE/“WS NAME 
LOCATION OF FEB IDENTIFIER 


CHARACTER 
UNSIGNED 
CHARACTER 
li... eee 
1 

lo.... 
. i... 
1... 
wows eed 
wees weal 
CHARACTER 
il 


DIRHICNT 
DIRTYPE 
DIRFREE 


DIRUPROF 


DIRCICS 
DIRPUB 


DIRPRIV 
DIPFLAGI 


DIRSH® 
DIRSCFLS 


DIRPASW 
DIRLOCK 


RESERVED FOR HI AND FER 
HI MSG SEQUENCE NUMBER 


TYPE BYTE 

FREE SPACE RECORD 80 
RESERVED 

USER PROFILE BIT 20 
RESERVED 


CICS DIRECTORY ENTRY 08 
PUBLIC LIBRARY 04 

RESERVED 

PRIVATE LIBRARY 01 

FLAG BYTE 1 

RESERVED 

FILE CAN BE SHARED 20 
ACTIVE SCROLL FILE FLAG 10 
RESERVED 

WS CR FILE HAS PASSWORD 02 
USER IS LOCKED 01 


oe Oe ne ee ee ee ee eee ee ee eee eee ee eee ee ie eee ae ee a ee ae a 


Ll el A i cn ee i ene ee ee a aa aa aa ee ee ae ee eh Um ce 


SIGNED 


a eee eee eee eee ee eee ee ee ee ee ee ee 


lel ll ee ee ee aes en ee ee ee ee ee ee hcklhUmr hl me ee hc 


OFFSETS 
0 (0) 
0 (0) 
0 (0) 
2 (2) 
4 (4) 
4 (4) 
7 (7) 
7 (7) 
8 (8) 

15 (F) 
16 (103 
17. (11) 
18 (12) 
19 (13) 
20 (14) 
28 (1C) 
36 (24) 
40 (28) 
44 (2C) 
465 (2D) 
466 (2E) 


CHARACTER 

CHARACTER 

Viil 

seee Ian. 
i.. 
-.d. 


~ee- «eel 
SIGNED 


DIRCATTR 
DIRFTYPE 


DIRWS 


DIRSF 
DIRDF 


CONTENT ATTRIBUTE 

TYPE OF ENTRY 

RESERVED 

THIS IS A WORKSPACE 08 
RESERVED 

THTS IS & SEQ@ FILE 92 
THIS IS A DIRECT FILE O1 
RESERVED 
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DIR (CIcs, SERV) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
68 (30) SIGNED 4 DIRCFLSZ CURRENT FILE SIZE J 
52 (34) SIGNED 4 DIRNLR NUMBER OF LOGICAL RECORDS 
56 (38) SIGNED 4 DIRLRS LOGICAL RECORD SIZE 
60 (3C) UNSIGNED 4 DIRLCIUR LAST CI WRITTEN INTO (EOF) 

52 (34) STRUCTURE 12. DIRFONLY REDEFINE UNIQUE FIELDS 
52 (34) CHARACTER 3 DIROPRO YSPC OBJECT PROG OFFSET 
| =2048+WSNFREEA-WSM 
55 (37) CHARACTER 3 DIRLDSIZ SIZE OF GETMAIN FCR LOAD 
58 (3A) SIGNED 2 RESERVED 
60 (3C) UNSIGNED 4 DIRFRBA F°RST ALLOCATED RBA 


CROSS REFERENCE 


DIR Q (0) 

DIRCATTR 64 (20) - 
DIRCFL3Z 68 (30) 

DIRCICS 18 X'aR’ 

DIRCODE 7 (7) 

DIRDF 45 X'au! 

DIRFEBID 15) (F3 

DIRFLAGI 19 (13) 

DIRFONLY 52 (343 

DIRFRBA 60 (30) 

DIRFREE 18 x'so' 

DIRFTYPE 65 629) 

DIRHEADR 0 (93 

DIRHICNT 17 (11) ) 
DIRKEY 4 (4) > 
DIRLCIDL 40 (28) 

DIRL CIR 60 (3C) 

DIRLDSIZ 55 (37) 

DIRL ENE 0 (6) 

DIRLIBHO 4 (4) 

DIRLOCK 19 x'oL? 

DIRLRS 56 (38) 

DIRNCI 36 (24) 

DIRNLR 52 (34) 

DIROPRO 52 (34) 

DIRPASW 19 X'92? 

DiRPRIV 18 X'O1! ‘ 
DIRPSWD zO (14) P 
DIRPUR 18 X'04! 

DIRSCFLG 19 X'IG! 

DIRSF 45 X'02' 

DIRSHR 19 X'20' 

DIRSWTS 28 (1C) 

DIRTYPE 18 (12) 

DIRUPROF 18 X'20' 

DIRWS 45 X08" 

DIRWSNAM 7 (7) 
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DMP (CICS, XSYS, AP} 


This 1s the common system executor services dump request block 
which describes areas of storage to be dumped. It 15 mapped by 
the APLXDMP macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 108 DMP DUMP REQUEST BLOCK 
00) SIGNED) =——(is32)sSCDMPWRKOt™” WORK AREA FOR DMP RIN —™S 
32 (20) CHARACTER 4 DMPID = ID FOR DUMP 
36 (24) CHARACTER 64 DMPREG 3 REGISTERS TO DUMP —t™S 
36 «4 ¢24) SIGNED ”™” 4 DMPRO REGO ti sssss—sSS 
40 (28) SIGNED 4% DMPRI REG) 
44 ~«(20) SIGNED” 4 DMPR2 REG 
68 ~«=6(30) SIGNED” 4 DMPR3 = REGS © | 
52 «(34) SIGNED 4 DMPRG REGS © 
56 (38) SIGNED 4 DMPRS REG 55 
60 (3C) SIGNED” 4 DMPR6 REG6 | 
64 =~ «(40) SIGNED” 4 DNPR7 = - REG ?—(iti‘Cié;‘;‘;‘<; OW 
68 (44) SIGNED 4 DMPR8 =  REGB © 
72 «(48) SIGNED 4 DMPR9 REG 90 
76 (60) SIGNED 4 DMPRIO REG 100 ( s—sS 
80 (50) SIGNED 4 DMPRIL = REG11 © 
84 (54) SIGNED 4 DMPRI2Z REG120002—~C~*<“‘<‘< 7]7UW 
88 (58) SIGNED 4 DMPRI3 REG 130C—i ( 
92 ~«¢5C) SIGNED === 4 :«ODMPRIG. its REG 14600 00 
96 «(60) SIGNED 4 DMPRIS REG 150 
100 (64) A-ADDRESS 8 DMPLHDR USED BY DUMP SERVICES st” 
“108 (6C) CHARACTER 6 DMPLIST  —— START OF DUMP LIST 2 ttstS—~S 
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CROSS REFERENCE 


DMP 0 0) 
DMPID ~ "32 (20) 
DMPLHDR 100 (64) ~ 
DMPLIST 108 (6C) 
DMPREG 36 (24) 
DMPRO 36 (24) 
DMPR1 460 (28) 
DMPR10 76 (4C) 
DMPR11 80 (50) 
DMPR12 84 (54) 
DMPR13 88 (58) 
DMPR14 92 (5C) 
DMPR15 96 (60) 
DMPR2 44 (2C) 
DMPR3 48 (30) 
DMPR4G 52 (34) 
DMPR5 56 (38) 
DMPR6 60 (3C) 
DMPR7 64 (40) 
DMPR8 68 (44) 
DMPR9 72 (48) 
DMPWRK 0 (0) 
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DRB (TSO, 


XSYS ) 


This is the request block for DAIR services used by the TSO 
executor. It is mapped by the APLYDRB macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 CO) STRUCTURE 54 DRB 
0 (0) CHARACTER 44 DRBMAIN 
0 C(O) SIGNED DRBRE@ TYPE OF REQUEST, SEE BELOW 
G (4) CHARACTER 8 DRBDDNAM DD NAME WHEN REQUIRED BY REQUEST 
12 (C) A-ADDRESS DRB&DSN ADDRESS OF DSN WHEN REQUIRED BY 
REQUEST. THE DSN AT THE ADDRESS IS 
MAPPED BY DRBDSN, DESCRIBED BELOW 
16 €10) CHARACTER 8 DRBSER FOR "ALLOCATE NEW" REQUESTS, A 
SERIAL NUMBER PADDED WITH BLANKS, 
OR BLANKS. FOR "ALLOC OLD" OR 
PALLOC SHR"™ THE SERIAL WHERE THE 
DS WAS FOUND 
24 €18) CHARACTER 8 DRBUNIT FOR "ALLOC NEW" REQUESTS A UNIT 
TYPE PADDED WITH BLANKS, OR 
BLANKS. FOR "ALLOC OLD" OR "ALLOC 
SHR® THE UNIT TYPE WHERE THE DS 
WAS FOUND 
32 (20) SIGNED 4 DRBRC RETURN CODE AFTER REQUEST IS 
COMPLETE. SEE BELOW 
36 (24) SIGNED 4 DRBRS WHEN DRBRC=DRBDAIRC, THE RETURN 
CODE FROM DAIR 
40 (28) SIGNED 2 DRBDARC WHEN DRBRC=DRBDAIRC, THE DARC FROM 
DAIR 
42 C2A) SIGNED 2 DRBCTRC WHEN DRBRC=DRBDAIRC, THE CTRC FROM 
DAIR 
44 (2C) CHARACTER 10 DRBAPRMS 
44 €2C) SIGNED 4 DRBPRMRY NUMBER OF UNITS FOR PRIMARY 
ALLOCATION IN NEW DATASETS 
48 C30) SIGNED 4 DRBSCNDY NUMBER OF UNITS FOR SECONDARY 
ALLOCATION IN NEW DATASETS 
52 C34) SIGNED 2 ODRBBLKSZ AVG. BLKSIZE FOR NEW DATASETS 
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CROSS REFERENCE 


DRB 0 (0) 

DRBADSN 12 (C) 
DRBAPRMS 44 (2C) J 
DRBBLKSZ 52 (34) 

DRBCTRC 42 (2A) 

DRBDARC 40 (28) 

DRBDDNAM 4 (4) 

DRBMAIN 0 (0) 

DRBPRMRY 44 (2C) 

DRBRC 32 (20) 

DRBREQ 0 (0) 

DRBRS 36 (24) 

DRBSCNDY 48 (30) 

DRBSER 16 (10) 

DRBUNIT 24 (18) 
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ECA (VSPC) 


This is the VS APL executor work area for VSPC. This control 
block is mapped by the APLPECA macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) FLOATING 8B ECA eee 
WORK AREAS 
0 (0) FLOATING 8 ECAWORK1 WORKAREA FOR ARITHMETIC 
8 (8) FLOATING 8 ECAWORK2 ANOTHER WORKAREA 
16 (10) CHARACTER 320 ECAWKBF WORK BUFFER TO ZCODE-EBCDIC TRAN 
ECABFLN "320" LENGTH OF WORK BUFFER 
lo... ECASCV TECAWKBF™ EXECUTOR SCV-BUILD AREA 
1. .1.. ECASCVL "SCVFLAGZ+L "SCVFLAGZ2-SCVENTRY LTH 
OF SCV 
SAVE AREA 
1.. 1. ECASVLN "18%4" LENGTH OF EACH ENTRY 
336 (150) SIGNED 4 ECASAVE 5 SAVE AREAS 
ECASVEND WN 
696 (2B8) SIGNED 4 ECASVPTR RELATIVE PTR TO CURRENT SV” 
ECA MISCELLANEOUS FIELDS 
700 (2BC) SIGNED 4 ECAWSPTR PTR TO CURRENT WORKSPACE 
704 (¢2C0) SIGNED G ECAPTC PTC PTR 
708 (2C4) SIGNED 4  ECADUMP DUMP NUMBER 
712 (¢2C8) CHARACTER 11 ECAWSNAM ACTIVE WSNAME 
723 (2D3) CHARACTER 1 MUST FOLLOW ECAWSNM 
724 (2D4) SIGNED 4 ECALIBNO ACTIV LIBNO 
728 (2D8) SIGNED 2  ECATIM MINUTES 
730 (¢2DA) SIGNED 2 ECAHH HOURS 
732 (2DC) SIGNED 2  ECASS SECONDS 
WORKSPACE EQUATES 
ECAWKLN "20468" LENGTH OF CONTROL AREAS 


PCO REQUEST CODE SAVED WHEN UNEXPECTED ERROR RETURN 


734 (2DE) SIGNED 2  ECARQER PCO REQUEST CODE ON ERROR 
GENERAL RETURN CODE DEFINITIONS FOR PCO 
eens oe ECAWARN "G6" WARNING 
1... ECABORT "gs" ABORTED,UNUSUAL CONDITION 
aa! ECAFAIL mi2" NOT DONE,INVALID SITUATION 
oo idowec: __ECAREJ "16" REQUEST REJECTED 
EXECUTOR CONTROL BIT 20 (ES 
736 (2E0) HEX “4 ECACNTRL EXECUTOR CONTROL BITS 
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ECA (VSPC) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


aE SES SSS SS SS eS eS eS eS eee eee eS ete etter eet et ete et eta Ss Ste ae eer et eee eee ee eee ee ee eet et et et ther er eT er eet  erherleeT er er eae et 2 ee e 2 e e o 
be le i i i i Rl 


DEFINITION OF ECACNTRL 
Ll... 1. 


ECAMICRO "BRITO" MICRO CODE AVAILABLE 
dl. lit ECASTAT "BIT" O=SUPERVISOR, 1=INTERPRETER 
737. (2E1) HEX 1 RESERVED 
738 (2E2) SIGNED 2 ECAPATHN GDDX ACTIVE PATH COUNTER AP126 
VSPC PSEUDO-AP FILE TABLE ENTRIES CAPFT) _ 
740 (2E4) SIGNED 4  APFTENT 
740 (24) HEX 1 
APFTEND rn yee 
1520 (5F0) FLOATING 8 ECACNTME TERMINAL CONNECT TIME FOR INVOC 
1528 (5F8) FLOATING 8 ECAKEYTM USER KEYING TIME FOR INVOCATION __ 
FOLLOWING FIELDS ARE FOR DISPLAY TERMINAL I/0 
1536 (600) SIGNED 6 ECADBFLN BUFFER LENGTH (DISPLAY) 
1540 (606) SIGNED & ECADDTPT HOLD RELATIVE DATA PTR 
THE NEXT TWO FIELDS: ARE FOR THE AP 101 PSEUDO-INPUT STACK 
1544 (608) SIGNED 2 ECASTCKL LENGTH OF DATA IN AP 101 STACK 
1546 (60A) SIGNED 2 ECAFENCL LENGTH OF STACK DATA PAST FENCE 
FOLLOWING FIELDS ARE FOR DISPLAY TERMINAL 1/0 
1548 (60C) SIGNED 2 ECADDATL LENGTH OF DATA HELD 
1550 (60E) SIGNED 2 ECADCURS HOLD REAL CURSR POSITION 
1552 (610) HEX ECADFLAG FLAGS 
ECACFSAP "Y?'so’™ CURRENT FULL SCREEN IS AP 
124 
i. ECAAPSSA "X'GO'" AP 126 FULL SCREEN SSA 
EXISTS 
. ECACFSXE "XY? 20°" CURRENT FULL SCREEN IS 
XEDIT 
1. ECASPURG "Xx'OG'™ AP 101 STACK MUST BE 
PURGED 
A. ECADFLNL "x'o2'™ NL NOT EXPECTED IF ON 
. ery ECADCANC "Xtal O U T CONDITION 
1553 ($11) HEX ECAFSFLG FULL SCREEN EDITOR FLAGS 37123 
lo... FSEDINIT "y¥'BO'" FS EDITOR INITIALIZED 
oe FSMSGFUL "Xx'G0'" FS MSG AREA IS FULL 
"h. FSMBFLSH "X'O0'" FS MSG AREA HAS BEEN 
FLUSHED 
lo... FSMSCSTK mX'70'" SCREEN 'STACK' IN USE 
aon FSEDOPEN "X'08'" FS EDITOR CURRENTLY OPEN 
i. FSLPROT "X'OG'"™ ES ED LINE NUMBERS 
PROTECTED 
Zi FSMALARM "x'O1"" FS ED MESSAGE REQUIRES 
1554 (612) SIGNED ECADBSCT COUNT OF BACKSPACES HELD 
1556 (614) SIGNED ECAEND 
ECALEN "¥-ECA" LENGTH OF ECA 


NOTE: 132 BYTES JUST BEFORE THE START OF THE WSM HAS BEEN 
BROUGHT INTO USE AS A 3270 BUFFER. THEREFORE THERE ARE ONLY A 
FEW EXPANSION BYTES BEYOND THE ECA SINCE THE SPACE FROM THE WSH 
TO THE WSM MUST REMAIN AT 2K TOTAL 
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CROSS REFERENCE 


APFTEND 
APFTENT 
ECA 
ECAAPSSA 
ECABFLN 
ECABORT 
ECACFSAP 
ECACFSXE 
ECACNIME 
ECACNTRL 
ECADBFLN 
ECADBSCT 
ECADCANC 
ECADCURS 
ECADDATL 
ECADDTPT 
ECADFLAG 
ECADFLNL 
ECADUMP 
ECAEND 
ECAFAIL 
ECAFENCL 
ECAFSFLG 
ECAHH 
ECAKEYTM 
ECALEN 
ECALIBNO 
ECAMICRO 
ECAMM 


1520 
74600€2E4) 
0 (0) 
1552 X*"40! 
320 

734 X'08' 
1552 X'80' 
1552 X'20° 
1520(5F0) 
736(2E0) 
1536(600) 
1554(612) 
1552 X'O01' 
1550(60E) 
1548(60C) 
1540(604) 
1552(610) 
1552 X'02' 
708(2C4) 
1556(614) 
734 X*0C’ 
1546(60A) 
1553(611) 
730C2DA) 
1528(5F8) 
1556 
7240204) 
736 X'8O0" 
728(2D8) 


ECAPATHN 
ECAPTC 
ECAREJ 
ECARQER 
ECASAVE 
ECASCV 
ECASCVL 
ECASPURG 
ECASS 
ECASTAT 
ECASTCKL 
ECASVEND 
ECASVLN 
ECASVPTR 
ECALIARN 
ECAWKBF 
ECAWKLN 
ECAWORK1 
ECAWORK2 
ECAWSNAM 
ECAWSPTR 
FSEDINIT 
FSEDOPEN 
FSLPROT 
FSMALARM 
FSMBFLSH 
FSMSCSTK 
FSMSGFUL 


“Om 
s 


209 2 « «alo 


etd fo ; 
PEND ODHROWOMOOHLOOWLVUAHLOAONKFHOMEON. 
Ooore fLOOwwvewue Vv Ow Vv OOwOow ADPOwvawywy 
Li] 


om F™ oie 
NAXKNK PKNKK KEN KNN 


WAWONDBO BAL 
«KKK OK OK OK IND 


U1 © te 
ese we eae 2 oO nA OF- 
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FAB (CICS, XSYS, AP} 


This is the APL file access block. It maintains the current 
processing options and position of APL files that ore open. It 
is used to pass requests and records between the library manager 
and either auxiliary processor 121 or the scrolling routines of 
the screen format manager. All auxiliary processor FABs are 
chained from the GBL. FABs associated with scrolling are also 
pointed to by the PTK. This control block 1s mapped by the 
APLKFAB macro. 





OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 144 FAB 
0 (0) CHARACTER 24 FABGRE GRE FOR GLOBAL SERVICES 
0 (0) CHARACTER 8 FABNPSWD NEW PASSWORD FOR CHANGE PWD 
0 C(O) BITSTRING 4 ECB POSTED AT COMPLETION 
4 (4) A-ADDRESS G HEXT GRE ON CHAIN OR 0 
8 (8) UNSIGNED uh SERVICE REQUEST CODE FIELD 
9 (9) UNSIGNED 1 TYPE QUALIFIER 
10 CA) BITSTRING 2 FABGRERC GLOBAL SERVICE RETURN CODE 
10 CA) BITSTRING 2 FABVSERR NOT SUPPORTED ERROR MSGHERE 
12 (CC) SIGNED 4 FABGREPM GRE INPUT PARAMETER 
16 (10) SIGNED 4 FABLPRM1 FIRST LIBRARY SERVICES PARM 
20 (14) A-ADDRESS G4 FABLPRM2 SECOHD LIBRARY SERVICES PRM 
20 (19) SIGNED 2 FABLRCOD ALSO USED FOR RETURN CODE 
24 (18) A-ADDRESS 4 FABOPCHN OPEN FILE CHAIN-ANCHORED IN GLOBAL 
TABLE-O0 AT CHAIN END 
28 (1C) A-ADDRESS 4 FABCHAIN FAB CHAIN POINTER FOR USER >SCRSG 
FOR SCROLL FILES 
32 (20) A-ADDRESS 4 FABFEBPT FEB POINTER IN BUFFER 
36 (24) SIGNED G4 FABCURCI CURRENT CI NUMBER CLOGICAL) 
40 (28) SIGNED 2 FABRESST FAB REQUEST CODES 
$2 (2A) BITSTRING 2 FABSTAT FILE STATUS INDICATORS 
42 (2A) BITSTRING 1 FABSTATI FIRST STATUS BYTE 
Tie ak. Qilecacs FABNEW NEW FILE, NOT YET OPEN 80 
AES, eben FABFIRD FIRST READ OPEH FLAG 40 
oe eee FABCLOSE FILE IS CLOSED 20 
eo) ee ee FABOPEN FILE IS OPEN 10 
Se eee FABOPRD READ IS ACTIVE ON FILE 08 
chars FABOPWR WRITE IS ACTIVE ON FILE 04 
ee FABOPS®@ FILE IS BEING PROCESSED 02 
SEQUENTIALLY 
sok FABOPDR FILE IS BEING PROCESSED 61 
DIRECTLY 
43 (2B) BITSTRING 1 FABSTAT2 SECOHD STATUS BYTE 
Sa Weare k FABLIRLST LAST OPERAT WAS A WRITE 80 
oe ee aan FABCIUP CI HAS NEW DATA 40 
ee ee ee FABDIRUP DIRECTORY REC-NEW DATA 20 
ere oe FABCHNED FAB CURRENTLY CHAINED 10 
a ee FABEOF LAST REQUEST CAUSED EOF 08 
wie FABOPNW FILE OPENED ORIG FOR WR 04 
ee ae FABNXEOF RET EOF ON NEXT REQUEST 02 
red RESERVED 
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FAB (CICS, 


XSYS, 


TYPE 


AP} continued 
LENGTH NAME 


DESCRIPTION 


CURRENT RECORD NUMBER, POSITION IN 
THE FILE 


CURRENT LOCATION IN BUFFER >ODURNY 
CITW FOR SCROLL BELOW IS THE 
DIRECTORY REC 


SIGNED 
SIGNED 


NN 


FABLENHW 


DIRECTOCRY ENTRY LE?GTH 
RESERVED 


ee ee See ee ee ee eee ee 


CHARACTER 


rs 
& 


FABKEY 


14 BYTE VSAM KEY 


OFFSETS 

44 (20) 
48 (30) 
52 (34) 
56 (38) 
60 (3C) 
60 (3C) 
60 (3C) 
62 (3E) 
64 (40) 
64 (40) 
67 


UNSIGNED 

CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


pon 
bt (nl OO h On 


FABLIBNO 
FABNSNAM 
FABFNAME 
FABRSVDN 
FABTYPE 
FABFREE 


FABUPROF 


FABCICS 
FABPUB 


FABPRIV 
FABFLAGI 


FABSHR 
FARSCFLG 


FABPASW 
FABLOCK 


DDNAME FOR API121 FILE 

WOR KSFACE NAME 

OR FILE NAME 

RESERVED 

TYPE BYTE 

FREE SPACE RECORD 80 
RESERVED 

USER PROFILE BIT 20 
RESERVED 

CICS DIRECTORY ENTRY 08 
PUBLIC LIBRARY 04 

RESERVED 

PRIVATE LIBRARY O1 

FLAG BYTE 1 

RESERVED 

FILE CAN BE SHARED 20 
ACTIVE SCROLL FILE FLAG 19 
RESERVED 

WS OR FILE HAS PASSWORD ¢@2 
USER IS LOCKED 01 


MAP FOR TSO RECO USAGE 


79 (4F) 
80 (50) 
88 (58) 
88 (58) 
96 (60) 
96 (60) 

100 (64) 

104 


106 (6A) 


CHARACTER 
CHARACTER 
BITSTRING 
111i 
1... 
~ee eal, 
wee ceed 
SIGNED 


= 
bo U7) bao 


FABCATTR 
FABTFLD2 
FABFTYPE 


FABNS 
FABSF 


FABDF 
FABNAXSZ 


CONTENT ATTRIBUTE 

TRY TO KEEP PLS HAPPY 

TYPE OF ENTRY 

RESERVED 

THIS IS A WORKSPACE 08 

RESERVED 

THIS IS A SEQ FILE 92 

THIS IS A DIRECT FILE Ol 

MAX FILE SIZE IN CONTROL INTERVAL 
INCR (C6K-LENCCIT)) 
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FAB (CICS, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
108 (6C) SIGNED 4 FABCFLSZ CURRENT FILE SIZE -) 
i112 (70) SIGHED 4 FABNLR NUMBER OF LOGICAL RECORDS - 
116 (74) SIGNED 4 FABLRS LOGICAL RECORD SIZE-DIRECT (= 
FABCIDAT FOR SCROLL) MAX RECORD 
SIZE-SEQUENTIAL 
120 (78) BITSTRING 8 FABTCDT DATE FILE CREATED 
1290 (78) SIGNED 4 FABLCIWR LAST CI WRITTEN INTO CREL CI 
NUMBER , ORIGIN 1), IS END OF 
RECORD AND FILE 
124 (7C) SIGNED 4 KEEP PLACE FOR TSO TSO DEFINES FOR 
128 (80) SIGNED 4 FABBUFSZ BUFFER SIZE 
132 (84) A-ADDRESS 4 FABAFBI ADDRESS OF ABF FOR FILE 
136 (88) A-ADDRESS 4 FABRDBUF SEQUENTIAL READ BUFFER PTR ) 
140 C8C) A-ADDRESS 4 FABRECOC COUNTER WHEN TO WRITE REC 0 
CROSS REFERENCE 
FAB 0 (0) FABMAXSZ 106 (6A) 
FABAFBI 132 (84) FABMXSZ 96 (60) 
FABBFPTR 56 (38) FABNCI 96 (60) 
FABBUFSZ 128 (80) FABNEW 42 X'80' 
FABCATTR 10% (68) FABNLR 1i2 ¢€70) 
FABCFLSZ 108 (6C) FABNPSWD 0 (0) 
FABCHAIN 28 (€1C) FABNXEOF 43 X'02' 
FABCHNED 43 x'1i0' FABOPCHN 24 (18) 
FABCICS 78 X'08' FABOPDR 42 X'O01' 
FABCIFTR 48 (30) FABOPEN 42 X*'10' 
FABCIUP 43 x'40' FABOPNW 43 X'04' 
FABCLOSE 42 X'20" FABOPRD 42 X'08! 
FABCRREC 44 (20) FABOPS@ 42 X'02' 
FABCURCI 36 (24) FABOPWR 42 X'04' 
FABDATAP. 52 (34) FABPASW 79 X'02' 
FABDF 105 xX'ol' FABPRIV 78 X'01' 
FABDIR 60 (3C) FABPSWD 80 (50) 
FABDIRUP 43 X'20"' FABPUB 78 X'06! 
FABEOF 43 X'08' FABRDBUF 136 (8&8) 
FABFEBPT 32 (20) FABRECOC 140 (8C) 
FABFIRD 42 X'S0! FABREQST 40 (28) 
FABFLAGL 79 (4F) FABRSVDN 75 (4B) 
FABFNAME 67 (43) FABSCFLG 79 X*'10' 
FABFREE 78 X'80° FABSF 105 X'02' 
FABFTYPE 105 (63) FABSHR 79 X'20' 
FABGRE 0 ¢0) FABSTAT 42 (2A) 
FABGREPM 12 (C€) FABSTAT1 42 (2A) 
FABGRERC 10 «(AD FABSTAT2 43 (2B) 
FABHEADR 60 (3C) FABSWTS 88 (58) 
FABKEY 64 (40) FABTCDT 120 (78) 
FABLCIDL 100 (64) FABTFLDI 88 (58) 
FABLCIWR 120 (78) FABTFLD2 105 (693) 
FABLENKRW 60 (€3C) FABTYPE 78 (4E) 
FABLIBNO 64 (40) FABUPROF 78 X*20' 
FABLOCK 79 X*Ol1' FABVSERR 10 CA) 
FABLPRMI 16 (10) FABWRLST 43 X'80' 
FABLPRM2 29 (14) FABLIS 105 x*'08' 
FABLRCOD 20 (14) FABWSNAM 67 (43) 
FABLRS 116 (74) 
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FB (CONV, 


NTRP ) 


TYP 


This is the interpreter definition of the function close 


E 


parameter list. It 


LENGTH 


NAME 


7S mapped by the APLFBLST macro. 
DESCRIPTION 


=~ =p ap ow Ge Ge OP ame om 8 eS ew ee ew ww es 6 oe ow Se St a 8 ee ee ee oe ew ew 9 8 ee ee ee a we eo am we a ae oe ae ee eo @ of oF ap we oe © 2S > ap woe a ow DD OD GD @ ow @ ow BF ew ew a Se O = «oF 


aww eeneeeewasg art SS eeTweeweesee eer Ee SPIE SS SPS SS See eres CS ee SP eS SP Ue er eee re eke ae eee ee eee ee eee eee eee! eee eee ee eee ee eee eee ee ee ee eee ee ee ee 


COUNT OF BYTES IN SOURCE LINE 
(WHEN TTCLOSET CALLED, SIZE OF 
LONGEST) 


BYTE LENGTH OF BUILD AREA 
REMAINING 


=~ ew a a a eo ee aw em a ee Ge OP awh ew UE ew Se oie ae ieee ee ee ee ee eee eee oe i es es se ee es es a a see ss ie ie 


FBLABELS 
FBLBLOFF 


COUNT OF LABELS IN THIS FUNCTION 
OFFSET TO (LABELS) IN FN. 


HEADER 


SEMI-REL ADDRESS OF FN. 


DN-WORD 


maweEP ween eee eee ewe ewe ee eee es SS eee ee eee ae Se ee eee eee ee ee eee ee ee eee 8) ee ee eee es Gh oF a ey Se ew Oe ee eo a ee ew ee ee ae oe Oe ee aD aD 


OFFSETS 
0 
0 
4 
8 
12 
16 C 
18 C 
20 ¢ 
24 ( 
24 C 
26 C 
2 C 
30 ¢ 
31 ¢ 


CROSS REFERENCE 


FBDNWORD 
FBFLAG 
FBFUNAME 
FBLABELS 
FBLABLO 
FBLBLOFF 
FBLIST 
FBLISTL 
FBSRCE 
FBSRCEL 
FBSYNT 
FBTHISLB 
FBTHISLN 
FBUILD 
FBUILDL 


(_n §2 
x= 
J wy 


b=® pw pad 
“TH mc 
Na S ww 


a a a ae oe ee | 


x< 
ou om fod fet few FR ON «o o™% foe fe bt (= | = 


QOPrweanNHOAONANAOOMs+L 


ont FR EN 


Net Nat NeW ed Set Net wt CP oe ew er 


FBTHISLB 
FBTHISLN 


oe + wa te OD a Tap ae? GD oe am 


FBFUNAME 
FBFLAG 


FBSYNT 


FBLISTL 


THIS LINE'S LABEL'S NAME 


-_ sw ae Pw ee ew es ee em em em) os ee ae wes @ a ap om am oo ap @ om @ ww =a a ev GS ew ow a 


NAME OF THIS FUNCTION OBJECT 

USED BY ITLINEQ TO SIGNAL COUNT OF 
HAMES FOUND. Q=FUNCTICN-NAME ONLY. 
USED BY ITLINED TO RETURN SYNTS&X 
CLASS; SET TO SBITFUNO, SBITFUMI, 
OR SBITFUN2 

"¥-FBLIST™ LENGTH OF LIST FOR 
CLEARING 
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SERV) 


This is the file extent block used by the CICS/VS executor which 
describes the library extents for AP 121 and scroll files. It is 


mapped by the APLKFEB macro. 
LENGTH NAME 


TYPE 


DESCRIPTION 


SIGNED 
SIGNED 


DIRECTORY ENTRY LENGTH 
RESERVED 


UNSIGNED 
CHARACTER 
CHARACTER 
CHARACTER 
UNSIGNED 


FEBLIBNO 
FEBWSNAM 
FEBFNAME 
FEBIDENT 
FEBCODE 


USER LIBRARY NUMBER 

FILE NAME 11 CHARACTERS 
TRUE FILE NAME 8 CHARS 
FEB IDENTIFIER HEX FFXXXX 
UNIQUE FEB CODE HEX FF 


SIGNED 
CHARACTER 
Lee. wee, 
.| 
os ee 
Jl... 
fl. 
1, 


weer weed 
CHARACTER 


ho AAS 


FEBSEQ 
FEBTYPE 
FEBFREE 
FEBFEB 
FEBUPROF 


FEBCICS 
FEBPUB 


FEBPRIV 
FEBFLAG] 


FEBSHR 


FEBPASW 
FEBLOCK 


SEQUENTIAL FEB NUMBER 
TYPE BYTE 

FREE SPACE RECORD 
THIS IS A FEB 

USER PROFILE BIT 
RESERVED 

CICS DIRECTORY ENTRY 
PUBLIC LIBRARY 


RESERVED 

PRIVATE LIBRARY 
FLAG BYTE 1 
RESERVED 

FILE CAN BE SHARED 
RESERVED 


WS OR FILE HAS PASSWORD 
USER IS LOCKED 


SIGNED 


FEBNUMEX 


NUMBER OF 8 BYTE EXTENTS 


FEB (CICS, 
OFFSETS 

0 (0) 

0 (0) 

0 (0) 

2 (2) 

sf) (4) 

6 (4) 

7 (7) 

7 (7) 

15 (F) 

15 (F) 

16 (10) 

18 (12) 

19 (13) 

290 C14) 

24 (18) 

24 (18) 

28 C10) 


UNSIGNED 


FEBFCRBA 


Licensed Material—-Property of IBM 


302 


VS APL Program Logic 


FIRST RBA IN THE ALLOCATION 











CROSS REFERENCE 


FEB 
FEBCICS 
FEBCODE 
FEBEXTNT 
FEBFCRBA 
FEBFEB 
FEBFLAGL 
FEBFNAME 
FEBFREE 
FEBHEADR 
FEBIDENT 
FEBKEY 
FEBLENHW 
FEBLIBNO 
FEBLOCK 
FEBNUMCI 
FEBNUMEX 
FEBPASW 
FEBPRIV 
FEBPUB 
FEBSEQ 
FEBSHR 
FEBTYPE 
FEBUPROF 
FEBWSNAM 


0 
18 


< 
a dd a ee 
= 


mR A 


»< 


NE EE RAK 
~~ 2 et 2k 2 2 6 PO? rR rR A et PK pe 
MNININIOEQOOACOHOATNOAS~YAWPHMPOWONECO 
-* 


wOew Ow PEAY wr eee Owe Owwuw Ow 
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FFLD (VSPC) 


FSM internal auxiliary processor for VSPC. Each display screen 
field defined by the user to the FSM auxiliary processor 15 
described in an FFLD entry in the FSMFLD table. The FSM work 
area contains the variable size FSMFLD table. This control block 
is mapped by the APLPFSM macro. 


This is the display screen field information table entry for the 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 0 FSMWORK 
0 (0) SIGNED 2 FSMSCRNL LTH OF DATA IN SCREEN BUFFER 
2 (2) SIGNED 2 RESERVED 
& (4) CHARACTER 3836 FSMSCRN FSM AP SCREEN BUFFER 
3840 (F000) SIGNED 2 FMAXROW FSM SCREEN MAX ROW 
3842 (F002) SIGNED 2 FMAXCOL FSM SCREEN MAX COLUMN 
3844 (F004) SIGNED 4 FSMCURSR CURSOR SETTING FOR WRITE COMMAND 
3844 (F049) SIGNED 2 FSMCROW ROW 
3846 (F06) SIGNED 2 FSMNCCOL COL 
3848 (F038) SIGNED © 4 FSMPARMD DISPLMT TO FSMPARM 
3852 (FOC) SIGHED 4 FSMPARMN # ELEMENTS IN FSMPARM 
3856 (F110) SIGNED 4 FSMPARMR # REMAINING FSMPARM SLOTS 
3860 (F14¢) SIGNED 4 FSMVFN # FLD NUMBER INTEGERS IN VF-SAVE 
3864 (F118) A-ADDRESS 4 FSMWFLDC10) FSM SUBROUTINE WORK AREA 
39904 (F4&0) A-ADDRESS 4 FSMSSAVE BASE REGISTER SAVE FOR LEVEL~-E , 
SUBROUTINES: FSMSUBI1,FSMSUB3 
FWORKL "¥-FSMWORK" LTH FSMNORK HEADER 
3908 (F4¢4¢) SIGNED 4 FSMFLD FORMAT FIELD DESCRIPTION TABLE 
(SEE FFLD DSECT) 
3908 (F444) SIGNED 4 FSMPARM PARAMETER LIST FOR VSPC TFSCRN 


SERVICE REQUESTS. ALSO USED AS 
V-SAVE AND VF-SAVE AREA 


=e eee ee eee ae eee eee eee eee eee eee ee ee ee ae eee eee 
aT eee Se See eee eee ee eee eee eee eee ee 


FFLD DSECT 
DESCRIBES FSMFLD ENTRY CONTAINED IN FSMWORK.FSMFLD LIST 
0 C0) STRUCTURE 0 FFLD ) 
9 (0) SIGNED 4 FLOC FLD POSITION CUPPER LEFT CORNER) 
0 (0) SIGNED 2 FROW ROW 
2 (2) SIGNED 2 FCOL COLUMN 
q (4) SIGNED 4 FSIZE FLD SIZE 
4 (4) SIGNED 2 FWID FLD WIDTH CNUMBER OF COLUMNS) 
6 (6) SIGNED 2 FHT FLD HEIGHT CHUMBER OF ROWS) 
8 (8) SIGNED 4 FFLDNO FLD IDENTIFICATION NUMBER. FOR 


FLD#0, FFLDNO=TOTAL NUMBER OF FFLD 
ENTRIES IN FSMFLD. 
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FFLD (VSPC) continued 





OFFSETS TYPE LENGTH NAME DESCRIPTION 
i2 (C) SIGNED 2 FMROW DAT ROW NUMBER ASSOCIATED WITH FLD 
14 CE) HEX 7 FSHORTR SHORT-ROW BIT FLAGS O=ROW 
LTH=FLD WIDTH 1=ROW LTH=FLD 
WIDTH-1 
21 €15) HEX 1 FATTR FIELD ATTRIBUTE FLAGS 
FATTR DEFINITIONS 
see eee FDISPN "X'O1'™ DISPLAY INTENSITY NORMAL 
-1. FDISPH "X'02°" DISPLAY INTENSITY 
HIGHLIGHT 
-l.. FDISPC "K'OG'™ DISPLAY INTENSITY 
CONFIDENTIAL 
»-- Ll... FAPPEN wxX'O8*" LIGHT PEN SENSITIVE 
».el .... FNUM "X'10'" NUMERIC INPUT 
~-1l. we... FPROHT "X'20'". PROTECTED 
re FAPPENA "X'40'* LIGHT PEN ATTENTION 
Ll... wees FFSMPEN "X'8O0'" LIGHT PEN SENSITIVE 


IF FFLAG.FFPENDA=PENDING ATTRIBUTE-CHANGE, THEN 
FATTR.FAPPEN INDICATES USER REQUEST TO CHANGE FIELD 
TO OR FROM PEN-SENSITIVE, AND FATTR.FFSMPEN INDICATES 
CURRENT PEN ATTRIBUTE STATE OF FIELD. 

22 (16) HEX 1 FFLAG FLAG 


I el 
awa eS ST SE eS aE ee Se Se SS eee Pr Oe eter eae et eae ett ert ere ert lc er Cette er ee eer er ert err eer ert erthOc th l SE hCUctUeE Ue ee eee Oe eee o 


. FFUNDF extort UNDEFINED FLD 
ae FFPENDA "X'O2'" PENDING ATTRIBUTE CHANGE 
a. FFSHORTR "X'O¢'" FLD CONTAINS SHORT ROWCS) 
ta FEMAXMID "X'OR'® FLD WIDTH=SCREEN MAXIMUM 
doll FFEVE ext1o'* FLD NUMBER NAMED IN CTL VF 
VECTOR FOR KRITE COMMAND 
23 (17) HEX 1 FBADGEL LTH{BADGE DATA) 
24 (18) SIGNED 4 FBADGE BADGE DATA POSITION 
24 (18) SIGNED 2 FBROW ROW 
26 (1A) SIGNED 2 FBCOL COLUMN 
a Sve WI FSMELDL %—FFLD! 
TFSCRN-READ FIELD SPECIFICATION DSECT 
Q (0) STRUCTURE 0 TRFEPARM 
0 (0) SIGNED 4 TREOPT FLD SPECIFICATION FLAGS 
TREOPT VALUES 00 ER 
TREMDT "X'200'" MODIFIED DATA (MDT) 
4 (4) SIGNED 4 TRFROW FLD POSITION ROWCUPPER LEFT 
CORNER) 
8 (8) SIGNED 4 TRFCOL FLD POSITION COLUMN 
12 (C) SIGNED 4 TRFWID FLD WIDTH 
16 (10) SIGNED & TREDAT DATA POSITION 
20 (14) SIGNED 4 TREDATL FLD AREA=TOTAL DATA LENGTH 
veal lee. TRFEPARML "¥—TREPARM" 
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FFLD (VSPC) continued " 
OFFSETS TYPE LENGTH NAME DESCRIPTION 7, 


aa eS eS eee ee ee Se eS ee eS et Se Se ee ee ee et Se ee eee eee ee eee ee eee eee ee eee eee eee ee eee 
ee ee 6 i i i i el 


0 (0) STRUCTURE 0 TRRPARM 
0 C0) SIGNED” 6 RESERVED 
—@ ~~ (4) SIGNED ¢ TRRCURSR CURSOR SETTING AFTER READ 
 @ ~~ (4) SIGNED” 4 TRRCRON RN 
8 «= (8) SIGNED ¢ TRRCCOL COLUMN 
412 (C) SIGNED 4 TRROPT REQUEST OPTION FLAGS 


TRRGET "x'oOL '' GET DATA FROM VSPC 
WORKAREA 
wad. TRRREAD "y?tgo2'* READ DATA FROM SCREEN 
11.. TRRCODE "TRROPT™ COMPLETION CODE 
TRRCODE VALUES | 
weee weed TRRPROG "7" PROGRAM REQUEST 
a TRRENT wow ENTER KEY 
weil TRRPEN "3 SELECTOR PEN ATTENTION 
wi... TRRCLEAR "4" CLEAR KEY 
.1.4 TRRBADGE "5" BADGE 
TRRPF1 "1001" PF-1 KEY 
TRRPF2 "1002" PF-2 KEY 
TRRPF3 "1003" PF-3 KEY 
TRRPFG "1004" PF-4 KEY 
TRRPFS "1005" PF-5 KEY 
TRRPF6 "1006" PF-6 KEY 
TRRPF? "1007" PF-7 KEY 
TRRPF8 "1008" PF-8 KEY 
TRRPF9 "1009" PF-9 KEY 
TRRPF1O "1010" PF-10 KEY 
TRRPRil "1011" PF-11 KEY 
TRRPRi2 "1012" PF-12 KEY 
TRRPAL "2001" PA-1 KEY 
TRRPA2 "2002" PA-2 KEY 
TRRPAS "2003" PA-3 KEY 
16 (10) SIGNED 4 TRRMROW DISPLAY SIZE (MAX ROW) 
20 (14) SIGNED 4 TRRMCOL DISPLAY SIZE (MAX COLUMN) 2 
...l1 1... TRRPARML *-TRRPARM* 


0 (0) STRUCTURE 0 TWFPARM 
0 C0) SIGNED 4 TWFOPT FLD SPECIFICATION FLAG 
TWFOPT DEFINITIONS ; 
aeee eoel TWFDATA "X'OL'" FILL FLD WITH DATA 
weee ool, TWFERASE "X'O2'" ERASE FLD 
.l.. TWFATTR "X'O¢'" SET FLD CHARACTERISTICS 
~-+- Ll... TWFDISPN "X'O8'™ DISPLAY INTENSITY NORMAL 
~-L 2... TWFDISPH "X'1O'™ DISPLAY INTENSITY 
HIGHLIGHT 
~l. 1... TWFDISPC "X'20°" DISPLAY INTENSITY 
CONFIDENTIAL 
-1.. 01... TWFPEN "X'G40'" SELECTOR PEN SENSITIVE 
Yr... wee. TWFNUM "X'80'" NUMERIC INPUT FLD 
TWFPROHT "X*"100°" PROTECTED FLD 
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FFLD (VSPC) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
- @~~«©(4) SIGNED” 4 TWERONW | FLD POSITION ROWCUPPER LEFT = 
CORNER) 

8 (8) SIGNED . a 4 TWECOL + +FLD POSITION COLUMN. =—t—<Ci=‘“S 
“42 ~~«(C) SIGNED)” ¢ TWEWID FLD WIDTH © 
16 (10) SIGNED” 4 TWEDAT | ~~—~«S*DATA POSITION INDEX(ORIGIN 1) 
20 «(14) SIGNED.” 4 TWEDATL = FLD AREA=TOTAL DATA LENGTH 
woe ence e ett tt eee TWFPARME ______ wT TWEP ARO Lo ______---------eeeee 
TFSCRN-WRITE REQUEST HEADER DSECT = 
90) STRUCTURE 0 TWRPARM 
9 (0) SIGNED  @© RESERVED 
 & ~~ (4) SIGNED. 4 TWRCURSR CURSOR SETTING AFTER WRITE > 
 @ ~~ 4) « SIGNED” 4 TWRCROW RW 00 
8 «¢8) SIGNED” ¢ TWRCCOL COLUMN 
12. (©) SIGNED 4 TWROPT _——_=_REQUEST OPTION FLAGS 
TWROPT DEFINITIONS 2 2) EES 

eeeees a TWRMDTR "X'OG'™ RESET MDT 

1... TWRBUZZ "X'98'" SOUND ALARM 

16 (10) SIGNED —™” $0000 RESERVED = 
20 «(14) SIGNED —t*”~” $0 RESERVED = | 
a ee TWRPARML UXT TWRP ARM Meee eee ee eeceeeeeecece 
TFSCRN-PAGE REQUEST HEADER DSECT © 
90) STRUCTURE 0 TPRPARN 
9 ~(O) SIGNED” 4 RESERVED 
"@ ~~ 4) SIGNED: $4. ©. RESERVED  ——— 
--& - (8) SIGNED” ¢ RESERVED 
12, _ (C2 SIGNED 4 _TPROPT REQUEST OPTION, 
TPROPT DEFINITIONS —————~S~—~SsSee 

eee weed TPRHCOPY "X'OL'™ MAKE HARDCOPY OF SCREEN 
“46 (10) SIGNED ¢@ | RESERVED = 
20 (14) SIGNED =64.OOt~C~=‘S RESERVED 

veel Lege TPRPARML "¥—- TPRPARM" 
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CROSS REFERENCE 


FAPPEN 
FAPPENA 
FATTR 
FBADGE 
FBADGEL 
FBCOL 
FBROW 
FCOL 
FDISPC 
FDISPH 
FDISPN 
FFLAG 
FFLD 
FFLDNO 
FFMAXWID 
FFPENDA 
FFSHORTR 
FFSMPEN 
FFUNDF 
FFVF 

FHT 

FLOC 
FMAXCOL 
FMAXROW 
FMROW 
FNUM 
FPROHT 
FROW 
FSHURTR 
FSIZE 
FSMCCOL 
FSMCROW 
FSMCURSR 
FSMFLD 
FSMFLDL 
FSNPARM 
FSMPARMD 
FSMPARMN 
FSNPARIMR 
FSMSCRN 
FSMSCRNL 
FSMSSAVE 
FSMVFN 
FSMWFLD 
FSMWORK 
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X'08' 
X"G0! 


oF FH FR OF 


om KK OK 


=POQonrnrn 2@ 4€erOogornr «424242 4 2 2M © 2 @ FR (= (== (= ft 


mK KK OK OK OK 
BOQODODHIOASHLOVWDA DOBLE HOHHPHRHAHMONWVNHKOONMOCK VOAWMOECEWMWOREQOTON SYP 0M 


te ee ee O08 Or Br er te er a es a a 8 09 os a a la a a BOY ww DRO DA OY ww VEDA Dw ww Vwwwe 


TPRPARML 
TRFCOL 
TREDAT 
TRFDATL 
TRFEMDT 
TRFOPT 
TRFPARM 
TRFPARML 
TRFROW 
TRFWID 
TRRBADGE 
TRRCCOL 
TRRCLEAR 
TRRCODE 
TRRCROW 
TRRCURSR 
TRRENT 
TRRGET 
TRRMCOL 
TRRMROW 
TRROPT 
TRRPARM 
TRRPARML 
TRRPAL 
TRRPA2 
TRRPAS 
TRRPEN 
TRRPF1 


TRAP L 0 


RRFFL 
TRRPF2 
TRRPFS 
TRRPF4 
TRRPFS 
TRRPF6 
TRRPF? 
TRRPF8 
TRRPF9 
TRRPROG 
TRRPRIL 
TRRPR12 
TRRREAD 
TWFATTR 
TWFCOL 
TWFDAT 
TWFDATA 
TWFEDATL 
TWFDISPC 
TWFDISPH 
TWFDISPN 
TWFERASE 
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f\Se~ A 


ae oe AS | 
HPHEAMNO CMMI LOCOS Oana 


~_ 
NN 
DS De te at DC ae at ee fe fe et Fe ee bs ee OK A) ND A OK 


mad 


A = 
Seqodoconoa0aoanreond) 


MK KK AKA 


mem NK 


x 


mK OK 
ae ee 8 alt nd i ae a i a ae ae ae ee) on 


OOoreVNLPOOBWPMIOFFK OOOO COCO COFPOEO OC OCOrFPOM SLOG O SL LHPAOOBWOO FEO OCOF LOCH- 
MOSOvkBenvyvANN EH & OOMAUEPUN CO MUWN Oe Yee wR NYY ODY UY Ye @BuvwNuwvw & 
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TWFNUM 
TWFOPT 
TWFPARM 
TWFPARML 
TWFPEN 
TWFPROHT 
TWFROW 
TWFWID 
TWRBUZZ 
TWRCCOL 
TWRCROW 
TWRCURSR 
TWRMDTR 
TWROPT 
TWRP ARM 
TWRPARML 


fo pao a | 


= j= 
COaQaWNML HLSOMNH aQqooosd 


N 
x 


x< 


eamernf} « csr «a 


KOQofrLeoonfluheoo® 
OO ws ws Dw ww OCOwwe KMOBww Oo 


x XK 


x< 
or 
@ 


< 
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FHED (CONV, NTRP) 


This is used by the interpreter and defines the fixed fields of 


VS APL function headers. 
control block 
of the header of 


LENGTH 


is mapped by the APLFHED macro. This 


is mapped by the APLFHED macro. The fixed fields 


NAME 


a defined function are shown belown. 


DESCRIPTION 


Lael nel ee ee ee ee ee ee ee ee ee ee, ee ee ee ee 


be ee ee ee se ee 8 i i et i ld 


LINE COUNT 
OFFSET, FHEDDN TO TAIL 


a ee ee eee eee ee eee ee ee ee es eee ee eee eee ee eee ee 


OFFSETS TYPE 

0 (0) STRUCTURE 
0 (0) SIGNED 
& (4) SIGNED 
6 (6) SIGNED 
(8) SIGNED 

~..-e Lecl 

»eel woe, 

~-ll .... 

wee eeel 

--l. 

1... 
10 CA) SIGHED 


FHEDS 
FHEDBITS 
FHEDLOCK 
FHEDMAG 
FHEDQUAD 
FRHEDEXEC 
FHEDTSOK 


TRANSLATOR FLAGS 

"FHEDS+1" FLAG BITS FOR TRANSLATOR 
"X'1TO'". LOCKED FUNCTION 

"X'SO'". MAGIC FUNCTION 

"X'OL'. QUAD-INPUT TEMFORARY 
"¥'C!]'". EXECUTE TEMPORARY 

"X'CG4'™ TIMESTANP PRESENT BEFORE 
TAIL 

GO+38XNUMBER OF LOCALS 


le (CC) SIGHED 
14 CE) SIGNED 


FHEDZ 


NAME CF RESULT; 00 
NAME OF L. ARG; 00 


eee eee eee eee ee eee eee ee eee ee 


16 (10) SIGNED 
weed, 


CROSS REFERENCE 


FHED 
FHEDBITS 
FHEDDN 
FHEDEXEC 
FHEDK © 
FHEDL 
FREDLOCK 
FREDLOCL 
FRECM | 
FHEDMAG 
FREDQUAD 
FHEDR 
FHEDS 
FYEDT 
FHEDTSOK 
FHEDZ 


t= = be 
NOAA MO OLAS HLOMOWO 


_— 


OOAOODOMWLEePMPaaeoo 
Net EN et ue et fe? OY TA CO ws we FD es 0 we 


— 


FHEDR 
FHEDLOCL 


NAME OF R. ARG; GOO01 IF NOKE 
"4". START OF LOCAL NAMES 
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FSP (cIecs, 


OFFSETS 
9 (0) 
0 (0) 
0 (0) 
2 (2) 
4 (4) 
4 (4) 
7 (7) 
8 (83) 
18 (12) 
19s (13) 
20 (14) 
2G (18) 
26 = (1A) 
28 (10) 


SERV) 


This is the free space descriptor used by the CICS/VS executor, 
and describes the VS APL library data set with the number of 


control 
macro. 
TYPE LENGTH 
STRUCTURE 30 
CHARACTER 4 
SIGNED 2 
SISNED 2 
CHARACTER 14 
CHARACTER 3 
BITSTRING 1 
CHARACTER 10 
CHARACTER 1 
Il... weer 
1... 6.... 
a: 
~-l wee. 
~. Li... 
. Le. 
. ael. 
eee ceed 
CHARACTER 1 
| 
a 
SIGHED G 
STGNED 2 
SIGNED 2 
SIGNED 2 


CROSS REFERENCE 


FSP 
FSPCIcs 
FSPENQED 
FSPFEB 
FSPFLAGI 
FSPFREE 
FSPFSCI 
FSPFTYPE 
FSPHEADR 
FSPINVLD 
FSPKEY 
FSPLBYTB 
FSPLCIBY 
FSPLENHW 
FSPLIBCE 
FSPLIBN® 
FOPNATIE 
FSPPRIV 
FSPPUB 
FSPUPROF 


0 (0) 
18 X'08' 
19 X'40° 
18 X'40! 


ae 
oo 
on NRA 


Se ee an te 8 le al ae ee ae ed ee 
PNAOQoOnHeFraoarnadnfPaodonwcoaw 
OLS Rt wee ee 8 ee ee ee Oe es ee Oe 


~~ 
*) 
* 


a PQ 
sw i 1D © ON 
r™ ars 


bh 
oe 
* «> 


intervals allocated, 


FSPLIBNO 
FSPNASE 


FSPFTYPE 
FSPFREE 
FSPFEB 
FSPUPROF 


FSPCICS 
FSPPUB 


FSPPRIV 

FSPFLAGI 
FSPINVLD 
FSPENQED 


FSPFSCI 
FSPLCIBY 


FSPLBYTB 
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etc. It is mapped by the APLKFSP 


DESCRIPTION 


DIRECTORY ENTRY LENGTH 
RESERVED 


LIBRARY NUMBER ‘'000000'°X 
"O01'X FOR FREE SPACE RECORD 


ALL ZEROS 

FILE TYPE: 

FREE SPACE RECORD 
FILE EXTENT RECORD 
USER PROFILE BIT 
RESERVED 

CICS DIRECTORY ENTRY 
PUBLIC LIBRARY 
RESERVED 

PRIVATE LIBRARY 

FLAG BYTE 1 

LIBRARY IS INVALID FLAG 
LIBRARY ENQUEVE FLAG 


LIBRARY FREE SPACE CI COUNT 
NO. OF BYTES IN LAST FREE SPACE 


NO. OF BITS IN LAST FREE SPACE 
BYTE 


J 











GBL (CICS, 


XSYS, AP) 


This is the CICS/VS APL global table. It is the primary anchor 


for all CICS/VS APL control blocks. 


The GBL is located at the 


beginning of module APLKASTB and is pointed to by the PTK and 
the user task TWA (the CICS/VS transaction work area). This 
iS mapped by the APLKGBL macro. 


control block 


LENGTH 


TYPE 


NAME 


DESCRIPTION 


ee ee a ee es ee ee ee ee ee ee se ee a a ea ae ee a ee ee ee ae 


i ee ee ee ees eee ee ee ee ee eee eee eee ee ee ee eee eee ee ee ee ee ee 


—_— oe eee ee eee eee eee ee ee ee eee eee eee ee eee ee eee ie 


CHARACTER 
-1.. 
el. 
~-l .... 
» i... 
weee ode, 
BITSTRING 
CHARACTER 
SIGNED 


ro 


GBLFLAG1 


GBLGUP 
GBLINTRP 
GBLNMICR 
GBLMICRO 
GBLPFO 
GBLFLAG2 


GBLCSGN 


MISC FLAGS 

RESERVED 

GLOBAL TABLE IS INIT-D 
INTERPRETER IN CONTROL 
UCODE ASSIST UNAVAILABLE 
MICROCODE ASSIST AVAILABLE 
PAGE FAULT BEING HANDLED 
RESERVED 

SIGNON CONTROL . 

NR OF USERS CURRENTLY ON 


ee es ee eee eee ee eee ee eee ee eee eee ee ee ee ee es ee ies see ee ee ee ee ee ee ee ee 


OFFSETS 
0 (0) 
0 C0) 
4 (4) 
4 (4) 
8 (8) 
12 CC) 
16 C10) 
20 (14) 
24 (18) 
24 (18) 
28 C1C) 
32 (20) 
36 (249) 
40 (28) 
44 C(2C) 
48 (30) 
52 (349) 
56 (38) 
56 (38) 
57 C39) 
58 C3A) 
58 CSA) 
60 C3C) 
64% (40) 
68 (44) 
72 (48) 
72 (48) 
76 (4C) 


A~ADDRESS 


GBLDSERV 


ADSP SERVICE ENTRY POINT T 
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GBL (CICS, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION J 
80 (50) A-ADDRESS 6 GBLBEXIT ABND EXIT ROUTINE INTRFC 2 
84 (54) A-ADDRESS 6 GBLBSTRT NEW PROCESS START INTRFC =~ 
$8 (58) CHARACTER 20 LEB SERVICES FIELDS 
88 (58) A-ADDRESS 4 GBLRDIR EP TO READ-DIRECTORY RTN tits 
92 «(5C) A-ADDRESS 4 GBLLIBE EP TO LIB FILE SERVICES i (ists 
96 (60) A-ADDRESS 4 GBLFRSPC ADDR OF FREESPACE MAP tst—~w™S 
“100 (64) A-ADDRESS 4 GBLFSDES | TO FREESPACE DESCRIPTOR }»~—> 
106 (68) A-ADDRESS 4 GBLFILEC HEAD OF FAB CHAIN, = =——s—~CS~S~S 
“108 + 4(6C) CHARACTER 12 LIBRARY TASK FIELDS 
108 «(6C) A-ADDRESS 4 GBLLIBS ROUTINE STARTS LIB TASKS —t™*S > 
“112 (70) BITSTRING 4 GBLN@ECR STRING ENQUEVE ECB i (tt~S 
Liv. wees OS/VS WAIT BIT 
wl.. ue GBLNQECO OS/VS POST BIT 
..11 1111 
113. (71) 1441 1191 UNUSED 
114 (72) 1... . GBLN@ECD DOS/VS POST BIT 
“116 (74) SIGNED” 2 GBLMXSTR + +«TOT # OF APLDIR STRINGS 
118 (76) SIGNED 2 GBLCSTR # APLDIR STRINGS IN USE 
“120. (78) CHARACTER 40 INTERPRETER INTERFACE 
“120. (78) CHARACTER 8 GBLINTRA ~—s'INTERPRETER ADDRESSES (sti(it~—~S J 
120. (78) A-ADDRESS 4 GBLINTL | LOW END OF INTERPRETER —~«~* 
124«(76) A-ADDRESS 4 GBLINTH HIGH END OF INTERPRETER =—«*S 
128 (80) A-ADDRESS 4 GBLADSPL © +=LOW END OF APLKADSP i (astti(i‘i—s—~™S 
132. (84) A-ADDRESS 6 GBLIRESM EP TO INTERPRETER RESUME  =—~ 
“136 (88) A-ADDRESS 4 GBLQUEND QUANTUM END ENTRY POINT 3 =” 
“140 (8C) A-ADDRESS 4 ~«GBLIRET ~~” R14 ON ENTRY TO KIFIX | 
144 (90) BITSTRING 8 GBLOLDIT OLD ITTAB ENTRY = a sst—~S~S -, 
(152. (98) SIGNED” 4 GBLTTINE TIMER RESIDUE =——<“—i‘“‘S:; COCSCS*# 
156 (9C) A-ADDRESS q. © RESERVED 
“160 (AO) CHARACTER 8 | DOS/VS ONLY FIELDS 
“160 (AO) A-ADDRESS 6 GBLPFC PAGE FLT CONTROL AREA tt—~S 
164 (AG) A-ADDRESS 4 ~«GBLPFAP|=———=«<—PCSTO PG FLT APPENDAGE =©=——S™” 
“168 +(A8) CHARACTER 0 END OF GLOBAL TABLE = = ————™ 
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CROSS REFERENCE 


GBLINTRA le 


GBL 0 6 
GBLADEF i2 ¢ 
GBLADSPL 128 (8 
GBLAICBA 52 (3 
GBLBEXIT 80 (5 
GBLBSERV 72 (4 
GBLBSTRT 84 (5 
GBLCSA 48 (3 
GBLCSGN 58 (3 
GBLCSTR 118 (7 
GBLDEST 16 (1 
GBLDSERV 76 (4 
GBLFILEC 104 (6 
GBLFLAGI 56 (3 
GBLFLAG2 57 (3 
GBLFRSPC 96 (6 
GBLFSDES 100 (6 
GBLGUP 56 X'40* 
GBLHIST 8 6 
GBLHISTD 40 C2 
GBLINIT G ¢ 
GBLINTH 124 (7 
GBLINTL 120 (7 
7 
t 


GBLINTRP 56 
GBLIRESM 132 
GBLIRET 140 


HY PWDOHDOANMLAMWMHRODO LOC HBDEKHK HADAAOA SMOSOOHSOeSDHLOVUAONOOCP EO LAeORAAS 
ee a et a ee ee ee te eee oO oe ae 008 ee eee 0 ee ee ee eee ee eee te ee ee 


( 

( 

C 

x 

(8 

(8 
GBLLIBF 92 (5 
GBLLIBS 108 (6 
GBLLSGN 64% (4 
GBLMICRO 56 X'08' 
GBLMXSTR 116 ¢7 
GBLNMICR 56 X'105 
GBLNQECB li2 ¢? 
GBLN@ECD 114 x-30' 
GBLNGECO Li2 X'40° 
GBLOLDIT 144 (9 
GBLOPSYS 28 (1 
GBLPFAP 164 (A 
GBLPFC 1690 (A 
GBLPFO 56 X'04' 
GBLPRM 36 (2 
GBLQUEND 136 (8 
GBLRDIR 88 (5 
GBLSGN 60 (3 
GBLSSM 0 (¢ 
GBLTRAN 64 (2 
GBLTRQ 32 (2 
GBLTTIME 1352 69 
GBLVCT 24 (1 
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Gpc (VSPC, XSYS, AP) 


This is the VSPC AP 126 and GDDM interface common area format. 
It 15 mapped by the APLPGDC macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 480 GDCOMMON, =i (ttsti(i‘“C:;‘:;!;!!OO 
~-0~—«(0) ASADDRESS = ~=SCGDCAPFTO.™” OFFSET OF APFT 
@ ~—«(4@) ~A-ADDRESS) == GDCPATCUDC™*” CURRENT PATH BLOCK OFFSET = 
8 ~~ (8) A-ADDRESS 28s GDCPATPT. ARRAY OF PATH POINTERS  =—™” 
36 «© (24) BITSTRING 1 GDCFLAGS FLAG BYTE ii‘“‘s‘~; 
Lie. wae ERRSTOP TERMINATING ERROR STOP 
1... GETFLOAT RETURN NEXT ITEM AS FLOAT 
> PERFORM FOR ASQFLD, DO REQUEST 
37. (25) UNSIGNED 1 GDCOTYPE OUTPUT CTL VAR DATA TYPE 
38 (26) SIGNED 2  GDCREACD AP 126 ERROR: REASON CODE 
G0 (28) A-ADDRESS = 4 ~«<GDCICTLO.™” OFFSET OF INPUT CTL VAR” 
464 (20) SIGHED” 4 GDCINELM NUMBER OF INPUT CTL ELEM 2 
68 ~«(30) SIGHED” 4 GDCINCNT | INPUT CTL ELEMENT COUNTER 
52 (34) A-ADDRESS = 4 «<GDCIDATO.™” OFFSET OF INPUT DAT ELEM 
56 (38) SIGNED © GDCIDATN ACTUAL LENGTH OF INPUT DAT = 
60 (30) SIGHED.” ¢ GDCDINLN ‘EXPECTED LENGTH OF INP DAT 3s” 
64 «€40) SIGNED += +GDCCONVI CONVERT RTN INTEGER OUTPUT =~” 
64 ~«(49) BITSTRING | 4 GDCCONVF | CONVERT RTN OUTPUT (FLOAT) =—s—™ 
68 (44) SIGNED 4 GDCREQCD GDDM FUNCTION REQUEST CODE =~ 
72 (48) A-ADDRESS = + GDCENTPT «ADDRESS OF TABLE ENTRY ——™” 
76 (40) A-ADDRESS 4 GDCOCTLO. OFFSET OF CTL OUTPUT BUFF t™” 
80 (50) SIGNED” ¢ GDCSZCTL ~—~sLENGTH OF CTL OUTPUT BUFF) 
84 (54) A-ADDRESS = 4 ~=GDCOUTPT OFFSET OF CTL OUTPUT ELEM ——t«*S 
88 (58) A-ADDRESS 4 GDCRCVPT OFFSET OF CTL RETURN CODE =———s™S 
920~«(5C) SIGHED)” ¢ GpcouTcr OUTPUT CTL ELEMENT COUNTER 
96 (60) A-ADDRESS 4 GDCODATO. OFFSET OF DAT OUTPUT BUFF” 
(100 (64) SIGNED 4 GDCSZDAT | ~—s LENGTH OF DAT OUTPUT BUFF” 
104 (68) A-ADDRESS 4 GDCDOUTP OFFSET OF DAT OUTPUT ELEM 8 =—t™” 
“108 «(6C) A-ADDRESS 4 GDCQSAVE R14 SAVE AREA FOR QFLD RIN” 
“112. (7D) A-ADDRESS 4 -«sGDCHSAVE™” R14 SAVE AREA FOR NEXT RIN 
“116 «(74) SIGNED $ 0000”~”COSPARE 
“120 (78) SIGNED” 16 GDCTWORK TEMPORARY VAR WORK ARRAY =” 
“136 (88) SIGNED 4 GDCVWORK = TEMPORARY VAR WORK WORD” 


Licensed Material-—Property of I5M 
314 VS APL Program Logie 





XSYS;, 


TYPE 


AP} continued 


LENGTH NAHE 


DESCRIPTION 


BITSTRING 
UNSIGNED 
SIGNED 


VORK BYTE FOR BIT MASKING 
SPARE 
SPARE 


=e es i eee eee eee eee ee eee eee eee ee ee es eee ee ee ee ee ee ee eee ee 


TAXTMUM NUMERIC PARAMNETE®S 


— eee eee eee ee eee eee eee ee ee eee ee ee 


I A 


=e ee ee ee ee eee ee ee ee ee ee eee eee eee 


BITSTRING 
| 
BITSTRING 
lL... 1... 
-l.. 
-l. 
».-L oo... 
~.e. Ld 
SIGNED 


GDCXFLGS 
GDCXHOPH 
GDCXROPT 
GDCXPASS 
GDCXNOPG 


GDCXRNUM 


GDPEX FLAG BYTE 
HAROCCPY DESTINATION OPEN 


GDEX OPTION FLAGS 
RESERVED 

THIS 15S A PASSTHROUGH REQ 
RESERVED 


NO PAGE SELECTION REQUIRED 
RESERVED 
NUTIBER OF GDDM PARMS 


PAGE SEL REQ NATIE OFFSET 


PAGE SEL PAGE NO. OFFSET 


— eee ee eee ie eee eee ee eee ee ee eee eee ee ae ee ee 


=e ee ee ee ee ee ee ee ee eee ee ee ieee eee ee ee ee eee ee ee ee 


— ee ee ee ee eee eee se ee ee ee ee ee ees ee ei ee ee ee ee ee es ee ie 


SIGNED 
SIGNED 


GDCXRC 
GDCKRS 


GDDM RETURN CODE 
GDDi1 REASOH CODE 


me wee eS ee ee Se ee eee ee eee ee ee eee i ee eee ee ee eee ee ee eee ie 


we a wen ww a ee ee ee en ee ee ee ee ee ee ee ee ee ee ee ee eee eee ee eee 


GDC (VSPC, 
OFFSETS 
149 (8C) 
141 (8D) 
1%2 (8E) 
144 (90) 
148 (94) 
152 (98) 
156 (9C) 
160 CA0) 
192 (C90) 
193 (C1) 
194 (C2) 
196 (C4) 
200 (C8) 
204 (CC) 
208 (DO) 
240 (FQ) 
248 (F8&) 
256 (100) 
260 (104) 
264 (108) 
296 €128) 
304 (130) 
464 (€1D0) 
466 (1D2) 
68 (€1D4) 
472 (1D8) 
476 C1DC) 
480 (1E0) 


CHARACTER 


So 


GDCFREE 


FREE SPACE BEGINS 
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CROSS REFERENCE 
36 X‘*80' 


ERRSTOP 

GDCAPFTO 
GDCCONVF 
GDCCONVI 
GDCDINLN 
GDCDOUTP 
GDCENTPT 
GDCFIRST 
GDCFLAGS 
GDCFREE 

GDCICTLO 
GDCIDATN 
GDCIDATO 
GDCINCHT 
GDCINELM 
GDCNSAVE 
GDCOCTLO 
GDCODATO 
GDCOMMON 
GDCOTYPE 
GDCOUTCT 
GDCOUTPT 
GDCPATCU 
GDCPATPT 
GDCQSAVE 
GDCRCVPT 
GDCREACD 
GDCREQCD 
GDCSPACE 
GDCSZCTL 
GDOCSZDAT 
GDCTWORK 
GDCVWORK 
GDCWBYTE 
GDCWHERE 
GDCXFLGS 
GDCXHARD 
GDCXHOPC 
GDCXHOPN 
GDCXHOPT 
GDCXNMAX 
GDCXNNPO 
GDCXNOER 
GDCXNOPG 
GDCXNPBO 
GDCXPASS 
GDCXPCNT 
GDCXPGCU 
GDCXPSNP 
GDCXPSPP 
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5) 
© 
on~” 
PR PR PR PR PR OR AR OFX fet FR f* FR ARF FR FR 


“ON ON GOSONAUID ANNA AAUTANAR ANID AAANTMNDASAWHD 


COR DCDDWAOY’MODOAHA HOHOAWHOOHLAAABAROWGSGAARAROOWPHRHLOMNVGWGANA VO VWVASHWOOLHLOAOCWMOCOS 


O 
NJ 
Fy IN FX 
ws a ee 8 OO ws OD ow Ne ww 0 GD 8 we oe ote ow 0 8 8 8 et te oe te ta we ae ae es a te a te tt a ot 8 


iN 
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™ 
on 


fea DN pm? =? 0 fe 
OWA DWN © Ow 
on 


OQDRODWNWARWAHNGAN@WOCGC0OS 
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PNR A KA KR ARR KEP RRR AAA RP RAR A 


Onoco»> 


vam 
“WHwowoeo 


=O 


Nh A) be be Ot 90 FT 9 
ve 
em 


DOU BDMNDBOWLAWA 


GDCXPSRN 
GDCXRC 
GDCXREQN 
GDCXREQP 
GDCXRNUM 
GDCXROPT 
GDCXRPTR 
GDCXRS 
GETFLOAT 
PERFORM 
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S 


oe ee ee ee eee eee eee eee eee eee eee ee ee eee 


— ee ee ee eee eee eee eee ee eee eee ee eee ee eee eee eee ee eee eee ee 


La ee ee ee a ee a ee De ee ee ee a. ee De Ee 8 a 


GDM (XSYS; 
OFFSETS 

0 C0) 
0 C0) 
G C4) 
8 (8) 
12 CC) 
16 C10) 
20 C14) 
21 C15) 
22 (16) 
24 (18) 
28 (ic) 
32 (20) 
36 C249) 
40 (28) 
44 C20) 
48 C30) 
52 C34) 
56 (38) 
60 C3C) 


AP) 


This 1s the common system services GDDM request block interface 
15 mapped by the APLXGDM macro. 


for VS APL. 


TYPE 


BITSTRING 
-i.. 
~-1. 2... 
-1 4... 
. 1... 
woes ohh l 
BITSTRING 
SIGNED 


A-ADDRESS 


fh = 


> 


LENGTH NARKE 


GDMROPT 
GDMRWAIT 
GDMRPASS 
GDMRAPL 
GDMRNOPG 
GDMRDOWN 
GDMRORS 


GDMRNUM 


GDMRPTR8 


DESCRIPTION 


OPTION FLAGS 

ON FSFRCE,WAIT FOR COMPL 
THIS IS A PASSTHROUGH REQ 
GDMREQCD IS APL UNIQUE 

NO PAGE SELECTION RE@D 

ON GDMRTRM, BRING DOWN GDDX 
RESERVED 

RESERVED 

NUMBER OF FIELDS 


RESERVED 
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CROSS REFERENCE 


GDM 
GDMRAPL 
GDMRC 
GDMRDOWN 
GDMRECBP 
GDMREQCD 
GDNRLINK 
GDMRNOPG 
GDMRNUM 
GDMROPT 
GDMRORS 
GDMRP AGE 
GDIMRPASS 
GDMRPATH 
GDMRPTR1 
GDMRPTR2 
GDMRPTR3 
GDMRPTRS 
GDMRPTR5S 
GDMRPTR6 
GDMRPTR? 
GDMRPTR8 
GDMR5 
GDMRWAIT 
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0 
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24 
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Lsc (CIcS, SERV) 


This ts the ltbrary services constants for CICS/VS, and maps the 
CITs from the bit map CIs tn the VS APL library. It is mapped by 
the APLKLSC macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 22. LSCAPLIB CIT FOR BIT MAP CIS 
0 (0) SIGNED 4 LIBNO AND IDENT | 
4 (4) CHARACTER 10 OUR ID 
14 CE) CHARACTER 1 FREE SPACE IDENTIFIER 
15 (F) BITSTRING 3 RDF 
18 (12) BITSTRING 4 4K CIDF 


CROSS REFERENCE 
LSCAPLIB 0 (0) 
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MAI (XSYS, 


Se eee es eee eee ee eee eee eee eee ee ee ee eee eee ee eee ee ee 


— ee eee ee es ee ee ee eee ee eee eee eee ee ee ee eee ee ee eee ee 


eee eee ee eee eee eee ee ee a eee eee eee ee 


— eee eee eee eee eee ee ee 


—_— we ea eee eee eee eee ee eee es eee eee 


ae eee ee ee ee ee eee ee ee ee ee eee ee ee ee a 


—ee ee eee eee eee eee eee ee ee ee eee ee ee 


= See eee ee eee ee ae ee ee eee eee ee eee eee eee 


eee eee ee ee eee eee eee eee eee ee eee ee ee 


OFFSETS 

0 (0) 
0 (0) 
1 (1) 
1 (1) 
e C2) 
e (2) 
3 (3) 
4 (4) 
(8) 

8 (8) 
12 CC} 
ie CC) 
i6 C10) 
20 C14) 
24 C18) 


AP) 


This 3s the common system services main storage request bleck. 
It 1s mapped by the APLXMAI macra. 


TYPE 


SIGNED 
UNSIGNED 
WHS IGHED 


A-ADDRESS 


SIGNED 


LENGTH NATE 


MAIREQ 
MAIRQTYP 
MAIRVAR 
MAIINITE 


MAISYS 

MAIVPAGE 
MAICHIGH 
MAICL GW 


MAIKSYS 
MAIKTERM 
MAIKTRAN 
MAIK TEMP 
MAIKPROG 
MAIKSHR 


MAIGMOPT 


MAIVSUBP 
MAIIHIT 


MATWORK4 
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¥5 APL Pracram Logic 


DESCRIPTION 


REQUEST CODE 

REQUEST TYPE, O=GETMAIN, 1=FREE 
GETMAIN FIXED=0, VARIABLE=1 
=], MAITINIT HAS INIT BYTE 
KUCSERVED 


SYSTEM REQUEST FLAGS 

GETMAIN BNDRY PAGE=1, DWORD=5 
ALLOCATE FERGM HIGH AREA 
ALLOCATE FROM LOW AREA 
RESERVED 

USE OPERATING SYSTEM SERVICES 
TERMINAL CLASS GETMAIN 
TRANSIENT DATA CLASS GETMAIN 
TEMPORARY STORAGE CLASS GETMAIN 
PROGRAM CLASS GETMAIN 

SYARED TYPE GETMAIN 

reserved 

VARIOUS OFTION FIELDS 

SUBPFOOQL NUMBER FOR OS GETMAINS 
TRITIALIZATION BYTE 


VARIABLE GETMAIN MAXIMUM VALUE 
STORAGE SERVICES WORK AREA 


WIRK AREA WORD 4 











CROSS REFERENCE 


MAT 
MATADDR 
MAICHIGH 
MAICLOW 
MAIGMOPT 
MAIINIT 
MAITINITF 
MAITKPROG 
MAIKSHR 
MAIKSYS 
MAIKTEMP 
MAIKTERM 
MAIKTRAN 
MAIMAX 
MAIREQ 
MAIRQTYP 
MAIRVAR 
MAISIZE 
MAISYS 
MAIVPAGE 
MAIVSUBP 
MAIWORK 
MATWORK1 
MAIWORK2 
MAIWORK3 
MAIWORKG 


LO KhNN ©& Ooo © OOF & eee Ou OO AO 


PIhb 


KK EE EOE OE x >< 


i 


< 


ee 
OHOOOAMEGFe ODP AHOOAN SK AOOONUWNCAOAS 


wee te OO YP OoOoww OCOOCcO HPO Oww fh Hw w 


=a 86#£# eo 2s 4 FF @ ++ wi 


Sectian 5. 
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OPS (CIcs, 


— ee eee eee ees ee eee eee eee eee eee ee ee eee ee ee ee eee 


eee ee eee ee ee ees ee eee eee eee ee eee eee eee eee eee 


ee eee ee ee ee eee eee eee ee eee es ee ee ee ee eee ees ee ee 


eee eee ee ee ee eee ee eee ee eee eee ee ae ee eee eee ee eee eee eee 


= eee ee eee ee eee ee ee ee ee ee eee eee ee eee eee eee eee ee eee eee 


Ll ee ee ee ee ee ee ee ee ee ee ee ee a ee eae a a ee a a a ea ea ea eae 


bl ere Rl A i Eo i i en ee eee eet en es ee ee ee ees ee 


OFFSETS 
0 (0) 
0 (0) 
0 (0) 
4 (4) 
8 (8) 
12 (C) 
le (C) 
16 (10) 
20 (14) 
24 C18) 
28 (1C) 
28 C1C) 
32 (20) 
32 C20) 
36 (24) 
36 (24) 
40 (28) 
G4 (20) 


AP} 


This 1s the system-dependent services branch table in CICS/VS 


system-dependent modules. 


TYPE 


CHARACTER 


CROSS REFERENCE 


OPS 
OPSDATTR 
OPSDPFAP 
QPSER123 
OPSINIEX 
QOPSLCLOS 
OPSLGET 
OPSLOPEN 
OPSLPUT 
OPSPCREG 
OPSRSTEX 
OPSSETEX 


Ps) 
| a | 
"a ia 


MN 
S 
nr 


LA 

NO 

or’ 
MAAR Ae nN PPR 


PBoeweOoroo pono 
a a a A ll ge i a 


LENGTH NAME 
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75 mapped by the APLKOPS macro. 
DESCRIPTION 


END OF LIST 








PCV (ALL) 


This is the processor control vector (PCV), which contains 
information about an auxiliary processor. It 1s used in 
communication between auxiliary processor and shared storage 
manager. This control block is mapped by the APLPCV macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 

“0 (0) STRUCTURE = 24 «PCV THIS IS THE BEGINNING OF THE PCV 
0 (0) SIGNED” 4 PCVID | -—~—«ID FOR THIS PROCESSOR) —i(titsS 
 & ~~ C4) SIGNED 4 PCVQUOTA QUOTA OF SHARED VARIABLES 
8 (8) SIGNED” 4 PCVSPACE BYTES OF SHARED MEMORY THIS 
“12 (0) ACADDRESS = 4 ~~ PCVECB ECB ADDR FOR THIS PROCESSOR = 
16 (10) CHARACTER = 8 ~PCVPASS PASSWORD FOR THIS PROCESSOR = 
24 ~«(18) CHARACTER = 0 PCVEND) END OF PLS PCV MAPPING =” 
“9 C0) STRUCTURE 24 APLPCV, 
0 (0) CHARACTER) 24 PCV 
“0 (0) SIGNED” @ POVID 
—@ ~~ (4) SIGNED 4 POVQuoTA——i—‘“—s—SsSSSS 
8 (8) SIGNED” 4 PCVSPACE 2 220 
“42 (CG) A-ADDRESS = 4 PCVECB 
16 (10) CHARACTER) 8 «sPCVPASS 
24 °~«(18) CHARACTER) 0 PCVEND 


CROSS REFERENCE 


APLPCV 0 6¢0) 
PCV 0 (0) 
PCVECB 12 (CC) 
PCVEND . 24 (18) 
PCVID Q (0) 
PCVPASS 16 ¢€10) 
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PRD (XSYS, 


OFFSETS 
0 (0) 
0 (0) 
l (1) 
2 (2) 
4 (4) 
6 (6) 
8 (8) 
12 (C) 
20 (14) 


AP J 
This 


descriptor. 


TYPE 


UNSIGNED 
BITSTRING 


le... >= @ # © 
SIGNED 
SIGNED 
SIGNED 


CHARACTER 


CROSS REFERENCE 


PRD 
PRDBUFP 
PRDDEST 
PRDEND 
PRDHDR 
PRDLEN 
PRDOPT 
PRDRETCD 
PRDTCGODE 
PRDTYPE 


0 (0) 
8 (8) 
l2 (CC) 
20 (14) 
1 X'80' 
2 (2) 
l (1) 
G (4) 
6 (6) 
0 (0) 


bow | 


is the common system services print request block 


is mapped by the APLXPRD macro. 


LENGTH NAME 


PRDTYPE 
PRDOPT 
PRDHDR 
PRDLEN 


PRDRETCD 
PRDTCODE 


PRDEND 
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DESCRIPTION 


REQUEST TYPE AS FOR GDDM REQ 
OPTIONS 

OPEN HEADER GENERATION 
LENGTH OF DATA IN BUFFER 


RETURN CODE | 
TYPE CODE (TRANSLATION CONTROL) 


END OF PRD 








PRM (CICS, XSYS; AP) 


This ts the installation parameter list. It contains the 
installatiton-specified vartables used in tnittalizing the APL 
transaction. The PRM is located at the beginning of module 
APLKPARM and is pointed to by the GBL. This control block is 
mapped by the APLKPRM macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
i (0) STRUCTURE 172 PRM INSTALLATION PARAMETERS 
0 (0) SIGNED 2 PRMUSERS MAX SIGN-ON COUNT 
2 (2) SIGNED 2 PRMSSMSZ MAX SHARED STORAGE SIZE IN K-BYTES 
4 (4) SIGNED 2 PRMSPMAX MAXIMUM PROCESSORS SHARING 
INCLUDES USERS, DEP-APS, AND 
INDEPENDENT-APS 
6 (6) SIGNED 2  PRMSVMAX MAXIMUM SHARED VARIABLES 
8 (8) SIGNED 2  PRMCHAP LOWER PRIORITY FOR FULL USE OF ONE 
QUANTUM 
10 (A) SIGNED 2 RESERVED 
12 (C) SIGNED G PRMLIM HARDCOPY PRINT LIMIT 
16 (10) CHARACTER 28 PRMTRANS APL TRANSACTIONS 
16 (10) CHARACTER 4 PRMSON APL SIGN-ON TRANSACTION 
20 (14) CHARACTER 4 PRMSES APL USER SESSION TRAN 
24 (18) CHARACTER 4 PRMLIB LIBRARY TRANSACTION 
28  (1C) CHARACTER 4 PRMTERM APL TERMINAL I/O TRAN 
32. (20) CHARACTER 4 PRMHCP APL HARDCOPY TRANSACTION 
36 (24) CHARACTER 4 PRMDYN APL AP 100 DYNAMIC TRAN 
G0 (28) CHARACTER G  PRMTERX GDDM TRMNL I/O TRAN 
44  (2C) CHARACTER &G PRMXLEVL RELEASE #: OOVVRRMM 
48 (30) CHARACTER 1 PRMSYS SYSTEM TYPE, 1-VS1,2-MVS, 3-DOS/VS 
49 (31) CHARACTER 1 PRMCREL CICS VERSION/RELEASE 
50 (32) SIGNED 2  PRMAPCNT ENTRY COUNT IN AP TABLE 
52 (34) SIGNED 4 PRMSLICE APL TIME SLICE SYS DEP 
56 (38) A-ADDRESS 4 PRMDAPPT ADDRESS OF DEPENDENDT APS 
60  (3C) A-ADDRESS 4  PRMSGN ADR OF SIGNON TABLE 
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AP) continued 
LENGTH WNANE 


PRM (CICS, 
OFFSETS 


XSYS; 


TYPE DESCRIPTION 


CICS RELEASE DEPENDENT OFFSETS 


NOTICE 
THE FOLLOWING TABLE MUST BE USED TO DEFINE ALL FIELDS IN 
CICS CONTROL BLOCKS WHICH ARE USED BY APL CODE, EXCEPT FOR 
FIELDS DOCUMENTED IN THE CICS APPLICATION PROGRAMMER'S 
REFERENCE MANUAL (MACRO LEVEL) AS BEING PART OF THE 
APPLICATION PROGRAMMER INTERFACE CAPI). 





DCL WRKP PTR * POINTS DIRECTLY TO FIELD 
DCL FLD BASEDCWRKP) * GIVE APPROPRIATE ATTRIBUTES 
WRKP= ..,.PTR + PRM... * POINT TO REQUIRED FIELD 
FLD=FLD | PRM ... * OR IN MASK TO TURN IT ON 
FLD=FLD & CPRM ...&& "FF*°X) * AND COMPLEM TO TURN IT OFF 
DCL WRK BIT(8) * TEMPORARY WORK AREA 
WRK= PRM... & FLD * REMOVE ALL OTHER BITS 
CSA..... 
64 (40) SIGNED 2 PRMCSAPN PINI C(2)} NUMBER PGM 
CHKSCPACK) ) 
66 (42) SIGNED 2 PRMCSAPP PIPSW P(C31) PGMCHK PSW 
68 C44) SIGNED 2 PRMCSAPL PLBA P(31) CICS LOW 
BOUNDARY 
70 C46) SIGNED 2 PRMCSAPU PUBA PC31) CICS HIGH 
BOUNDARY 
72 (48) SIGNED 4 RESERVED 
76 (4C) SIGNED 2 PRMCSADA DATFT CC1) FORMAT OF DATE 
78 (GE) CHARACTER 1 PRMCSAMD DATFM FORMAT AS MMDDYY 
79 (4F) CHARACTER 1 RESERVED 
80 (50) SIGNED 2 PRMDCTBA DCTBA P(31) DTF/DCB PTR 
82 (52) SIGNED 2 PRMDCTID DCTIDI CC4) INDIRECT 
DESTID 
&4 C54) SIGNED 2 PRMDCTDT DCTTDT CCl) DESTINATION 
TYPE 
86 (56) CHARACTER 1 PRMDCINT INDTBM INTRA- PARTITION 
37 (57) CHARACTER 1 PRMDCEXT EXTRBM EXTRA- PARTITION 
88 (58) CHARACTER 1 PRMDCIND INDBM INDIR DESTINATION 
89 (59) CHARACTER 1 RESERVED 
90 C54) SIGNED 2 RESERVED 
92 (50) SIGNED 2 PRMFIODC DCB P(31) > DCB J 
94 (5E) SIGNED 2 RESERVED 
FCT. 
96 (60) SIGNED 2 PRMFCID DSID CC7) DLBL DDNAME 
98 (62) SIGNED 2 PRMFCKL DSKL F(8) 
100 (64) SIGNED 2 PRMFCREC DSREC FC15) RECORD LENGTH 
102 (66) SIGNED 2 PRMFCRKP DSRKP FC(15) REL KEY 
POSITION 
104 €68) SIGNED 2 PRMFCACB DSACB C(0) START OF ACB 
106 C6A) SIGNED 2 RESERVED 
108 (6C) SIGNED 2 PRMFCOPN DSOPN CC1) OPEN 
110 €6E) CHARACTER 1 PRMFCOP OPNIM..OPEN BIT 
111 C6F) CHARACTER 1 RESERVED 
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XSYS, 


TYPE 


AP) continued 


LENGTH NAME 


DESCRIPTION 


— ee ee ee ee ee ee ee eee ee eee ee eee ee ee ee eee ee eae ee ee eee ee ee ee ee ae es ie es 


SIGNED 
CHARACTER 
CHARACTER 


PRMFCDBM 
PRMFCDAIM 


DSBDM C1) 
BDAMI BDAM 
RESERVED 


BDAM INDICATOR 
BIT 


eee ee eee eee ee eee ee ee eee ee ee ee ee ee eee eee eee ee eee eee ee eee eee ee 


SIGNED 
CHARACTER 
CHARACTER 
SIGNED 
CHARACTER 
CHARACTER 
SIGNED 
CHARACTER 
CHARACTER 


PRMFCISM 
PRMFCISA 


PRMFCVLI 
PRMFCFIX 
PRMFCVRL 
PRMFCDLI 
PRMFCDL1 


DSISM C(1) ISAM INDICATOR 
ISAMI ISAM BIT 
RESERVED 

DSVLI CC1) RECOR 
FIXIM FIXED LNG 
VRLIM VAR LNGTH 
DSDLI C1) DLZ1 
DOLII DL/I BIT 
RESERVED 


SIGNED 
CHARACTER 
CHARACTER 


PRMFCVSM 
PRMFCVSA 


DSVSM C1) 
VSAMI VSAM 
RESERVED 


VSAM 
BIT 


— eee eee eee ee eee ee es eee eee eee ee eae eee eee ee ee ee oe ee 


SIGNED 


CHARACTER 
CHARACTER 


PRMFCESD 
PRMFCES 


DSESD C(1) 
INDICATOR 
ESDS ENTRY 
BCSERVED 


=—_— eee ee oe ee ee eee eee ee ee ee eee ee ee ee eee ee eee eee ee ee 


i ee ee eee ee eee eee ee ee 


SIGNED 


CHARACTER 
CHARACTER 


SIGNED 


CHARACTER 
CHARACTER 


PRMFCKSD 
PRMFCKS 


PRMFOCRED 
PRMFCRR 


DSKSD C1) 
INDICATOR 
KSDS KEY SEQ 

RESERVED 

DSRRD CCl) VSAM 
INDICATOR 

RRDS REL REC 
RESERVED 


VSAM 


SIGNED 
SIGNED 


PRMPCTOF 
PRMPCTPF 


TWA FC15) TWA SIZE 
IPIA C(&8) PROG NAM 


i ee ee a ee a a ee i ee ee ee ee Oe ee 


SIGNED 
SIGNED 


TI C¢4&) TRANS NAM 
RESERVED 


i le ee ee el ee ee ee ee ee Se ee ee ee ee. 


SIGNED 
CHARACTER 
CHARACTER 


PRMPCTFF 
PRMFASRA 


FDPOQP CC1) FORMAT DUMP 
FASRA DUMP QN ASRA 
RESERVED 


A nn i i i ee ee en Ur ee ee eee ee a ee a 


SIGNED 
CHARACTER 
CHARACTER 


PRMPCTOG 
PRMDSABL 


FLAG CCl) TRANSACTION 
DSABL DISABLED 
RESERVED 


ae a ra a ee ee ee er eae ee i ee a ee ee ee 


SIGNED 
SIGNED 


aS a8) 


PRMTATLR 
PRMTASYA 


TPLRCO FC2&) 
SYAA PCSL) 


TC LOCATE RC 
PREFIX POINTER 


=e a ee ee ee ee eee ee ee eee eee eee ee ee eee eee eee eee ee ee ee 


SIGNED 
SIGNED 


NPR 


PRMTATPC 
PRMTATKA 


TCPC PC(31) 
KCTTA C3) 


PCT PTR 
TASK # CPACK) 


ae eee eee ee eee ae eee ee ee 2 ee ee ee ee eee eee ee ee eee eee eee eee eee ee ee ee aoe a ee ee ee 


SIGNED 
SIGNED 


PRMTCTTC 
PRMTCTOQOYX 


TETC CC4) NEXT TRANID 
TERMINAL OP ID 


ome ee ee ee ee ee ee eee ee eee eee ee ee eee ee eee es eee eee ee ee ee eee eae es ee ees ee ee 


— eee ee ee es eee ee ee ee ee eee ee ee a ee eee eee eee ee eee eee eee a ee ee ee ae ee 


a ee eee ee ee ee eee ee eee ee eee eee ee ee ee eee es ee ee i ee ee ees ee ae ee eae i es 


PRM (CICS, 
OFFSETS 
112. (70) 
114 (72) 
115 (73) 
116 €74) 
118 (76) 
119 (77) 
120 (78) 
122 (7A) 
123.» =«(78B) 
124 (7C€) 
128 (7B) 
127. (7F) 
128 (80) 
130 § (82) 
131 (83) 
132 (84) 
134 (86) 
135 (87) 
136 3-488) 
138 (8A) 
739 ~»=6 (8B) 
140 (8C) 
142 (8B) 
143 (8F) 
144 3=€90) 
146 (€92) 
148 (94) 
15 (96) 
152. (98) 
154 (9A) 
155 (9B) 
156 (9C) 
158 (96) 
159 (9F) 
160 (AQ) 
162. (A2) 
164 (A4) 
166 CAB 
168 CAB) 
170 (AA) 
172. = CAC) 
172 = AC) 
180 (B4) 
184 (B8) 


A-ADDRESS 


PRMAPPTR 


ENTRY POINT OF AP-IF LOADED 
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CROSS REFERENCE 





PRM 0 (0) PRMLIB (18) 
PRMAPCNT 50 (32) PRMLIM Cc) 
PRMAPNAM 172 (AC) PRMPCTFF (98) 
PRNAPNUM 180 (B4) PRMPCTOF (90) 
PRMAPPTR 184 (B8) PRMPCTOG (9C) 
PRMCHAP 8 (8) PRMPCTPF (92) 
PRMCREL 49 (31) PRMPCTTI (94) 
PRMCSADA 76 (4C) PRMSES (14) 
PRMCSAMD 78 (46) PRMSGN (3C) 
PRMCSAPL 68 (44) PRMSLICE (34) 
PRMCSAPN = 64 - (40) PRMSON (10) 
PRMCSAPP 66 (42) PRMSPMAX 4 (4) 
PRMCSAPU 70 (46) PRMSSMSZ 2 (2) 
PRMDAP 172 CAC) PRMSVMAX 6 (6) 
PRMDAPPT 56 (38) PRMSYS 48 (30) 
PRMDCEXT 87 (57) PRMTASYA 162 (A2) 
PRMDCIND 88 (58) PRMTATKA 166 (A6) 
PRMDCINT 86 (56) PRMTATLR 160 CAO) 
PRMDCTBA 8&6 (5D) PRMTATPC 164 (A4) 
PRMDCTDT 84 (54) PRMTCTOI 170 (AAD 
PRMDCTID 82 (52) PRMTCTIC 168 (A8) 
PRMDSABL 158 (9E) PRNTERM 28 (10) 
PRMDYN 36 (24) PRMTERX 40 (28) 
PRMFASRA 154 (9A) PRMTRANS 16 (10) 
PRMFCACB 104 (68) PRMUSERS 0 (0) 
PRMFCDAM 114 (72) PRMXLEVL 44 (20) 
PRMFCDBM 112 (70) 

PRMFCDLI 124 (7C) 

PRMFCDL1 126 (75) 

PRMFCES 134 (86) 

PRMFCESD 132 (84) 

PRMFCFIX 122 (7A) 

PRMFCID 96 (60) 

PRMFCISA 118 (76) 

PRMFCISM 116 (74) 

PRMFCKL 98 (62) 

PRMFCKS 138 (8A) 

PRMFCKSD 136 (88) 

PRMFCOP 110 (6E) 

PRMFCOPN 108 (6C) 

PRMFCREC 100 (64) 

PRMFCRKP 102 (66) 

PRMFCRR 142 (8E) 

PRMFCRRD 140 (8C) 

PRMFCVLI 120 (73) 

PRMFCVRL 123 (78) 

PRMFCVSA 130 (82) 

PRMFCVSM 128 (80) 

PRMFIODC 92 (5C) 

PRMHCP 2 620) 2 
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PRO (CICS, SERV) 


This is the APL user profile. This is a special form of the DIR 
containing the user's quotas and authorization, accounting 
information, and session attributes. The PRO resides in main 
storage as an extension of the PTH and PTK while the user is 
signed on to the system. This control block is mapped by the 
APLKPRO macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


0 (0) CHARACTE 4 PROHEADR PROFILE HEADER FOR CICS 
0 (0) SIGNED 2 PROLENHW PROFILE LENGTH 
2 (2) SIGNED 2 RESERVED 
4 (4) CHARACTER 14 PROKEY 14 BYTE VSAM KEY 
4 (4) UNSIGNED 3 PROLIBNO USER LIBRARY NUMBER 
7 (7) CHARACTER 1 PROCODE PROFILE ENTRY CODE-X'00° 
8 (8) SIGNED 4 PRODEFWS DEFAULT WS SIZE 
12 (C) SIGNED 4 PROSSMAX SHARED STORAGE SIZE LIMIT IN BYTES 
16 (10) SIGNED | 2 PROSSOBM SHARED VARIABLE MAXIMUM 
18 (12) CHARACTER 1 PROTYPE TYPE BYTE 
eee PROFREE FREE SPACE RECORD 
Pree PROFEB FILE EXTENT RECORD 
Sala. eyes PROUPROF USER PROFILE BIT 
le eas hse RESERVED 
Voce PROCICS CICS PROFILE FLAG 
ae bee PROPUB PUBLIC LIBRARY 
vemree RESERVED 
eer | PROPRIV PRIVATE LIBRARY 
19 (13) CHARACTER 1 PROFLAGI FLAG BYTE 1 
Vise. aaa RESERVED 
ah Dee PROCWS CONTINUE WORKSPACE SAVED 
ee RESERVED 
| PROLOCK USER IS LOCKED 
20 (14) CHARACTER 8 PROPSWD LOGON PASSWORD 
28 (€1C) BITSTRING 3. PROAUTH USER AUTHORIZATION MASK 
31 G¢1F) CHARACTER 9 SESSION MODIFIABLE FIELDS 
31 C1F) CHARACTER 1 PROFLAG2 FLAG BYTE 2 
Vi 2rane tented PROCONCY CONTINUOUS COPY FLAG 
i ae PRODSES DISPLAY APL SESSION ON USER 
TERMINAL 
a. eee RESERVED 
ee, Ge PROHCDEF HARDCOPY DESTINATION IS DEFINED 
FOR THIS USER 
pele galeee PROPWCNG LOGON PASSWORD CHANGED 
well RESERVED 
32 (20) CHARACTER 4 PROXLATE COPY OUTPUT TRANSLATE TABLE 
36 (24) CHARACTER 4 PRODEST CICS HARDCOPY DESTINATION 
40 (28) SIGNED 4 PROMAXWS MAXIMUM WS SIZE THIS USER 


44 (2C) SIGNED § PRODEFIL APi2i DEFAULT FILE SIZE IN INCRS 
: 4K-LENCCI TRAILER) 
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PRO (CICS, SERV) continued 


OFFSETS TYPE LENGTH NAME 

48 (30) SIGNED 4 PRODASMX 
52 (34) SIGNED 4 PRODASU 
56 (38) SIGNED 4 

60 C3C) SIGNED 4 PRONLATD 
64 (40) SIGNED 4 PRONLATS 
68 (44) SIGNED 4 PROCPUTD 
Te (48) SIGNED 4 PROCPUTS 
76 (40) SIGNED 4 PROTCTD 
80 (50) SIGNED 4 PROTCTS 
84 (54) SIGNED 4 PROSCRLS 


88 (58) CHARACTER 28 PRONAME 
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DESCRIPTION 


DASD SPACE LIMIT CIN INCR OF 
4K-LENGTHC(CI TRAILER) ) 


OT Dl ee ee ed 


NO. OF LIBRARY ACCESSES THIS 
SESSION 


TERM CONNECT TIME TO DATE IN 
SECONDS CAS IN TCTS) 


INSTALLATION DEFINED NAME FIELD 








CROSS REFERENCE 


PRO 
PROAUTH 
PROCICS 
PROCODE 
PROCONCY 
PROCPUTD 
PROCPUTS 
PROCNS 
PRODASMX 
PRODASU 
PRODEFIL 
PRODEFWS 
PRODEST 
PRODSES 
PROFEB 
PROFLAG1 
PROFLAG2 
PROFREE 
PROHCDEF 
PROHEADR 
PROKEY 
PROLENHW 
PROLIBNO 
PROLOCK 
PROMAXWS 
PRONAME 
PRONLATD 
PRONLATS 
PROPRIV 
PROPSWD 
PROPUB 
PROPWCNG 
PROSCRLS 
PROSSMAX 
PROSSOBM 
PROTCTD 
PROTCTS 
PROTYPE 
PROUPROF 
PROXLATE 


an ans Ee, Se, Ta 


N “RP UID AU ~ 7 2A PWMUIA «RMA AM « oR « CN ANWW Ee DP em «pm 


mM MAAK 


BNNVBOPDVOLADPDRSGO AOGALRPASVALGOSSMNWMPLHLAHAAWOPANAWAO~TSVOS 
Sa CD Nad Sad ad Sd Se ew DS Dy se le a a OOO Ww WwWOOwwwwwoOwwoanw Www 


oa, fl ee 
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PTH CALL) 


This is the PERTERM header. 


PTH provides information about the 


active user with regard to the system environment, and completes 
the communication path between interpreter and executor. This 
control block is mapped by the APLPTH macro. 


TYPE 


LENGTH NAME 


DESCRIPTION 


CHARACTER 


PTHWORD1I 


2 a a ee ae ee Ge ee ee ee ee ee ee ee a eee a ee ee ee ee ee ee ee Ss ee eee ee ee ee ee ee ie 2 a ee ee ee ee ee ee ee ee es es es es ee a ee a ee es 


CHARACTER 
lee ene 
1... 
oa 
eee eed, 
eee veel 
CHARACTER 
CHARACTER 


= 
j= « 


wl.. @# a ¢ se 


1 


PTHASYNC 
PTHDATTN 
PTHQEND 

PTHCPULM 


PTHNOOUT 
P THFOFF 
PTHATTN 


PTHSUSP1 
PTHCWBIT 
PTHWNABIT 
PTHSVBIT 


DOUBLE-ATTENTION SIGNALLED 
QUANTUM-END REQUESTED 

CPU LIMIT EXCEEDED. 

UNUSED 

"CANCEL OUTPUT’ SIGNAL RECEIVED 
LINE-DROP OR BOUNCE 

SINGLE ATTENTION SIGNALLED 
RESERVED 

EXECUTOR SUSPENSION BITS 

CLOCK WAIT BIT 


YYWATE BIT 
SH. VAR. WAIT BIT 
UNUSED 


CHARACTER 
li 11 
eee eed. 


veces ceed 
CHARACTER 
les cee. 
veleocen. 
oo re 
ras or 
wees eed 
SIGNED 


PTHNSTAT 
PTHSVON 


PTHSINK 
PTHSORS 
PTHUSTAT 
PTHLOCKB 
PTHMDY 
PTHMSBLK 
PTHMICRO 
PTHFSAVL 
PTHUEXTN 


PTHQVAR 


THIS USER SIGNED ON TO SVP 
RESERVED 

THIS IS A COPY SINK 

THIS IS A COPY SOURCE 


WE KEEP HIS KBD LOCKED 

DATE FORMAT FLAG 

WE BLOCK HIS MESSAGES 

APL MICROCODE WILL BE USED. 
RESERVED FOR FULLSCREEN EDIT 
PTH EXTENSION (PTX) EXISTS 
RESERVED 


BITSTRING 


BITSTRING 


PTHYYCOD 
PTHSPCLY 


PTHSRCOD 


HI-ORDER BIT ON IF "*SPECIAL’ 
YYCODE 


CHARACTER 
SIGNED 


BITSTRING 
SIGNED 


BITSTRING 


ms) 


PTHPARMI 


en 6 GP Ge ee es a a es a a ee ee ee a ee ee ee ee ae ee ee ee ee ee a ee ee ee ee ee ee ee ee ee ee ee a ee 


BITSTRING 


a 


PTHPARM2 


OFFSETS 
0 (0) 
0 (0) 
0 (0) 
1 C1) 
3 C3) 
4 C4) 
5 C5) 
(6) 
C8) 
8 (8) 
10 CA) 
12 CC) 
14 CE) 
16 €10) 
18 C12) 
206 C24) 
24 C18) 
28 C10) 
32 C26) 
36 C24) 


SIGNED 


ms) 


PTHACCNO 
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PTH (ALL) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


IE A FLOATING POINT NUMBER OF MICROSECONDS, 
POSSIBLY FRACTIONAL. TIME-OF-DAY VALUES 
ARE FROM THE BEGINNING OF THE APL EPOCH. 
INTERVALS ARE SIMPLY MICROSECOND COUNTS. 


40 (28) CHARACTER 8 PTHLOCAL 

48 (30) CHARACTER 8 PTHCPUTM 
56 (38) CHARACTER 8 PTHKEYIM = = = =———“<i‘“‘C; ;3OR*“‘<aiC;i<‘Ci;‘;‘;:S 
64 «4(40) CHARACTER 8 ~=PTHCNCTM sss 
72. (48) CHARACTER 0 ~PTHEND —«*END OF PERTERM HEADER. = 


CROSS REFERENCE 


PTH 
PTHACCNO 
PTHASYNC 
PTHATTN 
PTHCNCTM 
PTHCPULM 
PTHCPUTM 
PTHCURSR 
PTHCWBIT 
PTHDATTN 
PTHEND 
PTHFOFF 
PTHFSAVL 
PTHKEYTM 
PTHLOCAL 
PTHLOCKB 
PTHMDY 
PTHMICRO 
PTHMSBLK 
PTHNOOUT 
PTHPARM1 
PTHPARM2 
PTHQEND 
PTHQSIZE 
PTHQVAR 
PTHSINK 
PTHSORS 
PTHSPCLY 
PTHSRCOD 
PTHSUSP2 
PTHSVBIT 
PTHSVON 
PTHUEXTN 
PTHUSTAT 
PTHWABIT 
PTHWIDTH 
PTHWORD12 
PTHWSLEN 
PTHWNSTAT 
PTHYYCOD 
PTHYYRC 


0 
36 
0 


0 
64 
0 
48 
18 


~~ 
ON Ow 


Mm "AR & Ut 
COCO HD MNMNAGAMUITLID WMUWOOHARGOWOLOUUUNUIOOU 


i 


Ww kt 


o-~ 
ori «© we w ew ofhJ tN 2 eH 2 wk WH wa PD a MA mem 


Pe ON OO HO KRM MK OM 
COOOLOOMFUNOONWSr CODA DADOG INH SOeCWMDOCAOWAONONGDATIOLEG 


x «MK <>< 


rer PIA r 2 7D TP TAM 41 TT IT} 


~ 


i at tt Vt OU LPOOwWVOMAYwowrvw Dh Qo0owwnr OA OOwwv OwhMwwe 
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PTK (cIcs, 


OFFSETS 


XSYS, 


AP) 


This is the CICS/VS extension to the APL perterm header (the 


PTH). 


It contains CICS/VS-unique information about the user 


session. The PTK is the primary anchor for all storage and 


control blocks associated with the user session. 
PTH is pointed to by the WSM, 


the 


In CICS/VS, the 
user task CICS/VS TWA Cwhich 


is an extension to the CICS/VS task control area), and the SGN 


entries. 


TYPE ! 


DESCR 


This control block is mapped by the APLKPTK macro. 
LENGTH NAME 


IPTION 


APLXXPTX - APL EXECUTOR COMMON PERTERM EXTENTION 
THE PERTERM PROVIDES PRIMARY CONTROL OF THE USER SESSION. 


IT CONTAINS A SYSTEM INDEPENDENT HEADER, 
COMMON EXECUTOR CONTROL BLOCK, 


SUBSYSTEM DEPENDENT. CONTROL BLOCKS. 
THIS IS A PLS EXPANSION OF THE EXECUTOR COMMON PER TERM 


EXTENTION (PTX). T 


109 


(6D) 


C6E) 


STRUCTURE 


BITSTRING 
re ee 


Shas yee 


ay eee 
BITSTRING 
Des rcs 
a coe o 
bay aed 

tee 
Sued, alse 
pose ud 
BITSTRING 
toon sae 
badd. Gen 
ee oe 
BITSTRING 


E FOLLOWING ARE THE FIELDS: 


FOLLOWED THIS 
THEN FOLLOWED BY THE 


108 PTX ADDR OF ACTIVE WORKSPACE 
4 PTXWSM ADDR OF VECTOR TABLE 
4 PTXVCT ADDR OF SP STACK 
4 PTXSTACK ADDR OF SESSION TABLE 
4 PTXSMTBP ADDR OF GDDX CONTROL TABLE 
4 PTXGXTBP ADDR OF CURRENT GDM 
4 PTXGXGDM ADDR OF PRINT SERVICES TABLE 
4 PTXPRTBP ADDR OF FILE SERVICES TABLE 
4 PTXFSTBP ADDR OF ACTIVE ATTENTIO ROUTINE 
4 PTXATTN 
4 PTXFLAG SUBSYSTEM IDENTIFYER 
1 PTXSUBSY THIS IS A TSO USER X*80° 
PTXTSO THIS IS A CMS USER X'40! 
PTXCMS THIS IS A CICS USER X'20! 
PTXCICS THIS IS A VSPC USER X'10° 
PTXVSPC DEBUG OPTIONS 
1 PTXDEBUG DEBUG NO MICROCODE TEST X'80" 
DBGMICRO DEBUG CANCEL ESTAE EXITS X'40! 
DBGNSTAE DEBUG RESERVED X'20° 
DEBUG RESERVED X'10' 
DEBUG RESERVED X'08! 
DEBUG RESERVED X'04! 
DEBUG ECHO STACK (CMD PARM)X'02! 
DBGECHO | 
DBGMSG GENERAL USE FLAGS 
1 PTXFLAGS PURGE ALTERNAT INPUT STACK X*80? 
PTXAIPUR 
PTXFSRST 
ADSM OWNS THE SESSION X°08' 
PTXADSM RESERVED 
1 DUMP SERVICES TABLE POINTER 
4 PTXDXTBP VS APL RELEASE LEVEL 
4 PTXLEVEL GDDM TERMINAL TYPE CODE KIC0381 
4 PTXCODE 


SIGNED 
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( PTK (CICS, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


124 (7C) CHARACTER 28 PTXSCRTH ADSM PASSWORD RETURN AREA 
124 (7C) CHARACTER 8 PTXSMPSD INDICATE ON WORD BOUNDARY 
124 (7C) SIGNED 4 PTXSMP1 ADSM PARM2 FIELD 
128 (80) SIGNED 4 PTXSMP2 ADDITIONAL ADSM PARM FIELDS 
132 (84) CHARACTER 20 INDICATE ON WORD BOUNDARY 
132 (84) SIGNED 4 PTXSMP3 ADSM PARM4& FIELD 
136 (88) SIGNED 4 PTXSMP4 ADSM PARMS5 FIELD 
140 (8C) SIGNED 4 PTXSMP5 ADSM PARM6 FIELD 
144 (90) SIGNED 4 PTXSMP6 ADSM PARM7 FIELD 
os 148 (94) SIGNED 4 PTXSMP7 SF,OUT-ATTR,IN-ATTR,FLAGS HILITE 
152 (98) SIGNED 4 PTXHILIT 
152 (98) CHARACTER 1 PTXHISF OUTPUT ATTRIBUTE BYTE HILITE 
153 (99) CHARACTER 1 PTXHIAOT INPUT ATTRIBUTE BYTE HILITE 
154 (9A) CHARACTER 1 PTXHIIOT FLAGS FOR SESSION MANAGER HILITE 
155 (9B) BITSTRING 1 PTXHIFLG 
1... nee PTXHIOHI INPUT HILITE REQUESTED HILITE 
~l.. 2... PTXHIIHI ADDRESS OF MSQ QUEUING RTN )MORE 
156 (9C) A-ADDRESS 4 PTXHELP@ 
é 160 CA0)} A-ADDRESS 4 PTXUSRWA RESERVED 
164 CA4) SIGNED 4 PTXRSVO1 RESERVED 
168 CA8) SIGNED 4 PTXRSVO2 RESERVED 
172 CAC) SIGNED 4 PTXRSVOS3 RESERVED 
176 (BO) SIGNED 4 PTXRSV04 END OF PTX 


ee ee ee ee ee ee ee ee ee ees es ee eee eee ee eee ee ee ee ee ee ee ee eee ee ee se ee es es es eee ee es ee ee ee ee ee eee ee eee ee ee ee ee a ee 


‘Se “176 (BO) A-ADDRESS 4 ~=PTKSGN  ——=SOADDR OF SIGNON TABLE ENTRY 
(180 (B4) A-ADDRESS 4 PTKGBL | —« ADDR OF GLOBAL TABLE ——~—~S 
(180 (B4) CHARACTER 0 -PTXEND) —ists—‘“—sSsSsSSSS 
“184 (BB) AADDRESS = 4 «=PTKWSM ADDR OF WORKSPACE iw 
“188 (BC) A-ADDRESS = 4 ~PTKRSVOL=——é«RSSERVED st ssts—~—S 
“192 (CO) CHARACTER 12 PTKRSAVE «SAVE REGS ACROSS INTERP 
192 (CO) A-ADDRESS 4 ~=PTKSTKP =———SSTACK POINTER titi—i‘is~—~™S 
(196 (C4) A-ADDRESS = 4 PTKTCA TCA POINTER i ssts—~—S 
200 (C8) A-ADDRESS 4 PTKCSA CSA POINTER ss— 
(204 (CC) CHARACTER 12 PTKIECBL | ECB LIST FOR INTERP PROCESS 
"204 «©(CC) A-ADDRESS 4 PTKECB1 | PTR TO DOUBLE ATTN ECB | 
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PTK (CICS, XSYS, AP} continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 
2608 (DO) A-ADDRESS 4 PTKECB2 PTR TO REQUESTOR ECB 
212 (D4) SIGNED G4 PTKECBZ ALL FFFF END OF LIST | 
216 (D8) CHARACTER 56 HISTOGRAM CLOCKS CALL STCK) 
216 €D8) CHARACTER 8 PTKTUNLK LAST KEYBOARD UNLOCK 
224% CEO) CHARACTER 8 PTKTDPND LAST DEPEND PROCESS DSPCH 
232 CE8) CHARACTER 8 PTKTLOAD LAST )JLOAD START 
240 CFO) CHARACTER 8 PTKTSAVE LAST SAVE START 
248 CF8) CHARACTER 8 PTKTCOPY LAST )COPY START 
256 =(€100) CHARACTER 8 PTKISTIM TIMESLICE INTERRUPT TIME 
256 (€100) CHARACTER 8 PTKTENTR ALSG INPUT COMPLETE TIME 
264 (€108) CHARACTER 8 PTKTSON SIGN ON TIME } 
272 ©€110) CHARACTER 104 PTKXISAV TRANSPARENT INTERRUPT SAVE AREA 
272 €110)2 CHARACTER 8 PTKXPSW PROGRAM StaTus WORD 
272 (110) CHARACTER G4 PTKXWRDI PSW 1ST WORD 
276 (2114) CHARACTER G4 PTKXWRD2Z 
276- €114) BITSTRING 1 PTKXFLGS ILC,CC,PROGRAM MASK 
277 €115) A-ADDRESS 3 PTKXADDR INSTRUCTIGN ADDR 
286 ¢€118) CHARACTER 64 PTKXREGS GENERAL REGISTERS 
2806 €118) UNSIGNED G4 PTKXRO 
284 €11¢C) UNSIGNED 66 PTKXREG 
284 (€11C) BITSTRING 1 
2785 (€11D) A-ADDRESS 3 PTKXREGP 
344 ¢€¢158) BITSTRING 8 PTKXFPRO FLOATING POINT REGS 
352 (€160) BITSTRING 8 PTKXFPR2 
360 (€168) BITSTRING 8 PTKXFPR4 ) 
368 (170) BITSTRING 8 PTKXFPR6 
376 (€178) CHARACTER 16 INTERP INTERFACE FIELDS 
376 (€178) BITSTRING 1 PTKPCOP OP CODE SAVED BY TIMER 
377 ©€179) BITSTRING 1 PTKPMASK SAVED CICS/INTERP PROGRAM MASK 
378 ¢€17A)} CHARACTER 1 PTKMFLG MISCELLANEOUS FLAGS 

Lins cae PTKMXUSE PTKXISAV IN USE CTIMER/PGFLT) 

a rr PTKIWAIT IFIX HAS ISSUED APLKWAIT 

wee cece PTKMINEX APL TIMER EXIT SET 

weed waee PTKINTRP IN INTERPRETER CODE 

weee Lewe PTKMNDMP NCP YYDUMP (CTGOK EXEC DUMP) 

. wl... PTKMEXA ABEND EXIT IN CONTROL 

«s eel. PTKTIMEO TIMER EXIT IN CONTROL 
ol PTKMTPOP TIMER POP OUTSIDE INTERPRETER 
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PTK (cres, XSYS, AP) continued 


TYPE 


LENGTH 


NAME 


DESCRIPTION 


PTKDFLG 
PTKDMAC 
PTKDWAIT 
PTKDELAY 
PTKDNTED 


DISPATCHER FLAG BYTE 

DISPATCHER MACRO WAS ISSUED 
DISPATCHER IN A CICS WAIT 
INITIATING A TASK FOR QUAD-DELAY 
WAIT DONE SINCE DISPATCH 


UNSIGNED 
CHARACTER 
SIGNED 


PTKOPRIO 
PTKRSV31 
PTKXDCNT 


OLD PRIORITY CBEFORE CHAP) 
RESERVED ; 
EXEC DUMP COUNTER, RESET AT TYI 


SIGNED 

CHARACTER 
CHARACTER 
1... .eee 


ol... 2 eee 
CHARACTER 


PTKTABN 
PTKTABS 
PTKSYNC 
PTKSYDST 
PTKSY125 
PTKRSV41 


NUMBER OF TABS 

SESSION TABS 

SYNCPOINT FLAGS ALL TURNED 
TURNED OFF BY DESTINATION MGR 
TURNED OFF BY AP125 (DL/1I) 
RESERVED 


SIGNED ! 
SIGNED 


PTKCURSR 
PTKCURSC 


CURSOR ROW ON SCREEN 
CURSOR COLUMN ON SCREEN 


SIGNED 
SIGNED 
CHARACTER 


wees eed 
UNSIGNED 
SIGNED 


NJ Re 


PTKSESST 
PTKSESSC 
PTKFFLG1 
PTKFMSG 

PTKFINPT 
PTKFPROF 
PTKFDEST 
PTKFXLAT 
PTKNOGDM 
PTKUZGDM 
PTKFMODE 
PTKFPRIM 


SESSION LINE AT SCREEN TOP 
SESSION RELATIVE CURS LINE 
SCREEN FORMAT FLAG BYTE 
RECALL LINE NOT DISPLAYED 
INPUT PROVIDED BY SIGNON 
SCREEN REFORMATTED FOR PROFILE 
ON IF PRODEST WAS CHANGED 

ON IF PROXLATE WAS CHANGED 
ON IF NO GDDM OPTION 

ON IF YES GDDM OPTION 
CURRENT SCREEN MODE 

LEN OF DATA IN QPRIME BUFFER 


CHARACTER 
UNSIGNED 


PTKALECO 
PTKALEC2 
PTKALECD 


OS/“VS ONLY PORTION 
OS/VS WAIT BIT 

OS“VS POST BIT 

DOS/VS ECB STARTS HERE 
DOS/VS POST BIT 


OFFSETS 

379 (17B) 
380 (170) 
381 (17D) 
382 (176) 
384 (180) 
388 (184) 
392 (188) 
392 (188) 
394 (18A) 
422 (1A6) 
423 (1A7) 
424 (1A8) 
424 (1A8) 
426 (1AA) 
428 (1AC) 
430 (1AE) 
432 (1B0) 
433 (1B1) 
434  (1B2) 
436 (1B4) 
440 (1B8) 
444 (1BC) 
448 (1C0) 
448 (1C0) 
448 (1C0) 
451 (103) 
452 (104) 
452 (104) 
454 (106) 
456 (1C8) 


CHARACTER 


TERMINAL MANAGER FIELDS 
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OFFSETS TYPE LENGTH NAME DESCRIPTION 
456 (1C8) A-ADDRESS & PTKRSV51 RESERVED | 
460 (1CC) SIGNED 2 PTKTLEN LINES ON SCREEN 
4662 (1CE) SIGNED 2° PTKTWID CHARACTERS PER LINE 
664 (1D0) CHARACTER 1 PTKTTYPE TERMINAL TYPE AND FEATURES 
1. ; PTKT327E NDS TYPE TERMINAL 
Lew cues PTKTAPTX APL/TEXT FEATURE (DAF) 
wale eek PTKTTXKB TEXT KEYBOARD 
ae PTKTAPKB APL KEYBOARD 
toca Lene PTKTTXPR TEXT PRINTER 
665 (1D1) CHARACTER 1 PTKSTAT STATUS FLAGS 
Ll... . PTKPACT TMGR ACTIVE (PRIM SCR) 
lee eee PTKTABND TCTL HAS ABENDED 
ee PTKTRIP REQUEST IN PROGRESS 
weloe. PTKDOWT TERM TASK WAIT NEEDED 
tee Len PTKTINNT TERM TASK IN WAIT 
1... PTKPINNT PRIM SCR PROCESS IN WAIT 
al PTKAINWT ALT SCREEN PROCESS IN WAIT 
466 (1D2) SIGNED 2 PTKRSV61 RESERVED 
468 (€1D4¢) A-ADDRESS 4 PTKBUFST BUFFER FOR STD LOG SCREEN 
472 (1D8) A-ADDRESS 4 PTKBUFAL BUFFER FOR ALT LOG SCREEN 
476 C1DC) A-ADDRESS 4 PTKTSFST SCREEN FORMAT STANDARD 
680 C1E0) A-ADDRESS 6 PTKTSFAL SCREEN FORMAT ALTERNATE 
4684 (1E4) A-ADDRESS 4 PTKSSPST STATUS FOR STD LOG DISPLY 
488 (1E8) A-ADDRESS 4 PTKSSPAL STATUS FOR ALT LOG DISPLY J 
492 CLEC) A-ADDRESS 4 PTKTOWN CURRENT SCREEN STATUS PTR 
496 (1F0) A-ADDRESS 6 PTKRSV62 RESERVED 
500 C1F4) BITSTRING 6 PTKTWECB ECB FOR TERM TRANS WAIT 
504 (1F8) CHARACTER 8 SHARED VARIABLE INTERFACE FLDS 
504 (1F8) A-ADDRESS 4 PTKSECBS SET OF SSM ECBS FOR INTERPRETER 
508 (1FC) A-ADDRESS 4 PTKRSV71 RESERVED 
512 (200) CHARACTER 16 DESTINATION MANAGER FIELDS » 
512 (200) A-ADDRESS 4 PTKDIB HEAD OF DEST INTRFC BLOCK QUEUE 
516 (204) A-ADDRESS 4 PTKCCDIB ADDR OF DIB FOR CONTIN COPY 
520 (208) CHARACTER 8 PTKSLCTM STORE CLOCK LIMIT 
528 (210) CHARACTER 64 LIBRARY MANAGER FIELDS 
528 (210) CHARACTER 1 PTKCSFLG LIBRARY SERVICES FLAGS 
lL... ee PTKCSSRZ COPZ INVOKED FOR SOURCE 
lo. veee PTKCSSKZ COPZ INVOKED FOR SINK 
ee PTKCSFEF COPI FIRST ENTRY 
tl. PTKCSSYS SYSTEM ERROR DURING COPY 
. dee PTKCSPAS ACTIVE WS HAS PASSWORD 
Sees oo PTKCSDIR AP123 IS USING APLDIR FILE 
529 (211) CHARACTER 1 PTKRSV91 RESERVED 
530 (212). UNSIGNED 3  PTKLIBNO CURRENT LIB NR (BINARY) 
533 (215) CHARACTER 11 PTKLNAME CURRENT WS NAME 





XSYS>» 


TYPE 


AP) continued 
LENGTH 


NANE 


DESCRIPTION 


SIGNOFF ECB FOR ADSM 


SIGNED 
SIGNED 


RESERVED 
14 BYTE VSAM KEY 


UNSIGNED 
CHARACTER 


PROLIBNO 
PROCODE 


ALSO USER SIGN ON NUMBER 
DEFAULT WS SIZE 


SIGNED 
CHARACTER 


PROSSOBM 
PROTYPE 
PROFREE 
PROFEB 
PROUPROF 


PROCICS 
PROPUB 


PROPRIV 


TYPE BYTE 

FREE SPACE RECORD 
FILE EXTENT RECORD 
USER PROFILE BIT 
RESERVED 

CICS PROFILE FLAG 
PUBLIC LIBRARY 
RESERVED 

PRIVATE LIBRARY 
FLAG BYTE 1 


PROFLAG1 
PROCWS 
PROLOCK 


RESERVED ) 
CONTINUE WORKSPACE SAVED 
RESERVED 

USER IS LOCKED 

LOGON. PASSVIORD 


PTK (CICS, 
OFFSETS 
544 €220) 
552 (228) 
556 (€22C) 
560 (230) 
564 (234) 
568 (238) 
572 (230) 
576 (€240) 
580 (244) 
584 (248) 
588 (24C) 
592 (250) 
592 (€250) 
592 (€250) 
592 (250) 
594 (252) 
596 (€254) 
596 (€254) 
599 €257) 
600 ¢€258) 
604 ¢25¢€) 
608 ¢260) 
610 ¢€262) 
611 ¢€263)3 
612 (264) 


CHARACTER 


PROPSWD 


USER AUTHORIZATION MASK 
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OFFSETS TYPE LENGTH NAME DESCRIPTION 
620 (€26C) BITSTRING 3 PROAUTH SESSION MODIFIABLE FIELDS 
623 (26F) CHARACTER 9 FLAG BYTE 2 
623 (€26F) CHARACTER 1 PROFLAG2 CONTINUOUS COPY FLAG ; 
Visaen ees: PROCONCY DISPLAY APL SESSION ON USER 
TERMINAL 
i PRODSES 
i ee HARDCOPY DESTINATION IS DEFINED 
FOR THIS USER 
oe PROHCDEF 
A ae PROPWCNG RESERVED 
11 COPY GCUTPUT TRANSLATE TABLE 
624 (270) CHARACTER 4 PROXLATE CICS HARDCOPY DESTINATION 
628 (274) CHARACTER 4 PRODEST MAXIMUM WS SIZE THIS USER 
632 (278) SIGNED 4 PROMAXWS AP121 DEFAULT FILE SIZE IN INCRS 
4K-LENCCI TRAILER) 
636 (27C) SIGNED 4 PRODEFIL ) 
640 ¢€280) SIGNED 4 PRODASMX 
644 (284) SIGNED 4 PRODASU RESERVED 
648 (288) SIGNED 4 NO. OF LIBRARY ACCESSES TO DATE 
652 (28C) SIGNED 4 PRONLATD 
656 (¢€290) SIGNED 4 PRONLATS 
660 (294) SIGNED 4 PROCPUTD CPU TIME THIS SESSION-MSECS 


664 (298) SIGNED 4 PROCPUTS TERM CONNECT TIME TO DATE IN a 
SECONDS CAS IN TCTS) 


668 (€29C) SIGNED 4 PROTCTD 

672 (€2A0) SIGNED 4 PROTCTS SCROLL FILE SIZE IN LINES 
676 (€2A4%) SIGNED 4  PROSCRLS INSTALLATION DEFINED NAME FIELD 

680 (€2A8) CHARACTER 28 PRONAME 

CROSS REFERENCE J 

DBGECHO 109 X'02' PROFLAG2 623(026F) PROTCTS 672¢€2A0) 
DBGMICRO 109 X'8&0' PROFREE 610 X'80' PROTYPE 6100262) 
DBGMSG 109 X'01" PROHCDEF 623 X'08' PROUPROF 610 X'20' 
DBGNSTAE 109 X*"40" PROHEADR 3992250) PROXLATE 624(270) 
PRO 5$2(259) PROKEY 596 (254) PTH 0 «¢€0) 
PROAUTH 620¢€26C) PROLENHW 5992(€250) PTHACCNO 36 (24) 
PROCICS 10 X'G8’ PROLIBNO 596254) PTHASYNC 60) 6¢6) 
PROCODE 99 (257) PROLOCK 611 X'*'0Q1'° PTHATTN @ X'01" 
PROCONCY 23 X'8O' PROMAXWS 632(278) PTHCNCTM 64 (40) 
PROCPUTD 660(294) PRONAME 680(2A8) PTHCPULM 0 X'20’ 
PROCPUTS 6640298) PRONLATD 652¢28C) PTHCPUTM 48 (30) 
PROCNS 11 X'20" PRONLATS 656(290) PTHCURSR 18 (12) 
PRODASMX 640¢280)} PROPRIV 610 X’01' PTHCWBIT 3 X'80! 
PRODASU 6440284) PROPSWD 612(¢264) PTHDATTN 0 X'80’ 
PRODEFIL 636¢027C) PROPUB 610 X'04’ PTHEND 72 (48) 
PRODEFWS 600¢258) PROPWCNG 625 X'04" PTHFOFF 0 X*02' 
PRODEST 628(274) PROSCRLS 676(2A4) PTHFSAVL 5 X'08’ 
PRODSES 23 X"40" PROSSMAX 604(25C) PTHKEYTM 56 (38) 
PROFEB 10 X'40" PROSSOBM 608(260) PTHLOCAL 40 (28) 
PROFLAGI 611¢263) PROTCTD 668(29C) PTHLOCKB 5 X'8Q’ 
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CROSS REFERENCE 


PTHMDY 
PTHMICRO 
PTHMSBLK 
PTHNOOUT 
PTHPARM1 
PTHPARM2 
PTHQEND 
PTHQSIZE 
PTHQVAR 
PTHSINK 
PTHSORS 
PTHSPCLY 
PTHSRCOD 
PTHSUSP1 
PTHSVBIT 
PTHSVON 
PTHUEXTN 
PTHUSTAT 
PTHWABIT 
PTHNIDTH 
PTHWORD1 
PTHWSLEN 
PTHWSTAT 
PTHYYCOD 
PTHYYRC 
PTKAINNT 
PTKALECB 
PTKALECD 
PTKALECO 
PTKALEC2 
PTKBUFAL 
PTKBUFST 
PTKCCDIB 
PTKCSDIR 
PTKCSFEF 
PTKCSFLG 
PTKCSINK 
PTKCSPAS 
PTKCSRLN 
PTKCSSKZ 
PTKCSSRZ 
PTKCSSYS 
PTKCSWSM 
PTKCURSC 
PTKCURSR 
PTKDIB 
PTKDOWT 
PTKFDEST 
PTKFECB 
PTKFFABS 
PTKFFLG1 
PTKFINPT 


5 X'40' 
5 X*'10' 
5 X*'20' 
0 X'04, 


= 


oP, aa ha) 


x >< >< 
Se am Eat bt om a ee ee a ee a oe 


COOLOOMWLPOOMFUAOONMWAPWOOALDLHLOW 


-« 
OOwNwwwwwwow POOwwORPNwwoww 


Mm KKM 


- 


Cl 
o~ 


452 X'"4 
4540106) 
472(01D8) 
468C1D4) 
5316¢€204) 
528 X*'04' 
528 X'20' 
528 (210) 
5640234) 
528 X'08' 
556(€22C) 
528 X*40' 
528 X‘'80" 
528 X*10' 
560¢230) 


432¢€1B0) 
432 X°40' 


PTKFMODE 
PTKFMSG 
PTKFPRIM 
PTKFPROF 
PTKFXLAT 
PTKGKTBP 
PTKGOECB 
PTKLIBNO 
PTKLNAME 
PTKLPASS 
PTKNEWSZ 
PTKNOGDM 
PTKPACT 
PTKPINWT 
PTKPRIME 
PTKPRO 
PTKRSV41 
PTKRSV51 
PTKRSV61 
PTKRSV62 
PTKRSV71 
PTKRSV81 
PTKRSV91 
PTKRSV92 
PTKSECBS 
PTKSESSC 
PTKSESST 
PTKSOECB 
PTKSSPAL 
PTKSSPST 
PTKSTAT 
PTKSYDST 
PTKSYNC 
PTKSY125 
PTKTABN 
PTKTABND 
PTKTABS 
PTKTAPKB 
PTKTAPTX 
PTKTINNT 
PTKTLEN 
PTKTOWN 
PTKTRIP 
PTKTRMID 
PTKTSFAL 
PTKTSFST 
PTKTTXKB 
PTKTTXPR 
PTKTTYPE 
PTKTWECB 
PTKTWID 
PTKT2ECB 


433C1B1) 
432 X°80 
434C1B2) 
432 X'20 


432 X*08' 


572(023C) 
5760240) 


592(250) 
423C1A7) 
456(1C8) 
466¢01D2) 
496C1F0) 
508C1FC) 
524€20C) 
529(€211) 
588(24C) 
504C1F8) 
430C1AE) 
428C1AC) 


& ww oe ow ow 


422C01A6) 
422 X'40 
392(€188) 


465 X*40' 


394C18A) 


464 X"10! 
464 X"40! 
465 X'08! 


460¢€1CC) 
492C1EC) 
465 X'*'20 
5680238) 
480(€1E0) 
476C1DC) 
464 X'20 


464 X'08' 


464(€1D0) 
500C1F4) 
462C1CE) 
4480100) 


PTKT2RET 
PTKT327E 
PTKUEIBP 
PTKUZGDM 
PTKXLTAB 
PTX 
PTXADSM 
PTXAIPUR 
PTXATTN 
PTXCICS 
PTXCMS 
PTXCODE 
PTXDEBUG 
PTXDXTBP 
PTXEND 
PTXFLAG 
PTXFLAGS 
PTXFSRST 
PTXFSTBP 
P TXGXGDM 
PTXGXTBP 
PTXHELP 
PTXHIAOT 
PTXHIFLG 
PTXHITHI 
PTXHIIOT 
PTXHILIT 
PTXHIOHI 
PTXHISF 
PTXLEVEL 
PTXPRTBP 
PTXRSVO1 
PTXRSVO02 
PTXRSVO03 
PTXRSV04 
PTXSCRTH 
PTXSMPSD 
PTXSMP1 
PTXSMP2 
PTXSMP3 
PTXSMP4 
PTXSMP5 
PTXSMP6 
PTXSMP7 
PTXSMTBP 
PTXSTACK 
PTXSUBSY 
PTXTSO 
PTXUSRWA 
PTXVCT 
PTXVSPC 
PTXWSM 


Section 5. 


451¢01C3) 


464 


X'80’ 


5840298) 


432 


Xx'02' 


520(208) 


72 


- 
-s 
t= ] 


f=o fad fo fd fad f= fs fs Fee feo f-2 fs 
WOK OOF ONCO OF 
MeE0Q0QQOWoONMWoORWARaE 


(48) 
X'08’ 


KS 
i= 
a 


SQOwWOwDOOUIA «aA 1A) <« « 
a «a a 


=) 6 
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PTX CALL) 


“This is the executor common services extension of the PTH, and 


contains session information associated with a single user. 


(The 


format of this layout its the one used in publications titled 
"Data Areas and Symbolic Names Cross-Reference Table”, usually 
distributed on microfiche.) This control block is mapped by the 
APLXXPTX macro. 


LENGTH 


DESCRIPTION 


oe ee eee eee eee eee ee eee es ee ee ee ee eee eee eee eee ee ee eee ee eee eee ee ee ee eee ee ee 


PTX FLAG WORD 


OFFSETS TYPE 
0 C0) STRUCTURE 
0 (0) A-ADDRESS 
& (4) A-ADDRESS 
& (8) A-ADDRESS 
12 (€C) A-ADDRESS 
16 €10) A-ADDRESS 
20 €14) A-ADDRESS 
24 €18) A-ADDRESS 
28 €1C) A-ADDRESS 
32 €20) A-ADDRESS 
36 (24) BITSTRING 
36 (24) BITSTRING 
Ddtve, .Sad< 
a ee 

or eee 
37 (25) BITSTRING 
litte beac 
> ee eee 

enki: hace 

ay ee 

se: Devs 
Seer 

ee 
: ereene.,. fae 
38 (26) ee 
S ae 

ee) eee 

ee ee ee 
39 C27) BITSTRING 


une 


PTXSUBSY 
PTXTSO 
PTXCMS 
PTXCICS 
PTXVSPC 
PTXDEBUG 
DBGMICRO 
DBGNSTAE 


DBGECHO 
DBGMSG 
PTXFLAGS 
PTXAIPUR 
PTXFSRST 


PTXADSM 
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SUBSYSTEM 
THIS IS A 
THIS IS A 
THIS IS A 
THIS IS A 


IDENTIFYER 

TSQ USER X'8O' 
CMS USER X'40' 
CICS USER X'20' 
VSPC USER X'10' 


DEBUG OPTIONS 

DEBUG NO MICROCODE TEST X"80' 
DEBUG CANCEL ESTAE EXITS X'40' 
DEBUG RESERVED X'20’ 

DEBUG RESERVED X'10'° 

DEBUG RESERVED X‘08' 

DEBUG RESERVED X‘'04' 

DEBUG ECHO STACK CCMD PARM)X'@2' 
DEBUG ERROR MESSAGES X'01" 
GENERAL USE FLAGS 

PURGE ALTERNAT INPUT STACK X'*80O' 
FULLSCREEN RESTORE REQUIREDX'40' 
RESERVED X'30' 


ADSM OWNS 
RESERVED 


THE SESSION X*08’ 








PTX (ALL) conttnued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 

40 (28) A-ADDRESS 4 PTXDXTBP DUMP SERVICES TABLE POINTER 
44 ~«(20) SIGNED 4 PIXLEVEL | VS APL RELEASE LEVEL.” 
48 (30) SIGNED | 4 PTXCODE | GDDM TERMINAL TYPE CODE KICO381 
52 (34) CHARACTER 28 PTXSCRTH 7 WORD SCRATCH PAD AREAS 
52 (34) CHARACTER 8 PTXSMPSD | —s ADSM PASSWORD RETURN AREA” 
52 «(34) SIGNED 4 PTXSMP1 | ADSM PARMI FIELD 
56 (38) SIGNED 4 PTXSMP2 ADSM PARM2 FIELD = asst 
60 «4(3C) CHARACTER) 2000 ¢2¢C~*i“‘:*™*# ADDITIONAL ADSM PARM FIELDS 
60 «(3C) SIGNED 4 PTXSMP3 ADSM PARM3 FIELD a a tst—~S 
64 ~«(40) SIGNED” 4 PIXSMPS ADSM PARM6 FIELD = stst—~sS 
68 «4¢44) SIGNED” 4 PIXSMPS ADSM PARMS FIELD i i atttitsts—~S 
72 «(48) SIGNED” 4 PTXSMP6 | ADSM PARMG FIELD | 
76 (4C) SIGNED 4 PTXSMP7) ADSM PARM7 FIELD ttstst—~S 
80 (50) SIGNED 4 PTXHILIT | SF,OUT-ATTR,IN-ATTR, FLAGS HILITE 
80 (50) CHARACTER 1 PTXHISF START FIELD 3270 ORDER HILITE 

81 (51) CHARACTER 1 PTXHIAOT OUTPUT ATTRIBUTE BYTE HILITE 

82 (52) CHARACTER 1 PTXHIIOT INPUT ATTRIBUTE BYTE HILITE 

83 (53) BITSTRING 1 PTXHIFLG FLAGS FOR SESSION MANAGER HILITE 

Lew. wee PTXHIOHI OUTPUT HILITE REQUESTED HILITE 
1. PTXHIIHI INPUT HILITE REQUESTED HILITE 

84 (54) A-ADDRESS 4 PTXHELPQ ADDRESS OF MS@ QUEUING RTN )MORE 
88 (58) A-ADDRESS 4 PTXUSRWA USER GETMAIN AREA ADDR EXIT 
92 «4(5C) SIGNED —™” 4 PTXRSVOL | RESERVED = = | 
96 + «(60) SIGNED” 6 PTXRSVO2 RESERVED a ssts—sS 
“1000« (64) SIGNED 4 PTXRSVO3) RESERVED 
104 (68) SIGNED 4 PTXRSV04 RESERVED 
108 «= (6C) CHARACTER 0 ~PTXEND) = ENDOF PIX 
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cross 


DBGECHO 
DBGMICRO 
DBGMSG 
DBGNSTAE 
PTX 

PTX 
PTXADSM 
PTXADSM 
PTXAIPUR 
PTXAIPUR 
PTXATTN 
PTXCICS 
PTXCMS 
PTXCODE 


PTXDEBUG 


PTXDXTBP 
PTXEND 
PTXFLAG 
PTXFLAGS 
PTXFSRST 
PTXFSTBP 
PTXGXGDM 
PTXGXTBP 
PTXHELPS 
PTXHIAOT 
PTXHIFLG 
PTXHIIHI 
PTXHIIOT 
PTXHILIT 
PTXHIOHI 
PTXHISF 
PTXLEVEL 
PTXPRT BP 
PTXRSVOL 
PTXRSVO2 
PTXRSVO3 
PTXRSV04 
PTXSCRTH 
PTXSMPSD 
PTXSMP1 
PTXSMP2 
PTXSMP3 
PTXSMP4 
PTXSMP5 
PTXSMP6 
PTXSMP?7 . 
PTXSMTBP 
PTXSTACK 
PTXSUBSY 
PTXTSO 
PTXUSRWA 
PTXVCT 
PTXVSPC 
PTXWSM 


Licensed Material—Property of IBM 
VS APL Program Logic 


344 


REFERENCE 


t | 
on 


X'O02' 
X'80' 
X'O1' 
X"'40' 
(0) 
(48) 
X'08! 
X'08' 
X'80! 
X'80' 


on 
N 
fm | 
Ld 
._ - « 


“VNMUANNW <- «= 


ANAND HRAAWWWWWANDKAUR AUT <UTUT «UT UT UTP RP 
KH SOOO OWOODALHLADBWHHADWAPAOWO SCHON SWF HAQALHLOPRHLOWGUIGILN 


on xem 
SS us et SD a a a a ee a ee ed ee Oe S&S es Se a ae a es 20 ee ee ee ae es OO 


ox 
ww OL 








SCV (ALL) 


Share control vector (SCV), 
shared variable. It 
processor and shared storage manager. 
mapped by the APLSCV macro. 


LENGTH 


TYPE 


NAME 


which contains information about a 
is used in communication between auxiliary 


This control block is 


DESCRIPTION 


=e ee ee ee ee ee eee ee a ee ee ee ee ee ee ee ee ee es es ee i ee ee ee es es ee ee eee ee ee ee 


SIGNED 
SIGNED 


SCVNO 


OFFER SEQUENCE NUMBER 
PERSHARE INDEX 


Eee eee eee ee ee ee eee ee a ee ee ee es ee eee eee ee ee eee ee ee ee Se eee ee eee a ee ee ee ee 


CHARACTER 
1... wee. 
~l.. wee 
eel. ...- 
-eeL woe. 
UNSIGNED 
CHARACTER 


UNSIGNED 
BITSTRING 
Ll... wee 
CHARACTER 


-— 


-— 


SCVACV. 
SCVAM§PC 
SCVAPSPC 
SCVAMREF 
SCVAPREF 
SCVALEVL 
SCVFLAGS 
SCVALLID 
SCVNAMES 
SCVFHOLD 
SCVFGOFR 
SCVFISPC 
SCVFOFR2 
SCVFSHR 
SCVFOFRL 
SCVNAMEL 
SCVFLAG2 
SCV2EBCD 
SCVEND 


ACCESS CONTROL VECTOR 
CONTROL MY SPECIFICATION 
CONTROL PARTNER'S SPEC 
CONTROL MY REFERENCE 
CONTROL PARTNER'S REFER 
LEVEL OF AUTH. CHECK 
FLAGS 

QUERY FOR ALL ID'S 

QUERY FOR ALL NAMES 

HOLD AFTER COPY 

GENERAL OFFER 

IGNORE VALUE WAITING 
QFFERED BY PARTNER 
VARIABLE IS SHARED 
OFFERED BY THIS USER 
LENGTH OF NAME 

FLAGS 

MAP CHAR DATA TO/FROM EBCDIC 
END OF SCV 


SIGNED 


THIS PROCESSOR'S NUMERIC ID 


eee ee eee ee eee ee eee ee eee ee eee eee eee es es es ee ee ee ee ee ee ee eee 


OFFSETS 
0 (0) 
0 (0) 
4 (4) 
8 (8) 
10 (A) 
12 (C) 
16 (10) 
20 (14) 
24 (18) 
28 = 1C) 
32, (20) 
32, (20) 
33.9 (21) 
33.90 «(21) 
34 (22) 
35 (23) 
360 (24) 
0 (0) 
0 (0) 
4 (4) 
8 (8) 
12 (C) 
16 (10) 


SIGNED 


A-ADDRESS 


SCVPART 


SCVVALUE 


NUMERIC ID FOR PARTNER 


POINTER TO BUFFER CONTAINING VAL 
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SCV (ALL) continued 





OFFSETS TYPE LENGTH NAME DESCRIPTION 
20 (14) A-ADDRESS 4  SCVNAME POINTER TO NAME OF VALUE 
24 (18) SIGNED 4 SCVSIZE SIZE OF SCVVALUE IN BYTES 
28  (1C) SIGNED 4 SCVLEN LENGTH WANTED BY COPY, REF, SPEC 
32. (20) SIGNED 4 SCVMISC MISC LENGTH AND FLAG BYTES 
32. (20) CHARACTER 1 SscVvacy LOGICAL ACCESS CONTROL VECTOR 
1... ween SCVAMSPC ON TO CONTROL MY SPECS X'80° 
i... SCVAPSPC ON TO CONTROL PRTRS SPECS X'40! 
eo SCVAMREF ON.TO CONTROL MY REFS X'20° 
teal lll. SCVAPREEF ON TO CONTROL PARTNER REFS X'10° 
33. (21) CHARACTER 1 SCVFLAGS LOGICAL FLAGS 
1... .... SCVALLID QUERY FOR ALL PARTNER ID*S X'80" 
t.. SCVNAMES QUERY FOR ALL NAMES X'40° 
“1. SCVFHOLD HOLD AFTER SCOPY, NEXT OP X'20° 
a Ie SCVFGOFR GENERAL OFFER X'10! 
i... SCVFISPC IQNOR VALUE WAITING ON SPC X'08° 
i... SCVFOFR2 VARBLE IS OFFERED BY PART X‘'06! 
‘1. SCVFSHR VARIABLE IS SHARED X'02' 
teen ceed SCVFOFRI VARIABLE OFFERED-THIS USER X'O1' 
34 (22) BITSTRING 1 SCVNAMEL NUMBER OF CHARACTERS IN NAME 
35 (23) CHARACTER 1 SCVFLAG2 RESERVED ALL BUT ONE 
Ll... .ea, SCVFDOFR DOUBLE OFFER X'80' 
0 (0) STRUCTURE 36 APLSCV 
0 (0) CHARACTER 36 SCV 
0 (0) SIGNED 6 S§cCVID 
4 (4) SIGNED 4 SCVPART VS APL TSO/CMS SCV PLS MAPPING 
8 (8) SIGNED 4 SCVNO BEGINNING OF SCV 
12 (C) A-ADDRESS 6 SCVECB THIS PROCESSOR'S NUMERIC ID 
16 (10) A-ADDRESS 4 SCVVALUE NUMERIC ID FOR PARTNER 
2 (14) A-ADDRESS 6 SCVNAME POINTER TO THIS SVC'S ECB 
24 (18) SIGNED 4 SCVSIZE ‘POINTER TO BUFFER CONTAINING VAL 
28  (1C) SIGNED 6 SCVLEN POINTER TO THIS SVC'S ECB | 
32. (20) SIGNED 4 SCVMISC ; 
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SCV (ALL) continued 


TYPE 


LENGTH 


DESCRIPTION 


CHARACTER 
Aiea: gadis 
sade 
oat aes 
CHARACTER 
Estee stg bs 
a 
es aeons 
Se 
i 
i 
Sim. Gand 
BITSTRING 
CHARACTER 


SCVACY 
SCVAMSPC 
SCVAPSPC 
SCVAMREF 
SCVAPREF 
SCVFLAGS 
SCVALLID 
SCVNAMES 
SCVFHOLD 
SCVFGOFR 
SCVFISPC 
SCVFOFR2 
SCVFSHR 
SCVFOFRI 
SCVNAMEL 
SCVFLAG2 
SCVFDOFR 


POINTER TO NAME OF VALUE 
SIZE OF SCVVALUE IN BYTES 
LENGTH WANTED BY COPY, REF, 
MISC LENGTH AND FLAG BYTES 
LOGICAL ACCESS CONTROL VECTOR 
ON TO CONTROL PRTRS SPECS X'S0' 
ON TO CONTROL MY REFS X'20° 


LOGICAL FLAGS 

QUERY FOR ALL NAMES X'40° 

IQNOR VALUE WAITING ON SPC X°08' 
VARIABLE OFFERED-THIS USER X'Ol' 


VARBLE IS OFFERED BY PART X'04' 
DOUBLE OFFER X‘'80° 


SPEC 


_= = a ee oD oF Se eS ew OF Oe ee SP GD a oe ow oe ome ew em em ww Om ww @ Oe ww we ey ee ewe oe SD @ 6 we ow em oe oe ew Ow SD oe © © @® © ow SE OF «cw ee OD Om O88 Se we @e = oo SS @ OF ee | OF ee a = 


OFFSETS 
32 (20) 
33 C21) 
34 (22) 
35 (23) 
36 C249) 


CHARACTER 


CROSS REFERENCE 


APLSCV 
SCV 
SCVACV 
SCVALEVL 
SCVALLID 
SCVAMREF 
SCVAMSPC 
SCVAPREF 
SCVAPSPC 
SCVATYPE 
SCVECB 
SCVEND 
SCVFDOFR 
SCVFGOFR 
SCVFHOLD 
SCVFISPC 
SCVFLAGS 
SCVFLAG2 
SCVFOFRI 
SCVFOFR2 
SCVFSHR 
SCVID 
SCVINAME 
SCVLEN 
SCVMISC 
SCVNAME 
SCVNAMEL 
SCVNAMES 
SCVNO 
SCVPART 
SCVSIZE 
SCVVALUE 
SCV2EBCD 


se“ se = 3s @ 


Lo 
N 
mK KKK MAAN 


“RRA eRe Ne Am « eM AIN) © « 2 OMI ADR © © 2 ew ONAN 


ee 2 2&2 @ 


W 
tal 
MK MK NS OK RRO 


RCOAOHNAKANLHOOPADCAOWRFKANFWBOHAWDLKANOrHA0CAQ 
OO we os 9 we Owe ow ta we AD DEY ww OOO dOwww DOQQ OQOw www 


SCVEND 


END OF BASIC SCV 
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SGN (CICS, XSYS, AP} 


This is the APL signon table. It contains an entry for each user 
Signed on to APL. It identifies the user's terminal and points 
to the perterm. The SGN is pointed to by the GBL; individual 
entries in the SGN are pointed to by the PTK. This control block 
is mapped by the APLKSGN macro. 





OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE. 12, SGN 
0 (0) A-ADDRESS == SGNPTH ADDR OF USER PERTERM 
LT... wee, SGNFREE ON FOR A FREE ENTRY 
4 ~~ G4) SIGNED ¢ SGNUSID | USERID = 
8 (8) A-ADDRESS 4 ~«SSGNTCTTE =©—SADDR OF CICS TERM ENTRY” 


CROSS REFERENCE 


SGN 0 (0) | 
SGNFREE Q xX*80" 
SGNP TH 0 8 6¢9) 
SGNTCTTE 8 (8) 
SGNUSID G6 (4) 
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SHVAB (xSYS) 


This is the shared variable block in shared memory, used within 


the shared storage manager. 


APLSHVAB macro. 


This control block is mapped by the 


DESCRIPTION 


meee eee eee ee ee eee eee eee ee ee ee ae eee ee eee ee es eee eee ek eee ee a 


. 
ee ee ee ee ee ee eee ee ee eee ee ee ee ee — ee ee eee ee 


VABACV 
VABACV1 


VABACV2 
VABFLAGS 


CURRENT ACCESS CONTROL VECTOR. 
ACCESS CONTROL VECTOR FOR IST 
PARTNER. 

ACCESS CONTROL VECTOR FOR 2ND 
PARTNER. 

FLAGS AS DEFINED BELOW. 


bl Ee a es ee i ee i A ee oi i ee ee ee ee 


ee ee ee ee ee ee ee ee ee ee ee ee 


mee eee ee eee ee eee ee eee ee ee ee eee eee ae ee eee eee ee ee eee eee 


OFFSETS 
0 (0) 
0 (0) 
0 (0) 
4 (4) 
8 (8) 
9 (9) 
10 (A) 
il (B) 
12 (C) 
16 (10) 
20 3 ¢14) 
24 (18) 
28 1C) 


TYPE LENGTH 
STRUCTURE 0 
SIGNED 4 
SIGNED 4 
SIGNED 4 
HEX 1 
HEX 1 
HEX 1 
HEX 1 
SIGNED 4 
SIGNED 4 
SIGNED é 
SIGNED G, 
HEX 1 
HEX 1 
HEX di 
Se era | 

be & be | 


VABFLAG2 
VABNAMEL 
VABNAME 
VABTYPE 
VABSIZE 


FLAGS AS DEFINED BELOW. 

LENGTH OF NAME IN BYTES. 

NAME. 

"2"IDENTIFIER FOR VAB ENTRIES. 
"VABNAME-VABENTRY" 


nme eee ee eee ee ee ee eee eee ie sea ee eee ee eae ee eee ee eee 
ee ee ee eee eee eee eee eee eae ae eee 


DEFINITIONS 


eas 
a ee 
ere 
ae 
a 
ae ee 
oad 


VABFOFRI 
VABFOFR2 
V4BFSPCI 
VABFSPC2 
VABFPID1 
VABFPID2 
VABFLCKI 
VABFLCK2 


"X*S8O'"VARIABLE OFFERED BY IST 
PARTNER. 

"X'GO'"VARIABLE OFFERED BY 2HD 
PARTNER. 

"X'2ZO''VARIABLE LAST SPECIFIED BY 
1ST PARTNER. 

"X'LO'"VARIABLE LAST SPECIFIED BY 
eND PARTNER. 

"X'OB'"VABPID1 CONTAINS ADDRESS OF 
PRE1. 

"X'OS""VABPID2 CONTAINS ADDRESS OF 
PRBe. 

*XTO2'"VARIABLE HELD BY IST 
PARTNER. 

"X'OL''VARTABLE HELD BY 2ND 
PARTNER. 
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SHVAB (xSYS) continued 
OFFSETS TYPE LENGTH NAME | DESCRIPTION } 


DEFINITIONS FOR THE ACCESS CONTROL VECTORS CVABACV, VABACVI 
AND VABACV2): 


Li... fw aee VABASPC1 "X'ZO""CONTROL FOR SPECIFICATIONS 
BY PARTNER 1. 
wt... wee VABASPC2 "X'GO"'"CONTROL FOR SPECIFICATIONS 
BY PARTNER 2. 
-1l. ..e. VABAREF1 "X'20'"CONTROL FOR REFERENCES BY 
PARTNER 1. 
-1 .... VABAREF2 "X'1O"'"CONTROL FOR REFERENCES BY 
PARTNER 2. 
DEFINITIONS FOR VABFLAG2: 
1... ee. VABFSINI "X'380'"1ST PARTNER'S 
SPECIFICATIONS INTERLOCKED. 
ol... 2. VABFSIN2 "X'G40'"2ND PARTNER'S 
SPECIFICATIONS INTERLOCKED. 
ol. we. VABFRINI "X'20'"1ST PARTNER'S REFERENCES 
INTERLOCKED. | 
~-l .... VABFRIN2 "X'1O'"2ND PARTNER'S REFERENCES ) 
INTERLOCKED. 


CROSS REFERENCE 


APLSHVAB 0 (0) 

VABACV 8 (8) 

VABACVI 9 (9) 

VABACV2 10 (A) 

VABAREF1 30 xX'20° 

VABAREF2 30 X"10" | 
VABASPCI 30 X'80" 

VABASPC2 30 X'40' J 
VABDATA 20 (14) 

VABDSIZE 24 (18) 

VABECBI 12 (C) 

VABECB2 16 (10) 

VABENTRY 0 (0) ! 

VABFLAGS 11 (B) 

VABFLAG2 28 (1C) 

VABFLCK1 30 x'02° 

VABFLCK2 30 x'OL" 

VABFOFRIL 30 X'80" 

VABFOFR2 30 X'40! 

VABFPIDI 30 X'08" : 
VABFPID2 30 X"04' ) 
VABFRINI 30 X'20° 

VABFRIN2 30 x'1a' 

VABFSINI 30 x"Bo? 

VABFSIN2 30 X'40? 

VABFSPC1 30 x'20° 

VABFSPC2 30 X"10" 

VABNANE 30 (1E) 

VABNAMEL 29 (1D) 

VABPIDI 0 (0) 

VABPID2 4 (4) 

VABSIZE 30 X"1E! 

VABTYPE 30 X'02! 
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STK (CICS, 


OFFSETS 


XSYS, AP) 


This is the stack entry and stack block control block. It 


describes an entry 
the beginning of a stack block. 


in a work stack .and control 


information at 
CThe format of this layout is 


the one used in publications titled ‘"Data Areas and Symbolic 
Names Cross-Reference Table," usually distributed on . 
microfiche.) This control block is mapped by the APLXSTK macro. 


TYPE 


LENGTH 


DESCRIPTION 


STKPEXIT 
STKPEX1 


ADDR OF ABEND EXIT ROUTINE 
FLAG IS ON AT OWNER LEVEL 


SIGNED 
SIGNED 


STKBSIZE 
STKBLENI 


SIZE OF ENTIRE BLOCK CONNER) 
LEN. OF 1ST STACK ENTRY COLNER) 


CHARACTER 


CROSS REFERENCE 


STK 
STKBLENI 
STKBSIZE 
STKPEXIT 
STKPEX1 
STKPNAME 
STKP13 


0 
6 


a at, i ah, a ah 
HOoOM@aoa Dhan a 
ee ee Ce ee 


6 
0 
o X 
& 
G 


STKPNAME 


ENTRY POINT NAME COR OWNER NAME) 
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TBL (VSPC, AP) 


This is the VSPC AP 126 address and request table. It is mapped 
by the APLXGTBL macro. 





OFFSETS TYPE LENGTH NAME ' DESCRIPTION 
0 CO) STRUCTURE 0 TBL 
0 C0) SIGNED 4 TBL126RQ AP 126 REQUEST CODE 
4 (4) CHARACTER 8 TBLRQNAM GDDM CALL NAME 
12 (C) A-ADDRESS 4 TBLRQPT POINTER TO TABLE ENTRY 


TBL 0 (0) 
TBLRQNAM G (4) 
TBLRQPT 12 (C) 
TBLI2Z6RQ 0 6 6¢0) 
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TCD (CICS, AP) 


This is the CICS/VS executor translation routine request block. 
It 18S mapped by the APLKTCD macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE 0 TRAN PARM LIST PTR IN RI 
0 (0) HEX 1 TRANCD REQUEST CODES 
1 C1) HEX 1 TRANOPT OPTIONS 
2 (2) SIGNED 2 TRANDLEN LENGTH DATA TO TRANSLATE 
4 (4) A-ADDRESS 4 TRANDPTR PTR TO SOURCE DATA 
oer. Le.., TRANENDM "*" END OF MINIMUM LIST 


ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee eee ee 
=—_— Se eee eee eee eee eee eee eee eee ee ete eer eee 


8 (8) A-ADDRESS 4% TRANTPTR PTR TO TARGET AREA IF MOVE 
REQUESTED 
12 (C) A-ADDRESS G TRANTEND PTR, END TARGET AREACEXP/CONT) FOR 


CALL, PASS MAX END ON RETURN, PTR 
TO NEXT UNUSED BYTE 


16 C10) A-ADDRESS 4 TRANTBL PTR TO CALLER~PROVIDED 
TABLECI-FOR-1) 
-1 .1.. TRANEND "*" END OF TRAN PARM LIST 
TRANSLATE TABLE REQUEST CODES CUSED WITH TRAN ROUTINE) 
. TRANZS "go" ZCODE TO STANDARD EBCDIC 
ted TRANSZ "i" STANDARD EBCDIC TO ZCODE 
ol. TRANSO "2" STANDARD EBC TO OLD 3270 BASIC 
-.11 TRANSOP 1 "3" STANDARD EBC TO OLD 3270 
APLTEXT,PG 1 RESERVE ONE CODE, 
PAGE 2 
.L.l TRANSS88& "5" STANDARD EBC TO OLD 3288 TEXT 
FEATURE 
Ll. TRANOS "6" OLD 3270 TO STANDARD EBC 
li. TRANOSP I "6" SAME TABLE FOR PAGEL RESERVE 
ONE CODE, PAGE 2 
1... TRANSN "8" STANDARD EBC TO NEW 3270 
1... TRANSNPI "8" NEW 3270 APLTEXT PGI = BASIC 
PG 1 RESERVE ONE CODE FOR PAGE 2 
1.1. TRANNS "10" NDS 3270 TO STANDARD EBC 
1.1. TRANNSPI "10" USE SANE TABLE FOR APLTEXT PG 
1 RESERVE ONE CODE, PAGE 2 
1... 1... TRANUSR "X'80°'" USER-PROVIDED TRANSLATION 
OPTION FLAGS USED WITH TRAN ROUTINE (0 IF NOT APPLICABLE) 
1. TRANAPLT "X'80°" APLTEXT DOUBLE TABLE, ONLY 
WITH TRANSO,TRANOS, TRANSN, TRANNS 
-l.. 2... TRAHMOVE "X'40'" DO MOVE, WITH ANY 
~l. J... TRANEXP "X'20°" EXPANSION MAY OCCUR CTLEN 
REQUIRED) ONLY WITH TRANSO,TRANSN 
-l .... TRANCONT "K'10°" CONTR MAY OCCUR CTLEN REQD 


IF MOVE) ONLY WITH TRANOS,TRANNS 


mee eS Se SF SS Se SOS eS eee ee eee Pa Oe eee EO eee ee eee eee ee OO eee ee eee eT SEE eee eT ee See 
Ne Te eee. ee ee ee ee ee ee ee 


RETURN CODES FROM TRAN ROUTINE 


TRANRCOK "Oo" OK 
-.1d 4.1 TRANRCLE "53" LENGTH ERROR CSAME AS 
TRCNOSP ) 
-l1. .1.1 TRANRCSE "101" INVALID PARMS (SAME AS 
TRCBAD) 
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TCD (CICS, AP) continued 
OFFSETS TYPE LENGTH WNAME DESCRIPTION 





Se i i i el 


EQUATES WHICH GOVERN PAGEL, PAGE2 TABLE ORDER IN TRAN RIN AND TBLS 
: TRAN 


PG1l "oO" DISP FROM BASIC PTR, PAGE 
I1TABLE 
TRANPG2 "TRANPG1+256" DISP FROM BASIC PTR, 


PAGE2 TABLE 


CROSS REFERENCE 


TRAN 9 (0) 
TRANAPLT 16 X'80! 

TRANCD 0 (0) 

TRANCONT 16 X'10° 

TRANDLEN 2 (2) 

TRANDPTR G (4) 

TRANEND 16 X"14" 

TRANENDM 4 X08" 

TRANEXP 16 X'20° . 
TRANMOVE =: 16 X40" 

TRANNS 16 X'OAt ») 
TRANNSP 1 16 X'OA' 

TRANOPT 1 (1) 

TRANOS 16 X'06' 

TRANOSP 1 16 X'06' 

TRANPG1 16 X"00" 

TRANPG2 = 256 

TRANRCLE 16 X°35' 

TRANRCOK 16 X"00! 

TRANRCSE 16 X'65! 

TRANSN 16 X'08' 

TRANSNP 1 16 X'08" 

TRANSO 16 X'02" 

TRANSOP 1 16 X'03' ) 
TRANSZ 16 X"OL' 

TRANS88 16 X'05 

TRANTBL 16 (10) 

TRANTEND 12 (€) 

TRANTPTR 8 (8) 

TRANUSR 16 X"80" 

TRANZS 16 X'o0" 
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TRD (XSYS, AP) 


This is the common system services translation request 
descriptor. It ts mapped by the APLXTRD macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
0 (0) STRUCTURE = 448:«sTRD a” PARM LIST PTRINRI 2” 
0 «= C0) UNSIGNED =» 1-sTRDREQCD REQUEST CODE ti—i—‘—~—S 
1 (1) UNSIGNED 1 RESERVED 
2 (2) SIGNED 2 TRDRC RETURN CODE 
—@ = (4) SIGNED) =——s«@SCSTRDSDLEN ©=—SCLENGTH DATA TO TRANSLATE 
8 (8) A-ADDRESS = 4 ~<TRDSDPTR) PTR TO SOURCE DATA t—~S 
12 (0) A-ADDRESS 4 ~=soTRDTDPTR =—SOPTR TO TARGET DATA (MAY=SRCE) 
16 (10) ACADDRESS = 4 =TRDUTRAN USER TRANSLATE TABLE (OPT) = 
20 «(16) SIGNED 4 TRDRIG Rig SAVE AREA ss— 
24°~« (18) SIGNED 24 TRDREGS WORK REG SAVE AREA (R2-7) 


CROSS REFERENCE 


TRD oO ¢€0) 
TRDRC 2 (C2) 
TRDREGS 24 (18) 
TRDREQCD 0.60) 
TRDR14 20 (14) 
TRDSDLEN G (4) 
TRDSDPTR 8 (8) 
TRDTDPTR 12 (CC) 
TRDUTRAN 16 (10) 
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TRQ (CICS, 


Ce ee ee ee a a ee a ee se De ee ae a ea ee ee ee ee ee. a a. a ee se a ee ee 


Ce ee ee ee De eT i ee ee ee ee ee ee a es ee 


ee ee ee ee ee ee ee ee ed ee ee ee ee) 


— eee eee ee ee eee eee eee ee eee ee eae eee eee 


— ee ee ee eee eee ie ee eee ee ee Ee eee eee See ee eee ee eS eee eee eee se ee 


— ee eee eee ee eee eee eee eee ees eee eee eee ee eee eee ee eee eee eee oe 


OFFSETS 
0 (0) 
0 (0) 
1 C1) 
2 C2) 
3 (3) 
4 C4) 
6 (6) 
8 (8) 
12 CC) 
13 CD) 
14 CE) 
16 C10) 
18 C12) 
20 C14) 


XSYS) 


This is the CICS/VS executor terminal request descriptor for 


non-GDDM terminal services. 


LENGTH NAHE 


TYPE 


BITSTRING 

BITSTRING 

liil 

oes. Tn, 
eL.. 
1. 


wear ceed 
BITSTRING - 
1 


SIGNED 
SIGNED 


A-ADDRESS 
UNSIGNED 
UNSIGNED 
SIGNED 


SIGNED 
SIGNED 


CHARACTER 


TRQTYPI 
TRQTYP2 


TRQREST 
TRQALARM 
TRQCUR 
TRQHC 
TRQOPT 
TRQEBC 
TRQWAIT 
TRQRFOR 
TRQFCHK 
TRQbAY 
TRQNULL 
TRQNODAT 


TRQALT 
FRQFLAG 


TRQFNUM 
TRQLEN 


TFGCODIL 
TRQCOD2 
TROCFID 


TRQCROW 
TROQCCOL 


TRQEND 
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VS APL Program Logic 


It is mapped by the APLKTRQD macro. 


DESCRIPTION 


MAIN TYPE CODE-SEE BELOW 
SECONDARY TYPE FLAGS 
RESERVED 

RESTORE SCREEN 

RING ALARM 

SET CURSOR POSITIUN 
HARDCOPY 

OPTION FLAGS 

ON RD/WR, DATA IN EBCDIC 
ON WRITE, WAIT FOR COMPL 
ON FORMAT, REFORMAT 

ON FORMAT, DO FORMAT CHECK 
ON RD. WRITE TO FOLLOW 

ON WR,TRAILING BLNKS=NULLS 
ON RD,PASS NO DATALEN INFO ON 
GD,PASS FLDLEN, NO DATA 
ALTERNATE SCREEN 

RESERVED FOR MORE FLAGS 


NUMBER OF FIELDS 
BUFFER/DATA LEN 


READ CQMPL CODE 
READ COMNPL CODE MODIFIER 
CURSOR FIELD NS 


ROW ADDR, CURSOR 
COL ADDR, CURSOR 


END OF TR@D 











CROSS REFERENCE 


TRQALARM 


TRQALT 
TRQBUF 
TRQCCOL 
TRQCFID 
TRQCODI 
TRQCOD2 
TRQCROW 
TRQCUR 
TRAD 
TRQEBC 
TRQEND 
TRQFCHK 
TRQFLAG 
TRQFNUM 
TRQHC 
TRQLEN 


TRQNODAT 


TRQNULL 
TRQOPT 
TRQREST 
TRQRFOR 
TRQTYPI 
TRQTYP2 
TRQWAIT 
TRQWW 


i 
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x'oi' 
(8) 


~*~ 


MAK MA 
Pe i a a ee ee a ee a a a ee ee, 0 a 0 a a a 
OPK ONAN OCOMKRSGAWeE HMOOOCANOIOMAN 
COoww OMw BDA www Ow OWA ww www 
Py 


x KK OK 


KX 


Licensed Material-—Property of IBM 


Section 5. 


Data Areas 


357 


TSOGL (TSO, XSYS; AP} 


This is the TSO executor global table mapping. For more detailed 
description, see “Executor Data Areas.” It 15 mapped by the 
APLTSOGL macro. 


OFFSETS TYPE LENGTH WNAME DESCRIPTION 
0 C0) STRUCTURE 0 TSOGL 
0 C0) FLOATING 8 PTH 


THE PERTERM HEADER PROVIDES INFORMATION ABOUT THE ACTIVE 

USER WITH REGARD TO THE SYSTEM ENVIRONMENT, AND COMPLETES 

THE COMMUNICATION PATH BETWIXT INTERPRETER AND EXECUTOR. 
4 


0 (0) SIGNED PTHWORDI 
0 C0) HEX 1 PTHASYNC 
Lis. wae PTHDATTN "X"'80'". DOUBLE-ATTENTION 
SIGNALLED 
i rere PTHQEND "X'GO'™, QUANTUM-END REQUESTED 
«Ll. we... PTHCPULM wx'2o'" CPU LIMIT EXCEEDED. 
o. ele. PTHNOOUT "X'OS'™ "CANCEL OUTPUT® SIGNAL 
RECEIVED. 
v1. PTHFOFF *"X'O02"'". LINE-DROP OR BOUNCE 
1 PTHATTN "X'O1'". SINGLE ATTENTION 
SIGNALLED 
1 C1) HEX 1 (€2) RESERVED 
3 (3) HEX iL PTHSUSP1 SUPERVISOR SUSPENSION BITS 
Ll... PTHCWBIT "xX'8or™. CLOCK WAIT BIT 
l.. PTHWABIT "X'GO'™, YYWATE BIT 
> rere PTHSVBIT "K'20°", SH. VAR. WAIT BIT 
PTHWSTAT HOLDS THE PROCESSING STATE OF THIS WS 
4 (4) HEX 1 PTHWSTAT 
Li... wee PTHSVON "X'8o'°". THIS USER SIGNED ON TO SVP 
~.l. PTHSINK "x'O2'". THIS IS A COPY SINK 
1 PTHSORS "X'OL'*. THIS IS A COPY SOURCE 


PTHUSTAT RECALLS THINGS WE'RE DOING FOR OR TO THIS USER 


5 (5) HEX 1 PTHUSTAT 
Loo. cece PTHLOCKB mx'go'™. WE KEEP HIS KBD LOCKED 
dl. lit PTHMDY "X'GQ'™. DATE FORMAT FLAG 
PTHMDY=1="MM/DDVYY® ES 
PTHMDY=0='DD-MM-YY' 
ale cee. PTHMSBLK wx'20'" WE BLOCK HIS MESSAGES 
eee PTHMICRO “x'do'". APL MICROCODE WILL BE 
USED. 
1... PTHESAVL "X'O8'™ RESERVED FOR FULLSCREEN 
EDIT 
oe Lo. PTHUEXTN "X'OG'™ PTH EXTENSION (PTX) EXISTS 
PTHQVAR IS THE MAXIMUM NUMBER OF VARIABLES HE MAY SHARE 
6 (6) SIGNED 2 PTHQVAR 


PTHYYCOD CONTAINS THE YYCODE OF THE LAST SVCC ISSUED 
PTHSRCOD CONTAINS THE RETURN CODE THAT RESULTED. 


8 C8) SIGNED 4 PTHYYRC 
8 C8) SIGNED 2 PTHYYCOD 
| rr PTHSPCLY "X'8O'"HI-ORDER BIT ON IF 
‘SPECIAL’ YYCODE 
10 CA) SIGNED 2 PTHSRCOD 
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TSOGL (TS0, XSYS, AP) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 


12 (C) SIGNED 2 RESERVED 
14 CE) SIGNED 2 PTHWIDTH 


PTHCURSR IS THE TYPEBALL POSITION RESULTING FROM THE LAST 
TYO OR TYI. PTHCURSR=O="AT THE LEFT MARGIN’. 


16 C10) SIGNED 2 RESERVED 

18 (12) SIGNED 2 PTHCURSR es 
PTHQSIZE IS THE MAXIMUM SIZE A SHARED VARIABLE MAY OBTAIN 

20 (149) SIGNED 4 PTHQSIZE 


PTHPARM1, PTHPARM2 ARE RETURN PARAMETER FIELDS FOR 
SOME SVCC FUNCTIONS. 


24 (18) FLOATING Bs 
"36 4a) SIGNED ; priparti 
=.28,_ (202 SEONED 4 PTHPARNG oc sccceeceveccceececeueceeeseess 
PTHWSLEN CONTAINS THE SIZE OF THE WS ADDRESS SPACE 
32, (202 SEONED 4 PTHWSLEN se cescececereeueceeceseeeses 
PTHAGCNO CONTAINS THE BINARY ACCOUNT NUMBER OF THIS USER 
"36. t2a) signed G prmaccNO. SSS 


TIME FIELDS: ALL ARE IN APL-STANDARD TIME FORMAT 
ITE A FLOATING POINT NUMBER OF MICROSECONDS, 
POSSIBLY FRACTIONAL. TIME-OF-DAY VALUES 
ARE FROM THE BEGINNING OF THE APL EPOCH. 
INTERVALS ARE SIMPLY MICROSECOND COUNTS. 

PTHLOCAL IS THE OFFSET OF THIS USER FROM GMT. 

PTHCPUTM IS THE CPU TIME THIS SESSION. 

PTHKEYTM IS THE UNLOCKED-KBD TIME THIS SESSION. 

PTHCNCTM IS THE DATE/TIME HE SIGNED ON. 


40 (28) FLOATING 8 
40 (28) FLOATING 8 PTHLOCAL ss 
G8 «= (30) FLOATING =~ 8 PIHCPUIM = 
56 (38) FLOATING = 8 PTHKEYIM 
64-40) FLOATING 8 PTHCNCIM 
wcceccrcezcetiiiciiiicesscess ee ee eeccecee eae eee RoR ea ER cece 
PTE EE 


THE ‘COMMON EXECUTOR PERTERM EXTENTION’ IMMEDIATELY 
FOLLOWS THE PTH IN THE GLOBAL TABLE. THIS CONTROL 
BLOCK FACILITATES COMMUNICATION BETWEEN THE COMMON 
EXECUTOR MODULES. 
72 (48) FLOATING 8 PTX PERTERM EXTENSION FOR EXECUTOR 
COMMON SERVICES 
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TSOGL (TSO, 
OFFSETS 


= ee ee eee ee ee ees eee eee eee ee ee es ee eee eee ee eee eee eee eee ee 


(6D) 


(6E) 


COMMON WORK 


124 


(7C) 


XSyYS, 
TYPE 


wees Len. 
HEX 
A-ADDRESS 


AREA, 
CHARACTER 


A-ADDRESS 


28 


AP) continued 
LENGTH NAME 


PTXSUBSY 
PTXTSO 
PTXCMS 
PTXCICS 
PTXVSPC 
PTXDEBUG 
DBGMICRO 


DBGNSTAE 
DBGECHO 
DBGMSG 
PTXFLAGS 
PTXAIPUR 
PTXFSRST 
PTXADSM 


PTXDXTBP 


USED FOR/BY ADSM AND IS 
IS AVAILABLE FOR OTHER USERS AS A SCRATCH 


PTXSCRTH 


PTXSMPS5 
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DESCRIPTION 


SUBSYSTEM FLAGS 


"X'8O°" THIS IS A TSO USER 
"X'40°'" THIS IS A CMS USER 
"X'20°* THIS IS A CICS USER 
"X'1O'" THIS IS A VSPC USER 
VARIOUS DEBUG OPTIONS 

"X'80'" DEBUG CANCEL MICROCODE 
TEST DEBUG 

"X'G4O°'™" DEBUG CANCEL ESTAE EXITS 
DEBUG 

"X'02°" DEBUG ECHO STACK (CMD 


PARM) DEBUG 


wx'orr" 


DEBUG 


ERROR MESSAGES DEBUG 


GENERAL USE FLAGS 
"X'8O0'" PURGE THE ALTERNATE INPUT 


STACK 


"X'GO'" FULLSCREEN RESTORE 
ADSM OWNS THE SESSION 
DUMP SERVICES TABLE POINTER 


REQUIRED 


wyrtgarr 


RESERVED 





TSOGL (TSO, 


XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
144 (90) A-ADDRESS 4 PTXSMP6 ADSM PARM6 FIELD 
148 (94) A-ADDRESS 4  PTXSMP? ADSM PARM? FIELD 
152 (98) SIGNED 4 PTXHILIT 1D, 11,00, F0 
SF,OUT-ATTR,IN-ATTR, FLAGS HILITE 
152 (98) HEX 1 PTXHISF START FIELD 3270 ORDER HILITE 
153 (99) HEX 1 PTXHIAOT OUTPUT ATTRIBUTE BYTE HILITE 
154 (9A) HEX 1 PTXHIIOT INPUT ATTRIBUTE BYTE HILITE 
155 (9B) HEX 1 PTXHIFLG FLAGS (OUTPUT, INPUT HILITE) HILITE 
1. PTXHIOHI "X'8O'" OUTPUT HILITING REQUESTED 
HILITE 
152 (98) HEX 1 PTXHISF START FIELD 3270 ORDER HILITE 
153. (99) HEX 1 PTXHIAOT OUTPUT ATTRIBUTE BYTE HILITE 
154 (9A) HEX i PTXHIIOT INPUT ATTRIBUTE BYTE HILITE 
155 (9B) HEX 1 PTXHIFLG FLAGS COUTPUT,INPUT HILITE) HILITE 
1. PTXHIOHI "X'80'" OUTPUT HILITING REQUESTED 
HILITE 
1, PTXHIIHI "X'GO'™ INPUT HILITING REQUESTED 
HILITE 
156  (9C) A-ADDRESS 4 PTXHELPQ ADDRESS OF MESSAGE QUEING RIN 
160 (AO) A-ADDRESS 4 PTXUSRWA ADDR OF INST EXIT WORK AREA 
164  (A4) SIGNED 4 PTXRSVOL RESERVED 
168 (A&) SIGNED 4 PTXRSVO02 RESERVED 
172 (AC) SIGNED 4 PTXRSVO3 RESERVED 
176 (BO) SIGNED 4 PTXRSVO4 RESERVED 
1.11 .1.. PTXEND "*" END OF THE PTX 
i1. il PTXLEN "%-PTX™ SET THE LENGTH OF THE PTX 
DATA AREA IDENTIFIER | oo 
184  (B8) FLOATING 8 
184 (B8) CHARACTER TSOGLID 


—_— eee eee ee eee see ee eer er le ee eee ee ert eee ee eee eee eee ee ee ee 
=e ee ee eee eee eee eee eee 


MACRO NAME . 
DESCRIPTIVE NAME = VSAPL/TSO INSTALLATION OPTIONS. 
REFER TO MODULE AFLCOIBM. 


COPYRIGHT 
STATUS 
FUNCTION 


= RELEASE 4, 


APLOPTNS 


MODIFICATION LEVEL 0. 
ALL VARIABLE VSAPL/“TSO INSTALLATION OPTIONS 


ARE LOCATED HERE FOR EASY REFERENCE. 


THE FOLLOWING VALUES ESTABLISH THE APPROPRIATE 
WORKSPACE LIBRARY QUALIFIERS TO BE USED BY 


APLYULIB. 

192 (CO) SIGNED 2 OPTID SIGNIFICANT LENGTH OF APLID 

194 (C2) CHARACTER & APLID WORKSPACE IDENTIFIER 

202 (CA) SIGNED 2 OPTFR SIGNIFICANT LENGTH OF PUB@LFR 
20% (CC) CHARACTER 8 PUBQLFR PUBLIC LIBRARY IDENTIFIER 

212 (BS) SIGNED 2 OPTL@ SIGNIFICANT LENGTH OF LIB@LFR 
214% (D6) CHARACTER 8 LIBQLFR PRIVATE-SHAREABLE LIBRARY INDEX 


IDENTIFIER 
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TSOGL (TSO, XSYS, AP) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 





THE FOLLOWING VALUES ESTABLISH DEFAULT INFORMATION 
USED FOR ALLOCATING WORKSPACE DATA SETS. 


"228 (EO) SIGNED 4 OPTBLKSZ“DGBTBLKSIZEZ VALUE. 
“228 (€4) CHARACTER 8 LIBUNIT. WNT? VALUE 
236 (EC) CHARACTER 8 LIBSER ________VOLISERS VALUE oss ceccceeee: 
HE FOLLOWING OPTION BITS ARE DEFINED. 
“gaa (F4) BITSTRING 1 OPTBITS1 OPTION BIvs 

DiaPewes Auf tavees OPTDLTX "B°'10000000°" 1: SHAREABLE LIBRARY 


OWNERSHIP IS KEPT EVEN WHEN ALL 
WORKSPACES IN THAT LIBRARY ARE 
DROPPED. 0: SHAREABLE LIBRARY 
OWNERSHIP IS DROPPED WHEN ALL 
WORKSPACES IN THE LIBRARY ARE 


DROPPED. 
slit, eedecate OPTBCH19 "B*O0100000°" 1: WHEN VSAPL/ZTSO IS - 
BEING EXECUTED IN THE BACKGROUND 
BATCH, 192 TRANSLATION IS USED FOR 
APLIN AND APLPRINT. 0: 256 
TRANSLATION IS USED. 
i ere OPTMICRO "B*'O00910000°" 1: WHEN MICROCODE 
CHECK IS TO BE PERFORMED TO TEST 
EXISTENCE OF APL MICROCODE. 0: 
ASSUME MICROCODE IS NOT AVAILABLE 
CTHE DEFAULT FOR MVS CLASS 
MACHINES). 


ee OP TMDY "B'QO00L000'" 0: DATE FORMAT 

DD-MM-YY 1: DATE FORMAT 
MM/DD/YY 

245 (F5) A-ADDRESS 1 OPTBITS2 OPTION BITS 

246 (F6) A-ADDRESS 1 OPTBITS3 OPTION BITS 

247 (F7) A-ADDRESS 1 OPTBITS4 OPTION BITS 

MISCELLANEOUS VALUES. 

248 (F8) BITSTRING 1 OPTTPUT TPUT TYPE FOR PROMPTING OUTPUT 
TPUT=ASIS ==> B'oogono01' 
TPUT=CONTROL ==> B'oogoo0LO 

2469 UF9) A-ADDRESS 3 OPTRSVI RESERVED 

252 (FC) SIGNED 4 OPTERS DEFAULT FREESIZE VALUE 

256 (100) SIGNED 4 OPTSMSIZ DEFAULT GDDM FREESIZE > 

260 (104) V-ADDRESS 4 OPTEXIT "VCAPLYUUSR)™ INSTALLATION EXIT 

, ROUTINE THIS ADDRESS WILL RESOLVE 

AT LINKEDIT TIME. IF NO EXIT IS 
DESIRED, OMIT APLYUUSR. | 

264 (108) SIGNED 4 OPTUSR RESERVED FOR INSTALLATION 

280 (118) SIGNED 4 OPTUSR1 

284 (11C) SIGNED 46 OPTUSR2 

288 (120) SIGNED 4 OPTUSR3 

292 (124) SIGNED 4 OPTUSRS 

296 (128) SIGNED 4 MINAI MINIMUM ALT INPUT SIZE 
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TSOGL (TSO, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 

300 (120) SIGNED 4 STCKLEN DEFAULT LENGTH OF STACK 

304 (130) A-ADDRESS 4 WSSIZMX MAX SIZE WS ALLOWED. 
WORKSPACE. 

308 (134) SIGNED 4 MINWS MINIMUM ACCEPTABLE WS SIZE 

312 (138) SIGNED 4 MINSH MINIMUM SHARED MEM SIZE 

316 (€13C) SIGNED 4 DFLTSM MINIMUM SHARED MEM SIZE 

320 (140) SIGNED 4 FRSIZMN AT LEAST 20K FREESPACE 

324 (144) SIGNED 4 MAXDEBUG ONE BYTE MAXIMUM (8 BITS) 

328 (148) CHARACTER 8 OPTSVPNM SVP IDENTIFY NAME FOR AP'S 

LIST OF RESIDENT AUXILIARY PROCESSORS 

336 (150) SIGNED 4 MAINAPS 

ee MAINAPAD "0,4" ADDRESS OF THE AP 
me ee MAINAPNM "MAINAPADSL" MAINAPAD,& NAME OF THE 
aches babes MNAPENT "MAINAPNM+L °MAINAPNM LIST ENTRY 

LENGTH 

336 (150) HEX 184 (15) DEFAULT LIST SPACE 

336 ¢€150) V-ADDRESS % "VCAPL100)" ADDRESS OF THE AP OR 

340 (€154) CHARACTER 8 NAME OF THE AP 

348 (©€15C) V-ADDRESS "VCAPL101)" ADDRESS OF THE AP OR 

352 (160) CHARACTER 8 NAME OF THE AP 

360 (¢168) V-ADDRESS “"VCAPL102)" ADDRESS OF THE AP OR 
ZERO 

364 (€16C) CHARACTER 8 NAME OF THE AP 

372 (174) V-ADDRESS 4 “VCAPL111)" ADDRESS OF THE AP OR 
ZERO 

376 (€178) CHARACTER 8 NAME OF THE AP 

384 (180) V-ADDRESS "VCAPL120)" ADDRESS OF THE AP OR 

388 (184) CHARACTER 8 NAME OF THE AP 

396 (€18C) V-ADDRESS "VCAPL121)" ADDRESS OF THE AP OR 
ZERO 

400 (€190) CHARACTER 8 NAME OF THE AP 

408 (198) V-ADDRESS 4 "VCAPL126)" ADDRESS OF THE AP OR 
ZERO 

412 (19C) CHARACTER 8 NAME OF THE AP 

420 C1A4) V-ADDRESS 4 "VCAPL123)" ADDRESS OF THE AP OR 
ZERO 

424 (€1A8) ” CHARACTER 8 NAME OF THE AP 
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TSOGL (TSO, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
432 (€1B0) V-ADDRESS 4 "VCAPL210)" ADDRESS OF THE AP OR 
ZERO 
436 (€1B4¢) CHARACTER 8 NAME OF THE AP 
444 (C1BC) SIGNED 4 — ___ LEST DELIMITER 
END OF INSTALLATION OPTIONS 
520 (208) SIGNED 4 OPTEND END OF OPTIONS 
OPTLEN "OPTEND-APLOPTNS”™ LENGTH OF 
OPTIONS 


PROGRAM MANAGEMENT. 
MISCELLANEOUS MODULE POINTERS 


Saw eS ee ee eee eee ae eee aaa eee ee eee ee aaa eee ae ea ee aa a ee eee a ee 2 a ee ere eee eee eee eee eee cee 


clot A ee a Be oe eee sc oes eA 2h os ee 
EXECUTER SAVE AREA STACK AND OTHER SAVE AREAS siti‘; 3 3CO”*”*:S 
524 (20C) SIGNED ¢ CMSAVE SIX SAVE AREAS 
CMSAVEZ "x" MARKS END OF SAVE AREAS. 
"956 (3BC) A-ADDRESS 4 CMSAVEZP ADDR OF END OF SAVE AREAS. 
eave, ese CNSBMNPSV "18x4" TO BUMP TO NEXT SAVE AREA. 
— oe 6S on 
1020 (3FC) A-ADDRESS 4 STCKSAVE(3) USED BY APLI1OL) i ss—s—~— 
1032 (408) A-ADDRESS | 4 SCANSAVE(16) USED BY APLYUSCN 


THE FOLLOWING IS THE ECB TO BE USED FOR GDDX 
SUBTASK CONTROL. IT IS MANAGED COMPLETELY BY GDDX. 


ABEND EXIT WORK AREA, INCLUDES 16 WORD REG SAVE AREA. 
THIS AREA USED FOR SAVE AREA FOR ALL ABENDING TASKS. 


1100 (€44C) SIGNED 4 CMSXBND ENSURE ON WORD BOUNDARY 
1100 (€44C) HEX 1 CMSBTYPE ABEND TYPE CODE 

dee: ara CHSBTPRG "X'80'" PROGRAM CHECK 

1? Pore eae CNSBTSYS "X'40'" SYSTEM ABEND 
1101 (44D) HEX 3 RESERVED 
1104 (450) SIGNED _ 4 CMSBCODE SYSTEM PROVIDED ABEND CODE 
THE FOLLOWING TNO FIELDS ONLY VALID WITH PROGRAM CHECKS ee 
1108 (454) SIGNED 4 CMSBPSWC2) PSW AT POINT OF ABEND 
1116 (€45C) SIGNED 4 CMSBREGS(16) REGISTERS AT POINT OF ABEND 


STORAGE MANAGEMENT. 

KEEP ADDRESS AND LENGTH OF AREA WE GOT IN USER 
PROGRAM AREA FOR WORKSPACE, SHARED MEM AND AP WORK 
AREAS. WE USE THESE TO FREE THE SPACE AT YYOFF. 


1180 (€49C) SIGNED 4 CMSFRADR ADDRESS OF WS, ETC. AREA. 


Licensed Material——Property of IBM 
364 VS APL Program Logic 


TSOGL (TSO, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
1184 (4A0) SIGNED G4 CMSFRSIZ LENGTH OF AREA, IN BYTES. 
CMSGIVBK "32*%10249" GIVE BACK AT LEAST THIS 
MUCH SPACE TO TSO. 
CMSAPWKL "512" EACH AP GETS THIS MUCH CORE 
CIN BYTES) TO USE AS A WORK AREA. 
1188 (€4A4) A-ADDRESS 4 TSOLOADL ADDRESS OF LOADLIB DCB LOADMD 
ACTIVE WORK SPACE IDENTIFICATION 
1192 (4A8) A-ADDRESS 4 CMSWSADR ADDRESS OF INCORE WORKSPACE 


NOTE: STARTING WITH RELEASE 4, PTXWSM MUST ALSO ALWAYS 
CONTAIN THE ADDRESS OF THE ACTIVE WORKSPACE. 


1196 (4AC) SIGNED 4 CMSMAXWS MAXIMUM ALLOWED WS SIZE. (SEE 
PTHWSLEN FOR CURR SIZE) 
CMSMINWS “WSMMINWS” MINIMUM ALLOWED WS 


SIZE. SEE APLWSM 


1200 (4B0) SIGNED 4 CMSALIB LIB NUMBER. 
1204 (4B4¢) CHARACTER 12 CMSANAM WS NAME (Z-CODES). 
1216 (€4C0) CHARACTER 8 CMSAPAS PASSWORD FROM LAST )SAVE OR )LOAD. 
CMSAWSID "CMSALIB,¥-CMSALIB™ ACTIVE 
WORKSPACE IDENTIFICATION 
1224 (€4C8) HEX 24 CMSAVACT XCOPY OR IWSID. ALSO FOR )SAVE 
1248 (4E0) FLOATING 8 TSOWSTIM TIME WS WAS SAVED. WSTIME 
1256 (4E8) FLOATING TSOWSUSR USERID THAT SAVED WS WSTIME 
SHARED VARIABLES. 
1264 (¢F0) BITSTRING 1 CMSSHVFL SHARED VARIABLE FLAGS. 
ee SHVAVAIL "“BITO™ =1 IF SHARED VARIABLES CAN 
BE USED DURING THIS SESSION. 
: eae SHVRPEAT “"BIT4™" IF =1, WE REPEAT A 


REFERENCE OR OFFER REQUEST ONCE TO 
PREVENT FALSE RESULTS WITH CERTAIN 
DISTRIBUTED AUX. PROCESSORS. IF 
=0, REQUEST HAS NOT BEEN REPEATED 
AND MAY HAVE TO BE FOR CERTAIN 
RETURN/REASON CODES. 


THIS IS THE ECB LIST INFORMATION THAT WE PASS TO THE SVP 
WHEN WE DO A SHARED VARIABLE WAIT. 


1268 (4&F4) SIGNED G4 CMSECBL FOLLOWING TWO WORDS ARE ECB LIST. 

1268 (4F4) A-ADDRESS 4 CMSECBL1 ADDR OF ECB. sts—S—S 
1272 (4F8) SIGNED | -4 CMSECBL2 WORD OF X'FF* TO MARK END. 
1276 (4FC) SIGNED 4 CMSVPECB | ECB FOR SH VAR WAIT. 8 
1280 (500) A-ADDRESS | 4 CMSSSMAD ADDR OF SHARED STORAGE MANAGER. 
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TSOGL (TSO, XSYS, AP) continued 
OFFSETS TYPE LENGTH: NAME DESCRIPTION ) 


SHARED VARIABLE INFORMATION THAT IS PASSED TO THE SVP AT 
APL STARTUP TO INITIALIZE THE SHARED VARIABLE FACILITY. 


1284 (504) SIGNED “4. CMSSVPIN THE FOLLOWING 3 WORDS MUST BE 
| CONTIGUOUS. 
1284 (504) SIGNED 4 CMSNUMAP NUMBER OF AP'S LOADED. 
1288 (508) SIGNED 4 CMSSMSIZ SIZE OF SHARED MEMORY. 
1292 (50C) A-ADDRESS 4 CMSSMADR THE ADDRESS OF SHARED MEMORY 
1296 (510) SIGNED 4 CMSSMSZ2 SIZE OF 2ND SHARED MEMORY 
1300 (514) A-ADDRESS 4 CMSSMAD2 ADDRESS OF 2ND SHARED MEMORY | 
YYDELAY AND YYRWAIT CONTROL DATA 
1304 (518) SIGNED 4 CMSECB THE WAIT ECB. 
1308 (51C) BITSTRING 1 CMSWAITF SHOWS WHY WE ARE WAITING ON 
CMSECB. 
Mts, gti2 WAITRPLY "BITO™ WAITING FOR ATTENTION TO 
UNLOCK KEYBOARD AFTER SENDING 
MESSAGE. 
elite. sabres WAITIMER "BITL™ WAITING FOR ATTENTION OR 
TIMER POP FOR YYDELAY. 
ror CMSTIMEP "BIT2" INSPECTED BY YYDELAY AFTER 


FALLING OUT OF WAIT MACRO. =1 IF 
TIMER EXIT POSTED ECB. =0 IF ATTN 
EXIT POSTED ECB. 


beaks. <add CMSVWAIT "BITS" WAITING FOR DOUBLE ATTN TO 
BREAK SHARED VARIABLE DEADLOCK. J 
ee TSOCMDAT "BIT4¢" TSO COMMAND ACTIVE UNDER 
APL100 
1309 (51D) A-ADDRESS 3 TSOCTCB ADDRESS OF COMMAND TCB 
CMSMINDL "1000000" MINIMUM WAIT TIME FOR 


YYDELAY, IN MICROSECONDS. 





1312 (520) FLOATING 8 CMSTRTUP TIME OF DAY THAT APL WAS STARTED, 
a IN APL STANDARD TIME FORMAT. 
1320 (528) FLOATING 8 CMSCPUST STARTING CPU TIME FOR APL MVSCPU 
SESSION, IN MILLISECONDS MVSCPU 
1328 (530) FLOATING 8 CMSHOLDT HOLD AREA FOR SAVING CPU TIME WHEN 


INTERP IS DISPATCHED OR TIME OF 
DAY WHEN KEYBOARD IS UNLOCKED. 


MISCELLANEOUS. 

1336 (538) FLOATING s | ALIGNMENT = 
1336 (538) CHARACTER 16 CMSPSDT = MM/DD/YYHH:MM:SS (EXACTLY). 
1336 (538) CHARACTER 8 CMSPDATE PSEUDO DATE. = = sts 
1344 (540) CHARACTER 8 CMSPTIME PSEUDO TIME. = ss 
1352 (548) FLOATING B CMSPACK CONVERTS LIB NUMBERS TO EBCD 
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TSOGL (TSO, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAHE DESCRIPTION 
1360 (550) HEX sa C32) WORK AREA SO 
1 111 CMSPACKL "X-CMSPACK” LENGTH OF WORK AREA 
1392 (570) A-ADDRESS 4 LDSNSAVE = SAVE AREA FOR LIBDSN ROUTIN 
1396 (574) SIGNED 4 USRACTNO USER SUPPLIED ACCOUNT NUMBER 
1400 (578) SIGNED 4 CMSOLDTE PREVIOUSLY RESOLVED DATES” 
1404 (57C) A-ADDRESS 1 CMSMONTH(12),— 


1416 (588) BITSTRING 1 CMSPGMFL PROGRAM MANAGEMENT FLAGS. 
-l.. wee. CMSINSVP "BIT1™ =1 IF PROGRAM CONTROL HAS 
BEEN GIVEN TO THE SVP CWHICH IN 
TURN GIVES CONTROL TO AN AP). 
1. CMSCOPER "BIT2" SYSTEM ERROR OCCURRED WHILE 
IN COPY STATUS. SET BY YYSYSER, 
CHECKED BY YYCOPZ. 
1417 (€589) BITSTRING 1 CMSPGMF2 FLAG BYTE 
~-l.. .eee CMSXEQTR "“BITI" CONTROL HAS PASSED TO X@TR 
1. CMSABND2 "BIT2" ABEND RECURSION HAS 
OCCURRED 
-l1 ... CMSSTAE "BIT3" AN CEX)STAE HAS BEEN ISSUED 
-. L.. CMSNSTAE "BIT4" NO CEXSTAE IS TO BE ISSUED 
-l. CMSABEND "BIT5”" A SERIOUS ABEND HAS 
OCCURRED 
-l. CMSCANCL "BIT6™" VSAPL HAS BEEN CANCELLED 
1 CMSABORT "BIT7™ EXECUTION ABORTED BY 
APLYUINI 
1418 (58A) BITSTRING 1 CMSPGMF3 FLAG BYTE 
~-l.. wae CMSWSZVN "BIT1" WORKSPACE OPERAND GIVEN ON 
THE INVOCATION COMMAND 
oods as CMSROAUT "BIT2" SUPPRESS LOAD OF CONTINUE 
1 CMSCONTX Bese. CONTINUE WORKSPACE DOES 
EXIST 
1. CMSAPLSM "BIT4¢" APLSM ON SPECIFIED OR 
ASSUMED 
1419 (58B) BITSTRING 1 OSSYSTYP COPY OF CVTDCB 
TSO PROFILE DATA 
1420 (¢58C) CHARACTER 1 TSOLDCC OLD LINE DELETE CHAR 
1421 (58D) CHARACTER 1 TSsOCcDCC OLD CHARACTER DELETE CHAR 
1422 (58E) CHARACTER 8 TSOTRAN STTRAN TRANSLATE NAME 
ERROR RECOVERY DATA 
SPIE DATA 
1432 (598) A-ADDRESS 4 OLDPICA POINTER TO PRE-APL PICA 
1436 (59C) 0 ALIGN PICA TO FULLWORD BOUNDARY 
1436 (59C) BITSTRING 1 OURPICA PROGRAM MASKS 
1437 (59D) A-ADDRESS "3 EXIT ROUTINE ADDRESS § 
1440 (5A0) BITSTRING 2 THE INTERRUPT MASK BYTES 1 AND 2 
eee ell. OURPICAL "X-QOURPICA’ LENGTH OF OUR PICA 
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1444 (5A4) A-ADDRESS 1 OURESTAE FLAGS FOR TCB,PURGE,ASYNCH 

1445 (5A5) A-ADDRESS © > STAE EXIT ROUTINE ADDR. 

1448 (5A8) A-ADDRESS 4 STAE EXIT PARM. LIST ADDR 

1452 (5AC) A-ADDRESS 4 TCB NOT SPECIFIED 

1456 (5B0) A-ADDRESS 1 FLAGS 

1457 (5B1) A-ADDRESS 3 RESERVED 

are ee ee TSOESTAL "¥-QURESTAE” LENGTH OF THE ESTAE 

AREA 

1460 (5B4¢) A-ADDRESS 4 STAEREGS(5) CRITICAL STAE EXIT REGS (R13 > R1) 

1480 (58) A-ADDRESS 4 RTRYREGS(7) CRITICAL STAE RETRY REGS (RI > 

R14) ) 


CMSDMPNO CCNTAINS THE DUMP NUMBER THAT IS FUT INTO SYSTEM 
FRROR MESSAGES BY THE INTERPRETER. IT I5 Pee ee ap BY 
1508 (5E4) SIGNED 4 CMSDMPNO EE ABOVE. 


osevwe @weewrerwewre®iwe waeaeoemwreweewmreererweererewerewemererwewerew wwe 2 we SP wwes wine FDP ewe we OPS eee 2 es we eesewerwerewaewwFwwrwreewvwwewe @| ww 
~— a we a ee es ow oe @ @ @ ew ww a ew ee eG om a a iw ww ew ce aD aD Oe ow Cow oe aD ee &@ fhe Ow wD eS wwlew wwe ewe OF DP TT as er Pweeeenwreresw ese Pwr eewae @eeeree es a] = 


CONSTRUCTION AREA FOR TSO AND OTHER MVS PARAMETER 
ADDRESSES OF IMPORTANT TSO CONTROL BLOCKS. SEE 
PIKICPPL! FOR A DISCRIPTION OF ITS CONTENTS. 


1512 (5E8) SIGNED 4 
1512 (568) HEX 1 CPPLSTG SEE IKJCPPL _ 
THE DAPL IS BUILT BY A COMMAND PROCESSOR AS A J 


PARAMETER LIST FOR DYNAMIC ALLOCATION CDAIR). 
SEE 'IKJDAPL' FOR A DISCRIPTION OF ITS CONTENTS. 


1528 (5F8) STGNED & 
1528 (5F8&) HEX 20 DAPLSTG SEE IKJDAPL 
1548 (60C) SIGHED 4 DFRC DAIR FUNCTION CODE SAVE AREA 


== we ew ee se Fee FV ee awe oerwrewewvewwweseew Fes seg HF Pwr eses Swe FF FPF TVP—wMRWeveese 2B TFiswseas Swe rw BP ee weewiwereesweweewreewsFs @en ee @ B22] | 
ee we Deve eereegeeweFereew @eanweenwerwmwewnwrween Sas ee ww ew ww wet awe Ss 2 wwe FBP eo wwenawrewwenwerewe wwe B2Pewerrere@waeeweeswesegs 2 & @ Fs | @ | ww 


THE FOLLOWING DATA AREA CONTAINS ROOM FOR ANY OF 

SEVERAL 95 QR TSO INTERFACE CONTROL BLOCKS. IT 

MmaY BE USED BY ANY EXECUTOR COMPONENT INTERFACING 

WITH TSO OR THE OPERATING SYSTEM, BUT CARE SHOULD BE 
TAKEN TQ AVOID ITS USE WHEN PASSING CONTROL TO 

ANOTHER EXECUTOR COMPONENT WHICH MIGHT REUSE IT 

BEFORE RETURNING CONTROL. ANY CONTROL BLOCK WHICH 

MAY OVERLAY THIS AREA SHOULD BE EXPLICITLY DECLARED 

MAPPED BY THE *IKJDAPXX' MAPPING MACROS WHERE 'XX'! 

TS REPLACED WITH 04, 08, OC, 18, AND 2C. 


1552 (€610) SIGNED G4 DAPBS 

1552 (610) HEX 2 DAPBCD DAIR CALL CODE 

1554 (612) BITSTRING 1 DAPBFLG FUNCTIONS PERFORMED IF RC=0 
1555 (613) 1 RESERVED 

1556 (614) SIGNED 2 DAPBDARC DYNAM RC WHEN DAIR RC=8 
1558 (616) SIGNED 2 DAPBCTRC CATLG RC WHEN DAIR RC=4 
1552 (€610) HEX 20 ScE IKJDAPOO 

1552 (610) HEX 16 SEE IKJDAPO4 
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1552 (610) HEX 84 SEE IKJDAP08 

1552 (610) HEX 16 SEE IKJDAP14 | 

1552 (610) HEX 40 SEE IKJDAP18 

1552 (610) HEX 16 SEE IKJDAP2C 

1552 (610) SIGNED 4 S26PLIST ALIGN ON FULL WORD 

1552 (610) A-ADDRESS 1 THREE BYTES OF FLAGS 

1553 (611) A-ADDRESS 1 INDICATING THE FUNC- 

1554 (612) A-ADDRESS 1 TION TO BE PERFORMED 

1555 (613) A-ADDRESS 1 NO OPTION THREE 

1556 (614) A-ADDRESS 4 PARAMETER TWO 

1560 (618) A-ADDRESS 4 PARAM. THREE OMMITTED 

1564 (61C) A-ADDRESS 4 PARAMETER FOUR 

1552 (610) SIGNED 4 APATTACH 

1552 (610) A-ADDRESS 4 POINTER TO SYMB NAME 

1556 (614) A-ADDRESS 1 

1557 (615) A-ADDRESS 3 DCB ADDRESS LCS1 

1560 (618) A-ADDRESS 1 FLAGS 

1561 (619) A-ADDRESS 3 ECB ADDRESS 

1564 (61C) A-ADDRESS 4 GSPL OR GSPV 

1568 (620) A-ADDRESS 4 SHSPV VALUE 

1572 (624) A-ADDRESS 1 

1573 (625) A-ADDRESS 3 EXIT ROUT. ADDRESS RORI 

1576 (628) A-ADDRESS 2 DPMOD VALUE 

1578 (62A) A-ADDRESS 1 LPMOD VALUE 

1579 (62B) A-ADDRESS 1 

1580 (62C) A-ADDRESS 4 (2) EP NAME SPACE 

1588 (634) A-ADDRESS 1 NO LSQA 

1589 (635) A-ADDRESS 3 

1592 (638) A-ADDRESS 1 NO TID 

1593 (639) A-ADDRESS 3 STAIZESTAL PARAMETER LIST 

1596 (63C) A-ADDRESS 1 STAIVESTAL FLAGS 

1597 (63D) A-ADDRESS 3 STAIZESTAIL EXIT ROUTINE ADDR 

1600 (640) A-ADDRESS 4 TASKLIB. 

1604 (644) A-ADDRESS 4 FLAGS AND PARM LIST LENGTH 

1608 (648) A-ADDRESS 4 NO NSHSPV OR NSHSPL PARM 
cabl. di: APATCHLN "*-APATTACH" PLIST LENGTH 

1552 (610) A-ADDRESS 6 TSOTRTBL STTRAN PARM BLOCK 

1556 (614) A-ADDRESS 4 TSOTRNM STTRAN TABLE NAME 
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OFFSETS TYPE LENGTH NAME DESCRIPTION. 

1560 (618) A-ADDRESS 4 TSOTROPT STTRAN LIST OPTION LIST 
1564 (610) CHARACTER 8 TRNNAME TRANSLATE NAME 

1572 €624) A-ADDRESS 4 TSOVTBL ACTRANSLATE NAME) 

1576 (628) A-ADDRESS 4 TSOVTSB ACTSB BUFFER = CMSBUFF) 


LIBRARY MANAGEMENT DATA 
BSAM CONTROL BLOCKS 
seee ell LIBNCP w5" # ICB'S FOR OPTCD=C 


1636 (664) SIGNED 4 LIBOPEN ALIGN LIST TO FULLWORD 

1636 (664) A-ADDRESS 1 OPTION BYTE 

1637 (665) A-ADDRESS 3 DCB ADDRESS 

1640 (668) SIGNED 4 LIBDCB ORIGIN ON WORD BOUNDARY DIRECT 
ACCESS DEVICE INTERFACE 

1640 (668) BITSTRING 16 FDAD, DVTBL 

1656 (678) A-ADDRESS 4 KEYLE,DEVT,TRBAL COMMON ACCESS 
METHOD INTERFACE 

1660 (67C) A-ADDRESS 1 BUFNO 

1661 (67D) A-ADDRESS 3 BUFCB 

1664 (680) A-ADDRESS 2 BUFL 

1666 (682) BITSTRING 2 DSORG 

1668 (684) A-ADDRESS 4 IOBAD FOUNDATION EXTENSION 

1672 (688) BITSTRING 1 BFTEK,BFLN,HIARCHY 

1673 (689) A-ADDRESS 3 EODAD 

1676 (68C) BITSTRING 1 RECFM 

1677 (68D) A-ADDRESS 3 EXLST FOUNDATION BLOCK 

1680 (690) CHARACTER 8 DDNAME 

1688 (698) BITSTRING 1 OFLGS 

1689 (699) BITSTRING 1 IFLG 

1690 (€69A) BITSTRING 2 MACR BSAM-BPAM-QSAM INTERFACE 

1692 (69C) BITSTRING 1 RER1 

1693 (69D) A-ADDRESS 3 CHECK, GERR, PERR 

1696 (6A0) A-ADDRESS 4 SYNAD a 

1700 (644) SIGNED 2 CIND1, CIND2 

1702 (6A6) A-ADDRESS 2 BLKSIZE | 

1704 (6A8) SIGNED 4 WOPO, WCPL, OFFSR, OFFSW 

1708 (6AC) A-ADDRESS 4 | IOBA 

1712 (6B0) A-ADDRESS 1 NCP 

1713. (6B1) A-ADDRESS 3 EOBR, EOBAD BSAM-BPAM INTERFACE 

1716 (6B4) A-ADDRESS 4 EOBW 

1720 (6B8) SIGNED 2 DIRCT 

1722 (6BA) A-ADDRESS 2 LRECL 
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1724 (6BC) A-ADDRESS 4 CNTRL, NOTE, POINT 
-l.l 1... LIBDCBL "¥-LIBDCB™ DCB LENGTH 

1728 (6C0) SIGNED 4 LIBDECB EVENT CONTROL BLOCK 

1732 (6C4) HEX 1 TYPE FIELD 

1733 (€6C5) HEX 1 TYPE FIELD 

1734 (€6C6) A-ADDRESS 2 LENGTH 

1736 (608) A-ADDRESS 4 DCB ADDRESS 

1740 (€6CC) A-ADDRESS 4 AREA ADDRESS 

1744 (6D0) A-ADDRESS 4 RECORD POINTER WORD 

1748 (€6D4) A-ADDRESS 4 LIBDECBN DECB RING CHAIN FIELD 
---l 1... LIBDECBL "*-LIBDECB” RING ENTRY LENGTH 

1752 (6D8) HEX 4 REMAINING RING ENTRIES 


=o ee ee ee eee ae eee ae ie ee ie a ae eee ee ee ee ee ee ee oe 
eee ee Se ee ee ee ee ee ee ee ee ee ee. ee ee ee es  _ 


MISCELLANEQUS QTHER LIBRARY MANAGEMENT DATA 
DATE/TINE WORKSPACE WAS SAVED, TO BE RETURNED TO INTERP. 
VIA PDSPASS. 


1856 (€740) HEX 4 LIBRSLIST POINTER TO AN INSTALLATION 
PROVIDED LIST OF LIBRARY NUMBERS 
WHICH THIS USER IS PERMITTED TO 
CREATE. NOTE, ACCESS IS NOT HEREBY 
LIMITED, ONLY CREATION. 


1... LIB&LEN "8" LENGTH OF EACH ENTRY OF THE 
LIB#LIST OF LIBRARIES 
1860 ¢€744) HEX G4 MAXLIBNO MAX LEGAL LIBRARY NUMBER CTHIS 
VALUE IS DEPENDENT ON THE LENGTH 
OF APLID) 
18649 (748) HEX 4 LIBDATLN BYTE LENGTH OF DATA TO BE WRITTEN 
TO DISK BY EITHER SCSAVE OR 
SCCOPA. 
1868 (€74C) HEX 4 CNTALIB CONTINUE WORKSPACE'S ORIGINAL 
LIBRARY NUMBER 
1872 (750) HEX 12 CNTANAM CONTINUE WORKSPACE'S ORIGINAL NAME 
(ZCODES) 
1884 (©€75C) HEX 2 | DSN SIGNIFICANT LENGTH 
1886 €75E) HEX 44 LIBNSDSN V DSN 
1930 (78A) HEX 4 LIBFHCTN LIBRARY MGMT FUNCTION CODE 
wee weed LIBDROP "1" SCDROP 
wal. LIBLIB "2" SCLIB 
.-1l LIBLOAD "3" SCLOAD 
-l.. LIBSAVE "GQ" SCSAVE 
-1.1 LIBCONT "5" SCCONT 
11. LIBCOPY "6" SCCOPA, SCCOPOQ, SCCOPI, OR 
SCCOPZ 
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1931 (78B) HEX & LIBLOCAL LIBRARY MANAGEMENT FLAG 
1... «6... * LIBOURS "BITO" THE CURRENT LIBRARY IS 


OWNED BY THE CURRENT USER. IT MAY 
STILL BE EITHER PROJECT OR 


PRIVATE. 
-1.. woe LIBSHR "BIT1”" THE CURRENT LIBRARY 15 
PROJECT. IT MAY OR MAY NOT BE 
OURS. 
ol. 2.6. LIBPUB "BIT2" THE CURRENT LIBRARY IS 


PUBLIC. I.E. ITS NUMBER IS LESS 
THAN 1000. IT MAY OR MAY NOT BE 
OURS. I1] MUST BE SHARABLE. 


-l .... LIBCONTU "BITS" THE WORKSPACE BEING 

REFERENCED IS THE PRIVATE CONTINUE 
WORKSPACE. 

1... LIBNWLIB "BIT4" SAVE IS CAUSING A NEW 
PROJECT LIBRARY TO BE DEFINED. 

-l.. LIBNEWDS "BITS™ JSAVE ONLY WORKSPACE DATA 
SET IS NEW 

.1l.. LIBLBERR "BIT5™" JLIB ONLY A CATALOG 


MANAGEMENT ERROR RAS OCCURRED. IF 
THIS IS THE INTERFRETER'S LAST 
CALL TO SCLIB FOR THIS )LIB 
COMMAND, THEN QUEUE UP A WARNING 
MESSAGE FOR THE USER. 

-1l.. LIBSORSD "BITS" COPY ONLY COPA HAS SAVED 
THE SINK AND LOADED THE SOURCE. 
I.E. THE SINK IS DESTROYED It CORE 
BUT PRESERVED ON DISK. 

-l. LIBPWDKN "BIT6" JSAVE GNLY THE CURRENT 

PASSWORD FOR THIS WORKSPACE IS 
KMHOWN FROM THE PREVIOUS }LOAD 


COMMAND. 
-1 LIBAUTR "BIT7" ALL TRE USER IS NOT 
AUTHORIZED TO SAVE OR JDROP. 
1932 (78C) HEX 4 LIBGLOBL GLOBAL LIB MGMNT FLAG 
li... .2ee LIBLBOFL "BITO" JLIB ONLY WSMBUFF HAS 


OVERFLOWED DURING PROCESSING OF 
THE JLIB COMMAND. AS A RESULT. TRE 
INTERPRETER WILL RE-CALL SCLIB FOR 
THE ADDITIONAL WORKSPACE NAMES. 

-1..06.... LIBLDCPY "BITi* JCOPY ONLY THIS SIGNALS 
JLOAD THAT IT IS BEING CALLED BY 

XCOPY INITIALIZATION. 
-1. 1... LIBABEND "BIT2" DCB ABEND THE DCB ABEND 

EXIT HAS BEEN RACF TAKEN, AND AN 
ERROR NOTED. RACF THE DCB WILL BE 
CLOSED. RACF 


rece ele rer el el el lated eee tnt A A ee ee ee ee ee ee ee ee a a ee ee ee ee ee ee 
ll le ane i ee ee tS ee ee, ee ee ee ee | 


THE FOLLOWING DATA MUST BE CONTIGUOUS SINCE IT I5 
INITIALIZE AS A SINGLE BLOCK 


2024 (7E8) HEX 4 LIBDATAA START OF BLOCK 
DEFAULT LIBRARY NUMBER PERMISSION LIST. © 2. 000 
2024 (7E8) HEX 4 DFLTLIBN USED IFF APLYUUSR -EXIST 


Licensed Material—Property of IBM 
372 VS APL Program Logic 


TSOGL (TSO, XSYS, AP) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 


CATALOG MANAGEMENT LISTS USED TQ MANAGE LIBRARY 
IDENTIFICATION CATALOG ENTRIES 


1 THREE BYTES OF FLAGS 
1 INDICATING THE FUNC- 

2034 (7F2) HEX i TION TO BE PERFORMED 
1 NO OPTION THREE 


2036 (7F4) HEX 4 PARAMETER TWO 
2040 (7F8) HEX 4 PARAM. THREE OMMITTED 
2044 (7FC) HEX 4 PARAMETER FQUR 
2048 (800) HEX 0 APLDLTX ALIGN ON FULL WORD 
2048 (800) HEX 1 THREE BYTES OF FLAGS 
2049 (801) HEX 1 INDICATING THE FUNC- 
2050 (802) HEX 1 TION TO BE PERFORMED 
2051 (803) HEX 1 NO OPTION THREE 
2052 (804) HEX | 4 PARAMETER TWO 
2056 (808) HEX 4 PARAM. THREE OMMITTED 
WORKSPACE DATA SET NAME CONSTRUCTION DATA 
2060 ¢80C) HEX 2 LIBPREFL SIGNIFICANT L'LIBPREFX 
2062 (80E) HEX 8 LIBPREFX 1ST LEVEL DSNAME QUALIFIER 
(USUALLY THE USERID) 
2070 ¢816) HEX 4 LIBUID USERID 
LIBDATAZ "x" END MARKER 
-l1 .1.1 LIBDATAL "LIBDATAZ-LIBDATAA”™ AREA LENGTH 


see ee ee ee Ss ee eS Se Peer ee ee eee ee ere eee ee SOS eee eee eae eee eee ee St eT ee ee See eee eee eee Pe eS eee eee es 2 


END OF CONTIGUOUS DATA 
COPY MANAGEMENT DATA 
BSAM CONTROL BLOCKS 


ae ee eee ee es eee eee eee ee ee ie aa ie eee a ee eee a eee eee eee ee ee ee ie ee 


2080 (820) HEX 0 WORKOPEN ALIGN LIST TO FULLWORD 

2080 (820) HEX 1 OPTION BYTE 

2081 (€821) HEX & DCB ADDRESS 

2084 (824) HEX 0 WORKDCB ORIGIN ON WORD BOUNDARY DIRECT 
ACCESS DEVICE INTERFACE 

2084 (824) HEX 16 FDAD, DVTBL 

2100 ¢834) HEX 4 KEYLE,DEVT,TRBAL COMMON ACCESS 
METHOD INTERFACE 

2104 (¢838) HEX j BUFNO 

2105 (¢€839) HEX 3 BUFCB 

2108 (830) HEX 2 BUFL 

2110 (83E) HEX 2 DSORG 

2112 (840) HEX 4 IOBAD FOUNDATION EXTENSION 

2116 (844) HEX 1 BFTEK,BFLN,HIARCHY 

2117 ¢€845) HEX me) EODAD 
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2120 (848) HEX 1 -  RECEM 
2121 (849) HEX 3 EXLST FOUNDATION BLOC 
2124 (84C) HEX 8 DDNAME | 
2132 (854) HEX 1 OFLGS 
2133 (855) HEX 1 IFLG 
2134 (856) HEX 2 MACR BSAM-BPAM-QSAM INTERFACE 
2136 (858) HEX 1 RERI 
2137 (859) HEX 3 CHECK, GERR, PERR 
2140 (85C) HEX G SYNAD 
2144 (860) HEX 2 CINDL, CIND2 
2146 (862) HEX 2 BLKSIZE 
2148 (864) HEX 4 WCPO, WCPL, OFFSR, OFFSW 
2152 (868) HEX 4 IOBA 
2156 (86C) HEX 1 NCP o 
2157 (86D) HEX 3 EOBR, EOBAD BSAM-BPAM INTERFACE 
2160 (870) HEX 4 EOBW 
2164 (874) HEX 2 DIRCT 
2166 (876) HEX 2 LRECL 
2168 (878) HEX 4 CNTRL, NOTE, POINT 

-l.l .... WORKDCBL "X-WORKDCB™ 
YCOPY SINK CONTROL DATA Oo 
2172 (87C) HEX 4 CPYDATA DATA START - 
2172 (870) HEX 4  CPYGETMN ADDR. OF LENGTH LIST 
2176 (880) HEX 4 ADDR. OF ADDR. LIST 
2180 (884) HEX 1 MODE AND OPTION FLAGS 
2181 (885) HEX 3 SUBPOOL VALUE 
2184 (888) HEX 8 CPYGMQTY VARIABLE GETMAIN LIMITS 
2192 (890) HEX 4 CPYMAXL MAX NEEDED SAVE SPACE SIZE . 
2196 (894) HEX 4 CPYRSDUL MAX NEEDED SAVE DATA SET $2 A 
2200 (898) HEX 4 CPYHEADL SINK WS HEAD SAVE SIZE 
2204 (89C) HEX 6 CPYTAILL SINK WS TAIL SAVE SIZE 
2208 (8A0) HEX 8 CPYSLOTL | 157 SAVE SLOT DESCRIPTER 
2216 (8A8) HEX 8 CPYSLOT2 | 2ND SAVE SLOT DESCRIPTER 
2224 (8B0) HEX 4 CPYSLOT3 | 3RD SAVE SLOT DESCRIPTER 

. well CPYSLOT# "(%-CPYSLOTI)/8™ V SAVE SLOT COUNT 

2232 (8B8) HEX 0 | ALIGNMENT 
2232 (8B8) HEX 28 CPYAVAIL AVAIL SPACE DESCRIPTERS 
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2260 (8D4) HEX 4 CPYNXAVL > NEXT AVAIL DESCRIPTER 
2264 (8D8) HEX 4 CPYSAVEA MISC SAVE AREA 
CPYDATZ "x" DATA END. 
wll. 1... CPYDATL "CPYDATZ-CPYDATA™ DATA LENGTH 
MISCELLANEOUS OTHER )COPY DATA 
2268 (8DC) HEX 4 CMSAVSIZ SAVE SIZE OF ACTIVE (SINK) WS HERE 
WHILE SOURCE IS LOADED. 
2272 (8E0) HEX 4 COPARET RETURN ADDRESS TO THE INTERPRETER 


AFTER CALL TO YYCOPA. THIS IS ALSO 
USED AS THE RETURN ADDRESS AFTER 
THE CALL TO YYCOPZ THAT CONVERTS 
FROM COPY-SOURCE MODE TO COPY-SINK 
MODE. IT IS ALSO USED FOR ALL 
NON-SYSTEM-ERROR TYPE ERROR 
RECOVERY RETURNS. 


ee ee ee ee ee ees ee ee ee ee ee ee ee ee ee Ee es 


2276 (&8E4) HEX 6 CMSICTR COUNT OF RECORDS READ FROM 
COPYDATA FILE. 
2280 (8E8) HEX | 4 CMSOCTR COUNT OF RECORDS WRITTEN TO 


COPYDATA FILE. 


= a a oF ee ee ee ee eee eee ee a ee eee eee eee ee eee eee ee ee eee 
—_ ae eee eee eee eee eer et ee ee eT ar ee ee eee eee eee ee eee eee eee eee ee 


—_— ss ee ee ee es ee ee ee ae eee ee ee eee ee eee eee eee eee eee eee ee 


2284 (8EC) HEX 1 CMSIDLSW =ENL IF IDLES REQ'D, ELSE 0. 
2285 (8ED) HEX 1 CMSNLSW =ENL IF NEW-LINE SEEN, ELSE X'00°. 
USED FOR WSMPARMN2 CHECK ON YYTYO. 
2286 (8EE) HEX G4 CMSFLAGS TERMINAL MANAGEMENT FLAGS 
Lo. e seer CMSSEGZ "BITO™ SEGMENT IS LAST ONE IN 
CMSBF | 
-l.. 1... TSORFLAG "BIT1™" READING FROM TERMINAL 
oe ra CMSTYOI "BIT2" TYO CALLED FROM TYOI 
wel ween CMSLAST "BIT3" FINAL TYO OUTPUT 
-. dl... CMSOUT "BIT4¢"™ O-U-T SIGNALLED ON DISPLAY 
TERMINAL. 
-l.. CMSNLREQ "BIT5” ON YYTYO FOR DISPLAY TERM, 


INPUT PARM SAYS NEW-LINE CHAR MUST 
BE AT END OF OUTPUT. 

1. CMSTYOIT "BIT6" TYOI CALLING TYI 

ae | CMS4SO0UT "BIT7”" OUTPUT THIS MESSAGE IN 
SPITE OF ATTENTIONS 


Ce ee ee ee ee a a a ee a a ee a ee ee ee ee ee ee 8 
=e eae ee eS eee eer ee eee eTelecare er Ucar ee ee eee eee ee ee eee eee eee ee 2 


CMSBUFF POINTERS. USED DURING TYO TO KEEP TRACK OF 
WHAT HAS BEEN PUT IN CMSBUFF. 


2288 (8FO0) HEX G6 CMSBFLIN BEGINNING OF CURRENT LINE IN 
CNSBUFF (CTYPEVRITER ONLY) 
CMSHELD "CMSBFLIN” FOR DISPLAY TERMINALS, 


CONTAINS LENGTH OF DATA HELD FROM 
PREVIOUS YYTYO. 


2292 (8F4) HEX -§¢ CMSBFSEG BEGINNING OF CURRENT SEGMENT IN 
CMSBUFF. CFOR TYPEDRITER TERMINAL 
ONLY.) 
CMSINBUF "CMSBFSEG" LENGTH OF INPUT BUFFER 


FOR DISPLAY TERMINAL ¢€=135 IF 
USING 3279). 
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2296 


2344 


2345 
2346 


(8F8) 


(928) 


(929) 
(92A) 


XSYS, 
TYPE 


HEX 


AP) continued 
LENGTH NAME 


CMSRLGTH 
CMSXPLL 


CMSWLGTH 
CMSWPLL 


TSORLGTH 
TSORPLL 


TSODTYPE 
T$03270 
TSO03277 
T$03278 
TSOAPLFC 
TSOBATCH 
TSOIDLES 


TSOVTAM 
TSOTCAM 
T$0327CC 


TSODPYFL 
TSODPHLD 
TSODPFUL 
TSODPECO 
TSODSMAV 


TSOPFKAD 
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DESCRIPTION 


WRTERM PLIST USED BY ATTENTION 
CSTAX) EXIT. 


UNUSED HISTORIC BIT. 
OUTPUT ADDRESS. 


BLACK RIBBON. 

LONG WRITE, EDIT=NO. 

OUTPUT LENGTH. 

"*X-CMSXPLST™ LENGTH OF PLIST. 


UNUSED HISTORIC BIT. 
OUTPUT ADDRESS. 


BLACK RIBBON. 

LONG WRITE, EDIT=NO.. 

OUTPUT LENGTH. 

"*-CMSWPLST"® LENGTH WRTERM PLIST. 


UNUSED HISTORIC BIT. 
INPUT BUFFER ADDRESS. 


ATTREST=NO OPTION. 

UNUSED. 

INPUT LENGTH. 

"¥-TSORPLST" LENGTH OF RDTERM 
PLIST. 


"BITO™ 3270 DISPLAY 

“"BITi" 3277 DISPLAY 

"BIT2" 3278 DISPLAY 

"BIT3" APL FEATURED TERMINAL 
“"BIT4" APL RUNNING IN BACKGROUND 
"BITS" TERMINAL START-STOP W/ 
IDLES 

"BIT6" LINE IS VTAM 

"BIT7" LINE IS TCAM 

327X GRAPHIC ESCAPE X*"1D* FOR 3277 
X'08*' FOR 3278 

FLAGS USED BY APLYUDPY 

"BITO" HELD INPUT IN CMSBUFF2 
"BIT1™" BUFFER OVERFLOW ON TGET 
"BITZ2" ECHO INPUT C(MULTILINE) 
"BIT3" DISPLAY SESSION MGR 
AVAILABL R4&ADSM 

RESERVED 


PFK DEFINITION TABLE ADDR 
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oe oe ee ae ee ee eee ee ee ee eee a ee eee ee ee ee eee eee eee eee ees es ee ee ee ee ee a 


2352 (930) HEX 0 CMSTAXPL 

2352 (930) HEX 4 ADDRESS OF EXIT ROUTINE 

2356 (934) HEX 2 LENGTH OF INPUT BUFFERS 

2358 (9336) HEX 2 LENGTH OF OUTPUT BUFFERS 

2360 (938) HEX 4 ADDRESS OF OUTPUT BUFFERS 

236% (€93C) HEX 4 ADDRESS OF INPUT BUFFERS 

2368 (940) HEX 1 REPLACE/NO REPLACE, DEFERRAL IND 

2369 (€941) HEX 4 ADDRESS OF USER PARAMETERS 

»e-l .1.. CMSTAXL "¥-CNSTAXPL™ LENGTH OF STAX 
PARMLIST. 
STXEXIT "O" OFFSET TO FIELD IN CMSTAXPL 

CONTAINING ADDR OF STAX EXIT 
ROUTINE. 

2372 (944) HEX | G6 CMSTABS CURRENT TAB SETTING. CALL O IF NO 
TABS.) 


ADDRESSES OF DEVICE-DEPENDENT SERVICE REQUEST 
HANDLERS. THE ADDRESSES IN THESE eee DEPEND ON 
WHETHER THE TERMINAL IS A TYPEDIRITER OR 

DISPLAY (3270). APLYUINI STORES THE ADDRESSES HERE, 
APLYUFXI USES THEM. 


2628 (A494) HEX 0 CMSDDADR 
2628 (A449) HEX 4 CMSXTYI ADDRESS OF YYTYI HANDLER. CEITHER 
SCTYI OR SCDTYI.) 
2632 (A488) HEX 46 CMSXTYO ADDRESS OF YYTYO HANDLER. CEITHER 
SCTYO OR SCDTYO.) 
2636 (€ASC) HEX G§ CMSXTYOI ADDRESS OF YYTYOI HANDLER. CEITHER 


SCTYOI OR SCDTYOI.) 


2640 CA50) HEX 4 STCKPURG > STACK PURGE CIF ANY) 
2644 (A54) HEX 4 STCKPOP > STACK POP CIF ANY) 
LENSTACK "512" LENGTH OF STACK 
2648 (A588) HEX 4 NEXTITEM Copa ck IXTFLENSTACK) START OF USED 
RT 
2652 (A5C) HEX 4 STACKBEG CSTACKTXT) CONSTANT 
2656 (CA60) HEX G6 STACKEND CSTACKTXT+LENSTACK) CONSTANT 
STCKLEN DS F DEFAULT SIZE IS IN APLOPTNS AISIZE 
2660 (€A64) HEX 4 STCKSTAT STATUS OF STACK 
Ll... oe. PURGING "X'80'" ITS BEING PURGED 
ol... 1... NOFENCE "X'Gorr 
eel. wee. STCKDATA "Xt20'" LAST DATA FROM STACK 
2661 CA65) HEX 3 APL101WK STACK FENCE ADDRESS 
2664 (A688) HEX 4 TERMTRAC > TERMINIAL IO TRACE 
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AP) continued 
LENGTH NAME 


TSOGL (TSO, 
OFFSETS 


XSYS>» 


TYPE DESCRIPTION 








2668 (A6C) HEX 256 CMSXOUT OUTPUT TRANSLATE FOR DEVICE NTO-- 
2924 (B6C) HEX 256  CMSXIN INPUT TRANSLATE FOR DEVICE NTO-- 
3180 (C6C) HEX 4 CMSYOUT ACQUTPUT) (TRT FOR ESCAPE) 
3184 (C70) HEX 4 CMSYIN ACINPUT) (TR AFTER ESCAPE) 
3188 (C74) HEX 4 TSOTRZE ZCODE TO EBCDIC TRANSLATE NTG-- 
3192 (C78) HEX 4 TSOTREZ EBCDIC TO ZCODE TRANSLATE NTO-- 
3196 (C7C) HEX 1 TSOQTT TERMINAL TYPE 
3197 (C7D) HEX 3 RESERVED 
3200 (C80) HEX 2  TSODH TERMINAL HEIGHT 
3202 (C82) HEX 4 TSODW TERMINAL WIDTH 
tee ad TCANFUDG "4" ATTRIB OVERHEAD 
3204 (C84) HEX 4 CMSFSAWA FS EDIT WORK AREA 
CMSFSFLG "CMSFSAWA" FIRST BYTE IS FLAG. 
Ll... FSEDINIT "X%'BO'" FS EDITOR INITIALIZED. 
lo. FSMSGFUL "X'GO'" FS MSG AREA IS Tuli. 
wl, FSMRFLSH "K'zu'™ FS MSG AREA HAS BEEN 
FLUSHED. | 
lo... FSMSCSTK "X'I0"" SCREEN "STACK" IN USE. 
weod.. FSEDOPEN "Xx'OB'" FS EDITOR CURRENTLY OPEN. 
Li. FSMODE "X'O4'™ CURRENT SCREEN IS FULL 
SCREEN 
FSWALEN "X'G000'" MAXIMUM THAT MIGHT BE 
NEEDED 
3208 (C88) HEX 4 CMSFSMWK FULL SCREEN MGR WORK: AREA 
3212 (C8C) HEX 4 CMSFSGWK FULL SCREEN GRAF DRIVER AREA 
3216 (C90) HEX 0 GTTERM | 
3216 (C90) HEX 4 ADDRESS OF PRIMARY PARM ADDR 
3220 (C94) HEX 4 ADDR OF ALTERNATE 
3224 (C98) HEX 4 L-FORM--ATTRIB BYTE 
3228 (C9C) HEX 4 FSEWRC FULLSCREEN ERASE WRITE 
wl. 2111 SESC "X%'279" ESCAPE 
ii) .1.1 SEWR "X'F5'™ ERASE WRITE 
111 122. SEWRA "X'7E'™ ERASE WRITE ALTERNATE 
3230 (C9E) HEX 6 FSTCAM TCAM FULLSCREEN EXIT STRING 
3236 (CA4) HEX 4 IBMOPT1 RESERVED FOR IBM USE 
3240 (CA8) HEX 4 IBMOPT2 RESERVED FOR IBM USE 
3244 (CAC) HEX 4  IBMOPT3 RESERVED FOR IBM USE 
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TSOGL (TSO, XSYS, AP) cantinued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 

3248 (CBO) HEX 4 IBMOPT4 RESERVED FOR IBM USE —i(‘“CS™S™S 
3252 (CB4) HEX st” 4 IBMOPTS5 RESERVED FOR IBM USE RSVDtt*” 
3256 (CBB) HEX  —™” 4 IBMOPT6 RESERVED FOR IBM USE RSVD tt” 
3260 (CBC) HEX > 4 IBMOPT? —s RESERVED FOR IBM USE RSVD) 
3264 (CCC) HEX 4 ITBMUPTP RESEDYE) FOR IBM USE RSVD 

$268 (CC4) HEX 4 MDSL ADS RESERVED FOR TBM USE HDSC 


APL BATCH-I70 MANAGEMENT 
THE FOLLOWING DATA MUST BE CONTIGUOUS SINCE TY [8 
INITIALIZED AS A SINGLE Bitcr. 


= we Se eee ee Ct ec a ee a ee eed oe et el ee ee ee eee 


3272 (CC&) HEX 4 BATDATAA STAR! OF CONTIG DATA [| 


ewer we Tw Te se See Sew eee ee Se ew ee ewe eee TT Tee ewe Steerer se IME BITS ITIcrs: =e oe eee eee SOS 
On ee ee ee ee ee ee ee ee ee ee De ee eee 


QSAM CONTROL BLOCKS 


3272 (CCB) HEX 0 BATOPEN ALTGN LIST TO FULLWORD 

3272 (CC&8) HEX 1 OPTION Bree 

3273 (CC9) HEX : DCB ADDRES 

3276 (CCC) HEX ; OPTION BYTE 

3277 (CCD) HE™ 4 DCB ADDRESS 

3280 (CD0) HEX NO APULTN OR 1GIN ON WORD BOUNDARY DIRECT 
ACCESS DEVICE INTERFACE 

3280 (CDO) HEX "6 FDAD, DYTBL 

3296 (CEO) HEX s KEVLE, DEYT,TRBAL COMMON ACCESS 
NORMA INTERFACE 

3300 (CE4) HEX J BUFNO 

3301 (CE5) HEX 3 BUFCR 

3394 (CE&8) HEX e BUF L 

3306 (CEA) HEX z BORG 

3308 (CEC) HE. é TORAD FOUNDATION EXTENSION 

3312 (CFO) HEX 1 BETEK.SELN, HIARCHY 

3313 (CFi> HEX 3 ECGIAD 

3316 €CF4) HEX 1 RECFM 

3317 (CFS) HEX 3 EXLST FOUNTCATION BLOCK 

3320 (CF8) HEX a DDNAME 

3328 (DOO) HEY: ik OFLGS 

3329 (D011) HEX \ IFLG 

3330 (D02) HEX t MACR BSAM- BPAM-QSAM INTERFACE 

3332 (D04) HEX ‘ ] RERY 

3333 (D053 HEX CHECK, GERR, PERR 

3336 (D08) HEY a SYNAD 

3340 (DOC) HEX Pa CINDI, CIND2 

2342 (DOE) HEX 2 BLUKSIZE 

3344 (B10) HEX 4 WCPO. WCPL, OFFSR, OFFSW 
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TSOGL (TSO, XSYS, AP) continued 








OFFSETS TYPE LENGTH NAME DESCRIPTION 
3348 (D114) HEX 4 IOBA 
3352 (D18) HEX 1 NCP 
3353 (D19) HEX 3 EOBR, EOBAD QSAM INTERFACE 
3356 (DIC) HEX 4 RECAD 
3360 (¢(D20) HEX 2 QSUS 
3362 (D22) HEX 2 LRECL 
3364 (D24) HEX 1 EROPT 
3365 (D25) HEX 3 CNTRL 
3368 (D28) HEX 4 PRECL 
3372 (D2C) HEX 4 EOB 
3376 (D30) HEX 0 APLPRINT ORIGIN ON WERD BOUNDARY DIRECT 
ACCESS DEVICE INTERFACE 
3376 (D30) HEX 16 FDAD,DVTBL ) 
3392 (D4¢0) HEX 4 KEYLE,DEVT,TRBAL COMMON ACCESS 
METHOD INTERFACE 
3396 (D44) HEX BUFNO 
3397 (D45) HEX 3 BUFCB 
3400 (D48) HEX 2 BYFL 
3402 (DGA) HEX 2 DSORG 
3404 (D4C) HEX 4 IOBAD FOUNDATION EXTENSION 
34608 (D50) HEX 1 BFTEK, BELN,HIARCHY 
34609 (D51) HEX 3 EFODAD 
3412 (D54) HEX 1 RECFM 
3413 (D55) HEX 3 EXLST FOUNDATION BLOCK 
3416 (D58) HEX 8 ODNAME 
3424 (D60) HEX 1 CFLGS 
3425 (D61) HEX 1 IFLG 
3426 (D62) HEX 2 MACR BSAM-BPAM-QSAM INTERFACE 
34628 (D264) HEX 1 PERI 
3429 (D65) HEX 3 CHECK, GERR, PERR ) 
3432 (D68) HEX 4 SYNAD 
3436 (D6C) HEX 2 CINDL, CIND2 
34638 (D6E) HEX 2 BLKSIZE 
3440 (D70) HEX 4 WCPO, WCPL, OFFSR, OFFSW 
3444 (D74) HEX é, IQBA 
3448 (D78) HEX 1 NCP 
3449 (D79) HEX 3 | EOBR, EQBAD QSAM INTERFACE 
3452 (D7C) HEX 4 RECAD 
3456 (D80) HEX 2 OSS 
3458 (D&82) HEX 2 LRECL 
3460 (D84¢) HEX 1 EROPT 
3461 (D85) HEX 3 CNTRL 
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TSOGL (TSO, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION | 
3464 (D88) HEX 4 PRECL | 
3468 (D&C) HEX 4 EOB | 
BATDATAZ "*" END OF CONTIG DATA 
ll. 1... BATDATAL "BATDATAZ-BATDATAA" LEN OF CONTIG 
DATA 


Ce ee ee ee ee ee ee ee ee ee ee ee ee ee i ee i ee ee ee ee ee eee ee ee ee 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee. eee ee 


END OF CONTIGUOUSLY INITIALIZED DATA 

MISCELLANEOUS OTHER BATCH I70 MANAGEMENT DATE 

3472 (D90) HEX 4 BINSAVE ADDR OF NEXT INPUT BUFFER OR ZERO. 
THIS IS USED TO SAVE THE NEXT LINE 
WHEN ATTN IS PRESSED FOR THE 
PREVIOUS LINE (WHICH CAN HAPPEN 
WHEN APL IS RUN IN BATCH MODE 


UNDER TSO). 
sa7e (094) HEX ; “BoUTADDR. «> NEXT BYTE IN OUTPUT RCD 
3480 (098) HEX. 4. BOUTLEN _______V REMAINING LEN OF OUTPUT RCD 
MESSAGE EDITTING ROUTINE WORK AREAS 
é38 (DAD) HEX 0 ERDSecT APLYULNE CAPLEDIT) WORK AREA 
488 (DAD) HEX Sten DOUBLE-WORD WORKSPACE 
3496 (DAB) HEX. os ERT2 2. TWO DOUBLE-WORDS WORKSPACE 
SAVE AREAS, 
3512. (opa) HEX (i eRsaves SS 
576 (DFa) HEX a ERAS pags THIS SAVE AREA IN REG 13 70 


BALR'ED-TO ROUTINES 


ee SES eee See eee eee ee ee ee eee eee eee es 
bell le er i ae i ee an in ee on ee ee ee ee ee 


3648 (€E40) HEX 4 ERPFI FIRST FLAG BYTE 
Ll... 1... ERFITX "X'80°" TEXT ADDRESS IN PLIST 
rn ERFIHD "X'S0°" HEADER IN PLIST 
~»1. wee. ERFIBF "X'20°'" BUFFER ADDRESS IN PLIST 
--Lo.... ERFiISB1 "X'10'" ONE SUBSTITUTION 
». da... ERFiSBN "X'O8'" MULTIPLE SUBSTITUTIONS (> 
1) 
3649 (E41) HEX 4 ERPF2 SECOND FLAG BYTE 
: rr ERF2CM "X'80'" BLANK COMPRESSION WANTED 
a. ERF2DT "X'40'" DOT AT END OF LINE WANTED 
ol. .... ERF2DI "X'20'" "DIE = YES" WANTED 
LAST THREE BITS INDICATE "DISP* FIELD 
oes ERF2ER "QO" ERRMSG 
veal ERF2TY "i" TYPE 
1. ERF2SI "2" S10 
.-11 . ERF2NO "3" NONE 
1... ERF2PR "4" PRINT 
-l.l ERF2CP "5" CPCOMM 
3652 €E4¢4) HEX 4 ERPTXA TEXT ADDRESS 
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TSOGL (TSO, 


X8SYS, AP) continued 





OFFSETS TYPE LENGTH NAME DESCRIPTION 
3656 (E48) HEX 0 ERPHDR ERROR MESSAGE HEADER 
3656 (E48) HEX 2 ERPNUM MESSAGE NUMBER 
3658 (ESA) HEX 1 ERPLET MESSAGE LETTER 
3659 CE4B) HEX 5 ERPCS CSECT NAME 
3664 (E50) HEX 4 ERPBFA BUFFER ADDRESS (FOR ‘BUFFA*) 
FIELDS FOR SUBSTITUTION 
3668 (E54) HEX 4 ERPSBA POINTER TO FIRST CNEXT) GROUP OF 
SUB PARAMS IN ORIGINAL PLIST 
3672 (E58) HEX 4 ERSBD DATA ADDR/VALUE OR CURRENT SUB 
3676 CE5C) HEX 4 ERSBF SUB FLAG BYTE FOR CURRENT SUB 
eee ERSFLST "X'80'" THE LAST SUBSTITUTION 
PARAM 
ae rr ERSFA "X'40'* "A*-TYPE OPTION 
1 ERSFL "X' 20°" LENGTH SPECIFIED 
LAST THREE BITS GIVE OPTION TYPE 
wee tee ERSFH "Oo" HEX OR HEXA 
~ «eed ERSFD "i" DEC OR DECA 
el. ERSFC "2" CHARA 
--1l ERSFHS4 "3" HEX4A 
weee ole. ERSFC8 "G" CHAR8A 
3677 CE5D) HEX 3 ERSBL SUB LENGTH BYTE FOR CURRENT SUB 
3680 (E60) HEX 4 ERSSZ SIZE OF SUB FIELD (# DOTS 1) 
MESSAGE CONSTRUCTION AREA 
3688 (E68) HEX 8 NEED DOUBLE WORD BEFORE TEXT 
3696 (E70) HEX 3. ERMESS FIRST LETTERS OF HEADER 
3699 (E73) HEX 3 ERSECT DSECT NAME 
3702 (E76) HEX 3  ERNUM MESSAGE NUMBER 
3705 (€E79) HEX 1 ERLET MESSAGE LEVEL LETTER 
3706 CE7A) HEX 4 ERBL BLANK 
l.. 1. ERTSIZE "130" MAX TEXT SIZE 
3707 (E7B) HEX 4 ERTEXT MESSAGE TEXT AREA 
"TYPLIN'/'PRINTR’ PLIST CONSTRUCTION AREA 
3840 (FOO) HEX 0 
3840 (FO00) HEX 8 ERTPL 
3848 (F08) HEX 4 ERTPLA CERMESS) MESSAGE TEXT ADDR 
3852 (FOC) HEX 4 ERTPLL MESSAGE LENGTH 


WORK AREA USED FOR EDITING SUPERVISOR MESSAGES WITH 
APLEDIT MACRO. 


3856 (€F10) HEX 4 CMSLINED 
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TSOGL (TSO, XSYS, AP) continued 
OFFSETS TYPE LENGTH NAME DESCRIPTION 


3896 (F38) HEX 4 ERMOREQ ADDR OF )MORE MSG QUEUE )MORE 
3900 (FIC) HEX 3  ERMQHEAD HEAD OF HELP MESSAGE QUEUE 
3903 (F3F) HEX 4 ERM@DLEN DUMMY LEN FOR FAKE 15ST MSG 
cece tee ERMNOINF "o' ZERO LENGTH MEANS NO INFO. 
MORE 
3904 (F40) HEX 4 ERMFLAGI FLAG BYTE 
1... 20 ERMWANTD "BITO" DISPLAY OF HELP MESSAGES 
HAS BEEN REQUESTED BY THE USER. 
a rrr ERM4CED “"BIT1I" FORCE DISPLAY OF WHOLE @ 
~l. .... ERMPLSD "BIT2™" MESSAGE WAS PLUSED MORE 
3908 (F944) HEX 4 ERMGMNL LENGTH 
3912 (F488) HEX G ADDR. OF ADDR. LIST 
3916 (F4C) HEX 1 MODE AND OPTION FLAGS 
3917 (F4D) HEX 4 SUBPOOL VALUE 
MESSAGE BUFFER FIELD DISPLACEMENTS 
wee eee ERMCHAIN "0" QUEVE CHAIN FIELD 
--1l ERMLEN "ERMCHAIN+3" MSG TEXT LENGTH 
-1l.. ERMTEXT "ERMLENt1" MSG TEXT BUFFER 
~l.. ERMPFXLN "ERMTEXT” MSG BUFFER PREFIX LENGTH 


THE FOLLOWING IDENTIFIES THE END OF THE 
MISCELLANEOUS DATA AREA AND SETS THE START OF THE 
BUFFER AREA AND ENSURES THAT THE TWO DO NOT 
TAILSTAR *TSOGL#X*°1000'-X'20'-6"B 
MINUS 6 MINUS SOME MORE 


DEFINE THE TERMINAL BUFFER HERE AND OVERLAY IT WITH 
VARIOUS TRANSIENT DATA. ENSURE THAT THE BUFFER 
STARTS SUFFICIENTLY SHORT OF TSOGL+X'1000° SO THAT 
THE TRANSIENT DATA REMAINS ADDRESSABLE. 

TERMINAL BUFFER 


4058 - CFDA) HEX 4 BUFPRFX ROOM FOR AID,ADDR,SBA,ADDR 
4064 (FEO) HEX G 
4064 (FEO) HEX 4 CMSBUFF 
CMSBUFFZ wen 
CMNSBUFFL "CMSBUFFZ-CMSBUFF® BUFFER LENGTH 
6112 (17E0) HEX 4 CMSBUFF2 BUFFER FOR KEYBOARD TRANSLATIONS 


BY APLYUS93 OF TPUT MESSAGES TO 
NON-DISPLAY TERMINALS. 
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TSOGL (TSO, XSYS, AP) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


nee eS ST aS Set eT SE SET SP St SS SS eS SP SE SO 2 OU Eee eee eee eee ee BP eer ee ee eet eee eee ee eee 
aS SS Bit eS Se SS SSeS SS ee ee ee ee ee ee ee here ee See eee eee ee SE et ere lle eet St SE EP CUS US eS ee ee eS et eer he CU Tth Dh aU ae hl er Cm aerhUL er Umer lee SS eee 
oo 





4064 (FEO) HEX 4 IOPODEFI PTR 2 15ST OPND DSCPTR NTRY 
4068 (CFE4) HEX 4 IOPODELA PTR 2 LAST ODE 
4072 (FE8) HEX 4 CMSAPADA SVP PARMS 
4076 (CFEC) HEX 4 IOPERMBU PTR 2 ERR MSG BUF 
4080 (CFFO) HEX 8 IOPSAVE MISC SAVE AREA 
4088 (FF&8) HEX 4 IOPFLAG FLAG BYTE 
Ll... wean IOPLOADL "BITO" A LOADLIB DDNAME HAS BEEN 
CREATED VIA THE LOADLIBS OPERAND. 
4090 CFFA) HEX 4 IOPBUFF PARSING BUFFER 
4094 (FFE) HEX 0 
GLOBAL EQUATES. 
1.1 TSOR "R10" GLOBAL TABLE BASE REGISTER. 
TSOML "¥-TSOGL" GLOBAL TABLE LENGTH 
CROSS REFERENCE 
SESC 3228 X'27' CMSBREGS 1116(¢45C) CMSNSTAE 1417 X'‘'08' 
SEWR 3228 X'F5' CMSBTPRG 1100 X'‘'80' CMSNHUMAP 1284(504) 
SEWRA 3228 X'7E* CMSBTSYS 1100 X'40' CMSOCTR 2280(8E8) 
APATCHLN 1608 X'3C' CMSBTYPE 1100(€44C) CMSOLDTE 1400(578): 
APATTACH 1552(¢610) CMSBUFF 4064(CFE0) CMSOUT 2286 X'08' 
APLBLDX 2032¢7F0) CMSBUFFL = 2048 CMSPACK 1352(548) 
APLDLTX 2048(800). CMSBUFFZ = 6112 CMSPACKL 1360 X'27' 
APLDTLX 0 (0) CMSBUFF2 611¢617E0) CMSPDATE 1336(¢538) 
APLID 194 (C2) CNSCANCL 1417 X*'02' CMSPGMFL 14160588) 
APLIN S280(CDO) CMSCONTX 1418 X'‘'10' CMSPGMF2 14170589) 
APLOPTNS 192 (C0) CMSCOPER 1416 X‘'20' CMSPGMF3 1418(58A) 
APLPRINT 3376(D30) CMSCPUST . 1320(528) CMSPSDT 1336(538) 
APLIOIWK 2661(A65) CMSDAIR 5200208) CMSPTIME 1344(540) 
BATDATAA 3272(CC8) CMSDDADR 2628(A44) CMSRADDR 2305(901) 
BATDATAL 3468 X'C8! CMSDMNPNO 1508(5E4) CMSRLGTH 2310(906) 
BATDATAZ = 3472 . CMSECB 1304(518) CMSSEGZ 2286 X'80' 
BATOPEN. 3272(CC8) CMSECBL 1268(4F4) CMSSHVFL 1264(4F0) 
BINSAVE 3472(D90) CMSECBL1 1268(4F4) CMSSMADR 1292(050C) 
BOUTADDR 3476(D94) CMSECBL2 1272(4F8) CMSSMAD2 1300(¢514) 
BOUTLEN 3480(D98) CMSFLAGS 2286(8EE) CMSSMSIZ 1288(508) 
BUFPRFX G058( FDA) CMSFRADR 1180(49C) CMSSMSZ2 1296(510) 
CMSABEND 1417 X'04' CMSFRSIZ 1184(4¢A0) CMSSSMAD 1280¢500) 
CMSABND2 1417 X*20' CMSFSAWA 3204(C84) CMSSTAE 1417 X'10’ 
CMSABORT 1417 X'‘'01' CMSFSFLG = 3204 CMSSVPIN 1284(504) 
CMSALIB 1200(4B0) CMSFSGWK 3212(C8&C) CMSTABS 23726944) 
CMSANAM 1204(4B84%) CMSFSMWK 3208(C8&8) CMSTAXL 2369 X°14° 
CMSAPADA 4072C(FE8) CMSGIVBK = 32768 CMSTAXPL 2352(930) 
CMSAPAS 1216(4C0) CMSHELD = 2288 CMSTIMEP 1308 X'20' 
CMSAPLSM 1418 X‘'08'! CMSHOLDT 1328(530) CMSTRTUP 1312(520) 
CMSAPWKL = 512 -CMSICTR 2276(8E4) CMSTYOI 2286 X'20' 
CHSAVACT 1224(4C8) CMSIDLSW 2284(8EC) CMSTYOII 2286 X'02' 
CMSAVDAT 1848(738) CMSINBUF = 2292 CHSVPECB 1276(4FC) 
CMSAVE 524(20C) CMSINSVP 1416 X'40° CMSVWAIT 1308 X'10' 
CMSAVEZ = 956 CMSLAST 2286 X'10' CMSLIADDR 2321(911) 
CMSAVEZP 956C3BC) CMSLINED 3856(F10) CMSWAITF 1308(51C) 
CMSAVSIZ 2268(8DC) CMSMAXWS 1196(4AC) CMSWLGTH 2326(916) 
CMSAWSID = 1200 CMSMINDL = 1000000 CMSMIPLL 2326 X'10' 
CMSBCODE 1104(450) CMSMINWS. = 20480 CMSWPLST 2312(908) 
CMSBFLIN 2288(8FO) CMSMONTH 1404¢57C) CMSWSADR 1192¢04A8) 
CMSBFSEG Toa e. CMSNLREQ 2286 X'04' CMSWSZVN 1418 X'40' 
CMSBMPSV 56 X'48! CMSNLSW 2285(8ED) CMSXBND 1100¢44C) 
CMSBPSW 1108(454) CMSNOAUT 1418 X*20° CMSXEQTR 1417 X*'40' 
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CROSS REFERENCE 


CMSXIN 
hiSXOUT 
CMSXPLL 
CMSXPLST 
CMSXTYI 
CNSXTYO 
CHSXTYOI 
CMSYIN 
CMSYCUT 
CMS4SO0UT 
CHTALIB 
CNTAAT 
COPARET 
CPPLSTG 
CPYAVAIL 
CPYDATA 
CPYDATL 
CPYDATZ 
CPYGETIMNN 
CPYGHIQTY 
CPYHEADL 
CPYMAXL 
CPYNXAVL 
CPYRSBUL 
CPYSAVEA 
CPYSLOT# 
CPYSLOTI 
CPYSLOT2 
CPYSLOTS 
CPYTAILL 
DAPECD 
DAPBCTRC 
DAPBDARC 
DAPBFLG 
DAPBS 
DAPLSTG 
DBGECHO 
DSGMICRO 
DBEMSG 
DSGNSTAE 
DFLTLIBN 
DFLTSM 
DERC 
ERBL 
ERDSECT 
ERFIBE 
EnFLHD 
ERFISBN- 
FRE1SB1 
cRFITX 
ERF2CM 
ERF2CP 
ERF2DI 
ERF2DT 
ERFZER 
ERE2ZHO 
ERF2PR 
ERF2SI 
ERF2TY 
ERLET 
EReiCHAIN 
ERMESS 
RMFLAGL 
ERMGUNL 
ReiL EN 
ZRMNOINE 
ERMCREQ 
ERMPFXLN 
ERMPLSD 
ERM QGDLEN 
FRMQHEAD 
ERMTEXT 
ERMWANTD 


2924C(B6C) 
2668 CA6C 
2310 X' 
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ERPNUM 
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ERSAVE 
ERSBD 
ERSBF 
ERSBL 

ER SECT 
ERSFA 
ERSFC 
EXRSFC8 
ERSFD 
ERSFH 
ERSFHS 
ERSFE 
ERSF LST 
ERSSZ 
ERTEXT 
ERTPL 
ERTPLA 
ERTPLL 
ERTSIZE 
ERT1 
ERT2 
FRSIZMN 
FSEDIKIT 
FSEDOPEN 
PSEKZG 
PSUSFELSH 
FSMODE 
FSMSCSTK 
FSNSGFUL 
FSTCaAm 
FSNALEN 
GTTERI1 
HDSC403 
HEADEND 
Tohorrt. 
IDEMOPT? 
ISMOPTS 
TBrioOrPTs 
IBMOPTS 
IBMOPTS6 
TBriOPT 7 
TBHiOPTS 
Peceeia 
IGPER: 
ICPELAG 
TOPLOADL 
IOPODEFI 
IOPODELA 
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LDSNSAVE 
LENSTACK 
LIBSLEN 
LIBSLIST 
IBABEND 
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LIBDATLN 
LISDCB 
LIBDCDL 
PoE DECE 


LiSWSDSN 
MATNAPAD 
MAINAPN« 
MAINAPS 
MAXDEBUG 
MAXLIBNO 
MINAT 
MIKNSH 
MINNS 
MNAPENT 
HEXTITEM 
NOFENCE 
OLDPICA 
OPTSCH19 
OPTBITS1 
OPTBITS2 
CPTBITSS 
OPTBITS4 
OPTBLKSI 
OPTDLTX 
OPTEND 
OPTEXIT 
OPTFERS 
OP ri 
OPTLEN = 
CPTLQ 
OPTMDY 
OPTHICRO 
CPTP 
OPTRSVI 
OPTSNSIZ 
OPTSVPH: 
OPTTPUT 
OPTUSR 
OPTUSR1 
OPTUSR2 
OPTUSRS 
CPTUSRS 
OSSYSTYP 
OURESTAE 
OURPICA 
OURPICAL 
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CROSS REFERENCE 


PTH G0 ¢0) PTXGXGDM 92 C5C) TERMTIRAC 26640A68) 
PTHACCNO 36 (29) PTXGXTBP 88 ©58) TRENATIE 1564(C61C) 
PTHASYNC 0 (0) PTXHELP@ 156 ©9C> TSGAPLFOC 2344 X*10' 
PTHATTN 0 X'01° PTXHIAOT 153 €99) TSOBATCH 2344 X'08" 
PTHCNCTM 64 (40) PTXHTFLS 155 (9B) TSOCDCCE 1421¢(58D) 
PTHCPULM 0 X*20° PTXHIJtHI 155 X*40" TSCCMDAT 1308 X"08' 
PTHCPUTM 48 (30) PTXHTIIJOQT 154 (9A) TSOCT“B 1389¢€51D) 
PTHCURSR 18 (12) PTXHILIT i152 (98) TSoDnH 3200(€80) 
PTHCWBIT 3 x'&0' PTXHIOWI 155 X*&C! TSODPECO 2346 X'20' 
PTHDATIN 0 xX'8O0' PTXHISF 152 (98) TSODOPFUL 2346 X'SO0' 
PTHFOFF 0 xX'02'’ PTX! EH 176 X'6C! TSODPRLE 2346 X80" 
PTHFSAVL 5 X'08' PTXLEVEL 116 (749) TSODPYFL 2346¢92A) 
PTHKEYTM © 56 (638) PTXPRISBP 96 (60) TSODSMAY 23546 X*190" 
PTHLOCAL 40 (28) PTXRSVO4 164 (AG) TSODTYPE 23440928) 
PTHLOCKB 5 X'80" PTXRSVIV?2 168 C48) TSQu 3202(C82) 
PTHMDY 5 X40" PTXRSVOS }72 *AC) TSOFSTAL 1457 X*"10" 
PTHMICRO 5 XTTH' PTXRSVO4 176 *BO) PSOGL % (0) 
PTHNSBLK 9 X*Z0' PTXSCR*H 124 (70) TSAGLID 18¢ (B8) 
PTHNOOUT 0 x"04' PTXSMPRO 12% (70) TSOGYTBP 19960448) 
PTHPARMI 24 (18) PTXSMPSD 124 (€7C) TSOIDLES 2344 X'06¢' 
PTHPARM2 28 (10) PUXSMP 1 L126 ¢€7¢C) TSOLBOEC 1426458C) 
PTHQEND G X*'40' PTXSMN?2 128 (82) TSOLOADL 1186°4A9) 
PTHQSIZE 20 €149) PUXSMP 3 152 (8%) TSCM. 8160 
PTHQVAR 6 (6) PTXSMPS 136 (8&8) TOOPFKEAD 2348¢92C) 
PTHSINK 4 X'02' PIXSIP 140 (C&C; TSOQTS 3196(0C7C) 
PTHSIZE 64 X'48" PTS SMP 6 144 (90) TSOR 409% X'OA’ 
PTHSORS 4 xX'01'" PTXSMP? 1463 (94) TSORADDR 235370921) 
PTHSPCLY 8 X'8d" PTXSHiTRP Re (54) TSORFL SS 2°86 X*60" 
PTHSRCOD 10 «(AD PITXSTACK 6s C56: PSARE STH 23420926) 
PTHSUSPI 3 (3) PTIXSUBSY 168 (6C) TOORE LE 2342 X*'10" 
PTHSVBIT 3 X*'20" P¥XT50 108 X‘'80 TSORFLST 23280918) 
PTHSVON 4 X'3a' PTXUSRNA 60 CA?) TSOTCAN «344 X'01'° 
PTHUEXTN 5 X'04' PTXWIY 76 €403 TSUTRAN 1422(058E) 
PTHUSTAT 5 (5) PTXVSPC 108 *'10' TSOTREZ 3192(C78) 
PTHNABIT 3 X'460' PTXWSM 72 (48) TSOATRAM 15566614> 
PTHWIDTH 1G (EF) PUAROLFR 20% (CC) TSOTROPT 25690618) 
PTHWORDI D = 6¢0) PURGING 2660 X'e6° TSATRIBL 1E52°610) 
PTHNSLEN 32 (20) RTRYREGS 14286°5C8>} TSOTRZE 3188¢C74) 
PTHWSTAT G% (4) SCANSAVE 103206408) TSGVTAM 235% X02" 
PTHYYCOD 8 (8&8) SHYAVATL 1264 X°30' -SOVTBE 15720624) 
PTHYYRC 8 (8) SHVRFEAT 1264 X*ns! TAUMESR 35760628) 
PTX 72 ©4948) STACKBEG 2652CA5" } TINS EM 7 eG8C4EN) 
PTXADSM 110 X°C8! STACKEHD 2656(CAG1; TTOWSUSR 1256°9E8) 
PTXAIFUR 110 x’éQa' STAEREGS 146° C5hs6; To $2700 22950929) 
PTXATTN 109 (68) STCKDATA 2660 X'2O0' TSs3270 23494 X'8O' 
PTXCICS 1C& Xton’ SPCKI EN SQ0C TEC? TEOIAI? 2344 X'S0' 
PTXCNS 108 X'4i° STOKP AE 26440A54) T9832 72 2344 X'20" 
PTXCODE 120 (78; STCKPURG G649CA5N) USRACTNO 13960574) 
PTXDEBUG 109 (6D) SIiCKSAVE GL OCSFC; WATTIMFER 1368 X'40° 
PTXDXTBP 1i2 (70) STCSSTST 2660 (AGG?) WAITTREtL?e 1308 X*80' 
PTXEND 176 X*Be’ STXES UT 2369 X'09' WOFK PCR 20890824) 
PTXFLAG 198 (6C) S26FrrSt 1552610) WORKDCHKL 2168 X°58' 
PTXFLAGS Jin ($E) TATLETAP 40°58 WORKOPEN 29890828) 
PTXFSRST 110 X*'40" TCARFUDG 3292 X's! LOHSAVE 43360790) 
PTXFSTBP 100 (64> TERMSAVE 9601300) WSSIZMX 3040130) 
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VCT (ALL) 


This is the executor common services vector table, and contains 
addresses of service routines available with the executor being 


used (CICS/VS, 
one used 
Cross-Reference Table," 


CNS, or TSO). 
in publications titled "Lata Areas and Syrbolic Kanas 
usually distributed on microfiche.) This 


(The format of this layout 1s the 


control block is mapped by the APLXXVCT macro. 


TYPE 


LENSTH 


DESCRIPTION 


ADDR OF FILE SERVICES 


Ce ee ee eee. 8 ee ee ee ee ee ee es ee ee a i eel 


ADDR OF GDDX ENVIRONMENT DEP MOD 


Ele le ee ee ne ee ee ee ee ee ee ee ee ee 


= ee eee eee eee ieee eee eee eee eee eee ee eee eee ee ee eee 


lel i i ee eee ee ee eee de 2 ee ee ee ee ee 8 es 


ADDR OF STACK ABEND EXIT SERVICE 


ENTRY POINT FOR HELPENQ ROUTINE 


A-ADDRESS 
A-ADDRESS 


VCTRSVO2 
VCOTRSVO3 


RESERVED 
RESERVED 


—aE ee ee ees ee ee eee eee ee eee ees ee ee ee es ees ees ee ee ee ee 


OFFSETS 
0 C0) 
0 (0) 
G C4) 
8 (8) 
i2 CC) 
16 C10) 
20 (14) 
24 C18) 
28 (iC) 
32 (20) 
36 (24) 
40 (28) 
G% (20) 
4§ (30) 
52 C34) 
56 (38) 
60 (30) 
64 (40) 
68 (44) 
72 (48) 
76 (4C) 
89 (50) 
84 (54) 
§8 (58) 


A-ADDRESS 


— 


VCTRSVO0S 


RESERVED 
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CROSS REFERENCE 


vcT 0 
VCTCAPON 24 ¢ 
VCTCAPS 20 ¢ 
VCTDUMPX 44 ¢ 
VCTFILES ) 
VCTGDDXE i2 
VCTGDDXS 8 
VCTLEDIT 64 ( 
VCTMAINS 0 
VCTMSGN@ 72 
VCTPRTX 60 


VCTRSVOL 76 
VCTRSVO2 80 
VCTRSVO03 8&4 
VCTRSV04 88 
VCTSTKAB 52 
VCTSTKIN 16 
VCTWTPST 48 
VCTXBEND 56 
VCTXBXIT . 40 
VCTXTRAN 28 
VCTXTREZ 36 
VCTXTRZE 32 
VCTXVERS 68 


PMN A Ae ALA LA UTD UA DADRA AR Fe A 
POLOWSWMOOHLALOOOBWVWOAOABON LO LWO 
te a NG el Ce te SC Oe ee ee Oe Se Od fe te Se Se 8 Se Se Se Se 


PP FF FF OF OF OF OF 
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VRD (XSYS, AP) 


This 1s the common system services conversion services request 
block. It is mapped by the APLXVRD macro. 


OFFSETS TYPE LENGTH NAME DESCRIPTION 


0 (0) UNSIGNED 1 VRDRC RETURN CODE 
1 (1) UNSIGNED 1 VRDRES RESERVED 
2 (2) UNSIGNED 1 VRDTIN TYPE OF INPUT PROVIDED 
3 (3) UNSIGNED 1 VRDTOU TYPE OF OUTPUT DESIRED 
4 (4) A-ADDRESS 4 VRDPIN POINTER TO INPUT 
8 (8) SIGNED 4 VRDXIN INPUT INDEX CORIGIN 0) 
12 (CC) SIGNED 4 VRDKELM COUNT OF ELEMENTS IN/OUT 
16 (10) A-ADDRESS 4 VRDPOU POINTER TO QUTPUT AREA 
20 (14) A-ADDRESS 4 VRDLOU LENGTH OF OUTPUT AREA 
24 (18) CHARACTER 0 VRDEND END OF VRD 
CROSS REFERENCE 
VRD 0 (0) 
VRDEND 24 (18) 
VRDKELM 12 (C) 
VRDLOU 20 (149) 
VRDPIN 4 (4) 
VRDPOU 16 (10) 
VRDRC 0 (0) 
VRDRES 1 (1) 
VRDTIN 2 (2) 
VRDTOU 3 (3) 
VRDXIN 8 (8) 
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WSM (CALL) 


The VS APL workspace (WSM) represents the state of one user’s V5 ‘ 
APL machine. It contains all data, functions, processor J 
transient memory, and the interpreter side of all 

interpreter/executor communications. This control block is 

mapped by the APLWSM macro. 


OFFSETS. TYPE LENGTH NAME DESCRIPTION 

0 (0) STRUCTURE 2069 WSM 
0 (0) CHARACTER 1956 WSMSIZDF PREFIX NOT SAVED IN LIB” 
0-0) CHARACTER 1024 WSMBUFF GENERAL BUFFER ts 
1024 (400) CHARACTER 72 | SAVE AREA FOR EXECUTOR USE” 
1024 (400) BITSTRING 8 WSMSUPSH 
1032. (408) UNSIGNED 64 WSNSURGS 
1096 (448) CHARACTER °8 POSITION INFORMATION = sis 
1096 (448) UNSIGNED 2 WSMRSVO2 J 
1098 (44A) SIGNED 2  WSMCURSR PRINT ELEMENT INDEX 

1100 (440) SIGNED 2 WSMBFLIM LEN OF WSMBUFF LESS DWIDTH 
1102 (44E£) SIGNED 2 WSMBFPTR LEN OF DATA IN WSMBUFF 

1104 (450) CHARACTER 8 PARAMETER WORDS CS 
1106 (450) A-ADDRESS 4 WSMPARML. 
1108 (454) A-ADDRESS 4 WSMPARM2 = 
1112 (458) CHARACTER 64 WSMSYLRQ AREA FOR TRANSMITTING BLOCKS OF 





DATA TO AND FROM THE EXECUTOR ALSO 
USED FOR SscVv TO SSI 


bl le le ee a ee eee ee aa a ae ee es eS 


1112 (458) CHARACTER 56 WSMPDSD FOR PDSD (SEE BELOW) SEE MORE 
DEFNS BELOW 


— ee eee eee ee ee ees ee ee eee es eee ee eee ee ee eee eee eee eee ee 


Lee le et ee i ea a a en ee ee ee ae ee 





1176 (498) UNSIGNED 4 WSMREGOD GENERAL REGISTERS 

1180 (49C) UNSIGNED 4 WSREGOL 
1184 (4A0) UNSIGNED 4 WSMREGO2 
1188 (4A) UNSIGHED ¢ WSHREGOS 
1192 (448) UNSIGNED 4 WSMREGOS 
1196 (GAC) UNSIGNED 6 WSMREGSS 
1200 (4B0) UNSIGNED 6 WSMREGO6 
1204 (4B4) UNSIGNED - 4 WSMREGO7? 
1208 (4B8) UNSIGNED ¢ WSMREGOB 
1212 (4BC) UNSIGNED ¢ WSMREGOD 
1216 (4CO) UNSIGNED ¢ WSMREGIO) 80000 


1220 (€4C49) UNSIGNED WSMREG11 


os) 
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WSM CALL) continued 


OFFSETS TYPE LENGTH NAME DESCRIPTION 
1224 (4C8) UNSIGNED ¢ WSMREGI2. 
1228 (4CC) UNSIGNED 4 WSMREGI3 
1232 (4D0) UNSIGNED 4 WSMREGI6 
1236 (4D4) UNSIGNED ¢ WSMREGIS 
1240 (4D8) BITSTRING 8 WSMREGFO + +FLOATING REGS = | 
1248 (4E0) BITSTRING & WSMREGF2 
1256 (4E8) BITSTRING 8 WSMREGFG = 
1264 (4F0) BITSTRING 8 WSMREGF6 = 
1272 (4F8) CHARACTER 8 WSMPCPSH BC MODE RESUME PSH tti—i‘is—s~™S 
1272 (4F8) BITSTRING 4 HIGH-ORDER HALF ti iti‘:;:*~S™ 
1276 (4FC)-A-ADDRESS 4 WSMNSI CC/PMASK/RESUME ADDR i ttst—~ws 
1280 (500) A-ADDRESS 4 WSMPTHPT ADDR OF PERTERM HEADER t—t—~—t*é 
1284 (504) SIGNED | 4 WSMWORK M-REL OFFSET TO WSM STACK t™*” 
1288 (508) CHARACTER 664 INTERPRETER USED 
1952. (7A0) SIGNED” 4 WSMFREEZ OFFSET TO HIGH UNUSED (astt—t«ws 
1956 (7A4) CHARACTER 93 WSMLIBA START OF WS IN LIBRARY =————™ 
1956 (7AG) SIGNED 4 WSMFREEA OFFSET TO LOW UNUSED (attttt—~*S 
1960 (7A8) CHARACTER 4 WSMCHECK WORKSPACE FORMAT = a ssts—~—S 
1964 (7AC) SIGNED 4 WSMSYMX USED IN SYMTAB SEARCH i tts 
1968 (7B0) SIGNED 4 WSMSYMBL CURRENT SYMBOLS VALUE = is—t*~*S 
1972 (7B4) A-ADDRESS 4 WSMOLDMR | +ADDR OF WS BEFORE YY-REQ™” 
1976 (7B8) CHARACTER 64 WSMLIBRS RESERVED IN LIB RECORD i (ists 
2040 (7F8) BITSTRING 8 = INTERPRETER TOGGLES —(sti‘is~S 
2048 (800) CHARACTER 1 WSMASYNC INTERRUPT FLAGS 

lio. woe. WSMASIST MICROCODE ASSIST 

Lo. WSMLNHLT HALT AT LINE END 

i. WSMNOOUT SUPPRESS OUTPUT 

- 1... WSMIMHL T IMMEDIATE HALT 
1112 (458) STRUCTURE 36 PDSD TTB OP CONTROL BLOCK 
1112 (458) SIGNED. 4 PDSLIBNO LIB NUMBER = | 
1116 (45C) CHARACTER 11 PDSNAME WS NAME  —— 
1127 (467) CHARACTER 1 
1128 (468) CHARACTER 8 PDSPASS —- WS PASSWORD ti‘ ‘O(C(‘(‘(‘(C ;;:S 
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WSM (ALL) continued 


TYPE 


LENGTH 


DESCRIPTION 


CHARACTER 
1... wae. 
-1l.. 
~-ll .... 

-.. Ll... 
-1.. 
1. 


woee eel 
CHARACTER 


Al 


PDSMOD 
PDSAUTO 
PDSDFSIZ 


PDSDFNAM 
PDSDFPAS 
PDSDFLIB 
PDSDFACL 


FLAG BYTE 
SAVE OF CONTINUE 
USE ACTIVE WS SIZE 


USE ACTIVE WS NAME 
USE ACTIVE WS PASS 
USE LIB AS PER DFLIB 
LIB FROM ACTIVE WS 
RESERVED 


SIGNED 
STRUCTURE 


YYQAT 


aS eee eee ee ee ee ee ee ee ee ee eee ae eee eee eee eee a 


Cle i ee ee ee es ee es ee 8 8 8D i i i 


SIGHED 
STRUCTURE 


SIGN-ON ID. 
YYDELAY 


=e ee eee ee ee eee eee eee ee eee ee eee ee ee ee eee eee 


BITSTRING 
STRUCTURE 


TOD AT DELAY END 
YY DUMP 


—_— a ee ee ee ees ee eee eee ee ee eee eee es eee eee eee eee ee eee ee ee ae ee ee 


SIGNED 
STRUCTURE 


NUMBER OF LAST DUMP 
YYQUOTA 


== ee ee ee ee eee ee ee ee ees ee eee eee eee ee ee ee eee ee ee eee ee 


— ee ee ee eee eee ee ee eee eee eee ee ee ees ee eee eae aa ee ee eee a 


—_—ee ee eee ee ee es eee eee ee eee ee ee eee eee ee ee ees ee ee ee eee ee 


— ee ee ee eee eee ee eee ee ee ee ee ee ee es ee ee ee eee es ee i 


OFFSETS 
1136 (470) 
1137 (471) 
1190 (474) 
1144 (478) 
1112 (458) 
1112 (458) 
1120 (469) 
1128 (468) 
1136 ¢€470) 
1112) (458) 
L212 (458) 
1120 (€4690) 
1112 (458) 
1112 (458) 
1112 (458) 
1112 (€458) 
1116 (€45C) 
1120 (4603 
1124 (464) 
1128 (468) 
1132 (46C) 
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WSMYYQVV 
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NUMBER OF SHARED VARS 








CROSS REFERENCE 


PDSAUTO 
PDSD 
PDSDFACL 
PDSDFLIB 
PDSDFNAM 
PDSDFPAS 
PDSDFSIZ 
PDSLIBNO 
PDSMOD 
PDSNAME 
PDSPASS 
PDSSIZE 
PDSSLOP 
WSM 
WSMASIST 
WSMASYNC 
WSMBFLIM 
WSMBFPTR 
WSMBUFF 
WSMCHECK 
WSMCURSR 
WSMDATTN 
WSMFREEA 
WSMFREEZ 
WSMIMHLT 
WSMLIBA 
WSMLIBRS 
WSMLNHLT 
WSMNOOUT 
WSMNST 
WSMOL DMR 
WSMPARMI 
WSMPARM2 
WISMPCPSW 
WSMPDSD 
WSMPTHPT 
WSMREGFO 
WSMREGF2 
WSMREGF4 
WSMREGF6 
WSMREGSV 
WSMREGOO 
WSMREGO1 
WSMREGO2 
WSMREGO3 
WSMREGO4 
WSMREGOS 
WSMREGN6 
WSMREGO7 
WSMREGO8 


36 X"80" 


ee ee ee ee a a 


PHA HLH ADHAHRHDHDOHAUMBDDDOWA KIRN RM ON PROM HOODOO DH O”®KRMMM 
eANINAUNILT © «© « @ 


Ft a 
~LhPaM HHO 


nr ~ me 
<)> > 


COLHDOAODFOOWBOWOWBWOWMQAA@®HLOLHPON LBL oOoHoereweomMmocenBwowsdBonoonerloo 
Mee Ne a et et ae ee ae et NN a fe a a et ee ee es OO Oe ee 0 0 ee ee a a es Oo ee ee a ee te 


“~ ~~ 
Lt 


CODPORANBADRPOKRALHAKWOOCNNSHNVFTOACAK MONA WOWODNOMBMMODLHLOWBARAONAAAOKN/N 


11 
111 
113 
113 
113 
113 
113 
111 
113 
111 
112 
114 
114 
204 
204 
110 
110 
196 
109 
204 
195 
195 
204 
195 
197 
204 
204 
127 
197 
110 
110 
127 
111 
128 
124 
124 
125 
126 
117 
117 
118 
118 
118 
119 
119 
120 
120 
120 


Fe an en et a a a ent ant nt nmin tent 
WoOdIrPrrrProoeovvo TMMMOOUMINwS TT = «OP 


WSMREGO9 


WSMREG10. 


WSMREG11 
WSMREG12 
WSMREG13 
WSMREG14 
WSMREG15 
WSMRSVO2 


WSMSIZDF 


WSMSUPSW 
WSMSURGS 
WSMSVLRQ 
WSMSYMBL 
WSMSYMX 


WSMWORK 
WSMYYCTM . 
WSMYYDLA 


WSMYYDLZ 
WSMYYDNM 


WSMYYKTM . 
WSMYY QDW 


WSMYYQLS 
WSMYYQMW 
WSMYYQSR 
WSMYYQVM 
WSMYYQVV 
WSMYYTTM 
WSMYYUNO 


Ca te te a ee 


bo ep el le ee et) OO Or OO Of MM NPN PM 
UNIAN Ee NE NNR NR ER OO OR WN BUONO ee 
HOm Or Oe NN OANIAINNMLLANN LOAN AH LOKN 
HPHAHPHPHLHLHPHHPHHPHUINWA HD DHPHPDHPHLHHHD 
SARAOUNIAUACUIAUIMNOPrMMNaAeO Kn fO0ggooagoow 
COOOWBOHSBOMWMOSOMMLOOeSGQooWPlonaLlonm 


ee ee ee ee ee eee ee 
Fae ae ate Ee ate a ae tn tn ae, at, ao, aie, a, ae, a, an, a, a, 


* ” 


Data Areas 
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WSX (ALL) 
This control block defines the format of the 80-byte header 
record for an exported workspace in all systems. It ts mapped by 
APLWSX macro. 

OFFSETS TYPE LENGTH NAME DESCRIPTION 


WSXDR DSECT 


0 (0) SIGNED 4 WSXARL3 OFFSET TO END OF WS SLOT 
| FROM WSMFREEA. | 
4 (4) SIGNED 4 WSXAX OFFSET TO END OF WRITTEN 
DATA FROM WSMFREEA. 
8 (8) SIGNED 4 WSXAOFFS OFFSET OF WSMFREE FROM 
BEGINNING OF WS. 
12 (C) SIGNED 4 UNUSED. 
16 (10) FLOATING 8 WSXDATE DATE AND TIME WS WAS SAVED 
IN APL STANDARD TIME FORMAT. 
24 (18) SIGNED 4 WSXLIB LIBRARY NUMBER. 
28  (1C) CHARACTER 8 WSXENAME WS NAME IN EBCDIC. 8 BYTES. 
36 (24) CHARACTER 11 WSXZNAME WS NAME IN Z-CODES. | 
47 (2F) HEX 33 RESERVED 
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SECTION 6. DIAGNOSTIC AIDS 


This section contains information useful in determining the 
causes of VS APL processor errors. It contains the following 
items: 

e Descriptions of linkage conventions 

° Expansions of calling macros 


e renee’ of executor service calls for CICS/VS, CMS, TSO, and 


e Lists of error messages generated by the processor 


® Directions for reading and analyzing dumps issued after 
system errors 


e Descriptions of miscellaneous diagnostic aids 


COMPONENT LINKAGE CONVENTIONS 


The components of the VS APL processor use several linkage | 
conventions. The types of linkage conventions used between and 
within components are summarized in Figure 31. The remainder of 
this subsection describes the component linkage conventions 
listed there. 
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TO 
ree teres epee tte 
=| = [as [as fas T= 


i Host T= fas [= 
SMM 1 Ml We We al dK 
G_Tranaiator ee 
D._Exarch ee ee eee od 

E_ Avpandase fe a se 

F. shared aterase aor [as] -| -]} -|- [eae] -] -| -[ 

a. humtliery processor [as| =| -|-]-] 2] -|-]-]a_ 
Se ma a 
I. Library service prog. Pp -f -f -] =) J 
J. 


Notes Component Linkage Convention Used 
1 VS APL interpreter linkage 
2 APL library service program linkage 
3 Nonstandard linkage to and within exarch | 
& CMS/TSO executor linkage ) 
5 VSPC executor linkage 
6 CICS/VS executor linkage 
7 Service request calls 
8 Conversion program linkage 
9 CMS/TSO shared storage manager 
10 CICS/VS shared storage manager 
11 Common executor linkage 
12 Auxiliary processor linkage: see the applicable manual on 
writing auxiliary processors 
13 Standard linkage using host system macros 


Does not occur or does not apply 





Figure 31. Component Linkage Conventions 
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1. VS APL INTERPRETER LINKAGE ' 


Register Usage 


Save Areas 


Calling Macros 


The register usage implemented by the VS APL processor is shown 
in Figure 32. 


Register Use 


1] Reason code 


Value Meaning 


0 good 
4 error 
8 severe error 
ll Address of active workspace 
12 Program base register 
13 Address of current R13 stack level 
14 Address of end of current R13 stack level 
15 Return register 


Figure 32. VS APL Processor Register Usage 


Since VS APL standard linkage does not use parameter lists, 
other registers are used to pass parameters between calling and 
called routines. These conventions are documented in the 
listings of the routines or their prologs. 


VS APL standard linkage uses a pushdown stack of contiguous save 
areas that are kept in the user's workspace. The current save 
area is always pointed to by register 13. See "RI3 Stack" in 
"Data Areas" for a complete discussion of how the R13 stack 
functions. 


There are several macros used by VS APL standard linkage in 
making calls and returns. These macros are expanded and 
described below. 


The APLCALL macro instruction, which calls a routine, is written 
as follows: 





Llabel] |APLCALL i 
R [, ERROR 2=1b127] 


abe 
1S an optional statement label. 


routine 


is the name of the global routine defined by use of 
APLENTRY. 
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ERRORI= jbli 
causes assembly of a branch instruction to this label 
immediately following the call of the routine. lbl] 
receives control if the called routine returns reason-code 


ERROR2= lbl2 . 
causes assembly of a second branch instruction immediately 
following the call of the routine. Jbl2 receives control if 
the called routine returns reason~code 8. 


The APLENTRY macro instruction, which defines an entry point, is 
written as follows: 


Lentry-pt] APLENTRY lel-begin,lcl-end 
APLENTRY rece -list]{,NOCALL] 


entry-pt 
is the entry point name. 


lel-begin 
is the name of the DSECT that describes this routine’s R13 | 
stack work area; 0 if no work area. - 


lcl-end 
is the name of the address immediately following the last 
field in the DSECT; 0 if no work area. 


reg-list 
is the list of caller's registers to be saved. A single 
value causes a store instruction to be generated; multiple 
values cause a store-multiple instruction. 


NOCALL 
defines a terminal routine; that is, no subsequent APLCALLsS 
may be used. If this option is specified, no registers are . ) 
saved. The called routine may explicitly save one or more 
registers at register 14 plus 0. 


The APLEXIT macro instruction, which returns to the caller, is 


‘written as follows: 


Clabel] [APLEXIT [ ,REASON=regqno] 


label 
is an optional statement label. . 


REASON=regqno . 
causes an exit to the point of invocation plus a 
displacement equal to the contents of register regno. 
Register regno should contain only 0; 4, or 8. 


Code generated for APLCALL and APLEXIT is described in 
Figure 33. In each example, the APLEXIT is from the routine 
called by the APLCALL. 


Code generated for APLENTRY with various parameter options is 
described in Figure 34. 
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With -o error return: 


++ 


th tb + 


+ 


APLCALL 
L 
BALR 


APLEXIT 
DS 


sim 

LM 
Registers 
BR 


With error return: 


SPQPW20 
+SPQPW20 
+ 


+ 
CVEXIT 

+CVEXIT 

+ 

+ 

+ 


Figure 33. 


APLCAL 


‘sian 
BALR 

B 
APLEXIT 
DS 


LM 
STM 


IAHTSPEC 
R15,=VCIAHTSPEC) 
R15,R15 


OH 

R1Z2,R15,0CR13) 

2:35,R14,WSMREGLS 

RPO,R7,16CR14) 

ae specified in APLENTRY macro. 


TARTOI, ERROR1=SPQPW30 
R15,=VCIARTOI) 

R15,R15 

SPQPW30 FIRST ERROR RETURN (R15+0) 


-REASON=1 
"OH 


R12,R15,0CR13) 
R1i3,R14¢,WSMREG15 


No registers specified in APLENTRY macro. 


nd 


Ci 


§ 
& 


OCR1,R15) RETURN + 0, 4, OR 8 


marccAL!: Generated Code 
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IASYSPST 
+ 


+ 


+ 
+IASYSPST 


++eteet 


IARABREF 


IATABREF 


SeHeeeeeeeteese 


IASYSREF 


TASYSREF 


++eeeeetetetee + 


TAFACT 


IAFACT 


+Heee eee e eee ste 


Figure 34. 


APLENTRY 
DS 


DC 
ENTRY 
EQU 
STM 
LR 

LA 
STM 
BALR 
USING 


APLENTRY 
DS 


DC 
ENTRY 
EQU 
STM 
STM 
LR 

LA 
STM 
BALR 
USING 


APLENTRY 
DS 


DC 
ENTRY 
EQU 
STM 
LR 

LA 
STM 
USING 
BALR 
USING 


APLENTRY 


USING 
APLENTRY: Generated Code 


0,0 

vD 
CL8°"IASYSPST’ 
TASYSPST 

x 


R12,Ri5,0CR24) 

R13,R14 

R14, C0-0+0€16+7 )/8%8 )+7)78%800,R135) 
R13,R14¢,WSMREG13 

R12,0 

¥,R12 


0,0,¢€2,%) 


OD 
CL8*ITATABREF'® 
TATABREF 

¥ 


R12,R15,0(R14) 

R2,R4,16(R14) 

R13,R14% 

R14, (0-0+(0€28+7)/8%8)+7)/8%8(0,R13) 
R13,R14,WSMREG1S 

R12,0 

¥,R12 


SRWORK, SRWORKZ 
0D 


CL8°IASYSREF' 
IASYSREF 
% 


R12,R15,0(€R14) 

R13,R14 

R14, CSRWORKZ-SRWORK+( (1647 )78%8)4+7)78%8C0,R13) 
R13,R14,WSMREG1 3 

SRWORK~(16+7)78%8,R13 

R12,0 

¥,R12 


TRSWORK, TRSWORKZ, (1,3) 


0D 
CL8'IAFACT’ 
TAFACT 

¥ 


R12,R15,0(€R14) 

R1,R3,16CR14) 

R13,R14 

R14, CTRSWORKZ—-TRSWORK+( (2847 )78¥%8)+7)/8%8(0,R13) 
RL3,R14,WSMREG13 

TRSWORK~(28+4+7)78%8,R13 

R12,0 

¥,R12 
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2. APL LIBRARY SERVICE PROGRAM LINKAGE 


Register Usage 


Save Areas 


3. NONSTANDARD 


The register usage implemented by the APL library service 
program is shown in Figure 35. 


Register Use 

0 Reason code returned to the calling routine 

11 Address of the APL library service program 
global table 

LS Address of the register save area 

14 Return address to the calling routine 

15 Entry point address of called routine or return 


code returned to calling routine 


Figure 35. APL Library Service Program Register Usage 





Registers are saved in an 18-word area pointed to by register 


LINKAGE TO AND WITHIN EXARCH 


Register Usage 


save Areas 


The register usage implemented by nonstandard linkage to and 
within exarch is shown in Figure 36. 


Register Use 


li Address of workspace 

12 Base register 

13 Address of exarch's R13 stack level 

14 Address of end of exarch's R13 stack level 
15 Subroutine linkage 


Figure 36. Nonstandard Exarch Register Usage 


None 
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Calling Macros 


GOGOMNS 
+GOGOMNS 


treet 


Calls to subroutines within the same module as the calling 
routine use a branch-and-link instruction using register 15. 


The APLXCALL macro instruction, which calls a subroutine outside 
of the module of the calling routine, ts written as follows: 


label 
is an optional statement label. 

routine 
is the name of the called routine defined by use of 
APLXNTRY. 


Code generated for APLXCALL is described in Figure 37. 


APLXCALL IEGINITI GET 1ST ELEMENT INTO RVALUE 
L BASEREG, =ACIEGINITI) LOAD ADDRESS OF SUBROUTINE 
BALR R15,BASEREG CALL SUBROUTINE 

USING *,R15 RETURN 

L BASEREG, =ACAPLIEFNM) RELOAD BASE REGISTER 

DROP R15 

USING APLIEFNM, BASEREG 


Figure 37. APLXCALL: Generated Code 


ITEGOGOMN 
+ 
+TEGOGOMN 
+ 


ITEGOGOSC 
+ 
+TEGOGOSC 
+ 


+ 


The APLXNTRY macro instruction, which defines an entry point, ts 
written as follows: 


Centrypt] APLXNTRY entry-addrass 


entry-pt 
is the antry point name. 


entry-address 


is the optional entry-address register; if omitted, 
register 12 Cequated to BASEREG) is assumed. 


Code generated for APLXNTRY is described in Figure 38. 


APLXNTRY 

USING *, BASEREG | 

L BASEREG, =ACAPLIEFNM) LOAD BASE REGISTER 
USING APLIEFNM, BASEREG 

APLXNTRY R15 

USING *,R15 

L BASEREG, =ACAPLIEFNM) LOAD BASE REGISTER 
DROP R15 

USING APLIEFNM, BASEREG 


Figure 38. APLXNTRY: Generated Code 





L 
4 


Transfer of control when return is not expected uses no set 
convention. The address of the routine is loaded in some 
register and a branch is taken. 
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Some of the exarch subroutines may also be called by appendage 
and translator routines. A two-level linkage is used to effect 
these calls as described below. 











Appendage APLCALL 
or 


Translator 


Branch Exarch 


>|Routine >|Routine 






< 
APLEXIT 





Return 


A service routine contains three basic statements: 
entry~point APLENTRY Save caller's registers 
BALR15,routine Call exarch routine 


APLEXIT Register caller's registers 
and return 


The names of all service routines begin with IES. 


4. CMS/TSO EXECUTOR LINKAGE 


Register Usage 


The CMS and TSO executors use similar linkage conventions. 
Unless otherwise noted, the following information applies to 
both. 


The register usage implemented by the CMS or TSO executor is 
shown in Figure 39 


Register Use 

10 CMS/TSO: address of global area (PERTERM control 
block followed by executor work area) 

Ld Address of VS APL workspace 

12 Base register 

iS Address of register save area 

14 Return address 

15 Entry point address 


Figure 39. Executor Linkage Register Usage (CMS or TSO) 


Parameters, when required, are passed in the workspace and, in 
CMS and TSO, the global area. 


A return code is passed in PTHSRCOD Ctwo-~byte field in the 


ea Return codes are described under "Service Request 
Calls.' 
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Save Areas 


Calling Macros 


SsCTYOr 
+ 


+SCTYOI 


ENTO0040 


teehee reeeet 


Registers are saved in an 18-word area pointed to by register 
13. There are three such areas or levels reserved in the ChS or 
TSO executor work area. When a routine is called, the calling 
routine’s registers are saved in the current level. Register 13 
is then set to the address of the next level. 


(CMS and TSO) 

There are three macros used by the CMS or 150 executor in 
calling and returning to routines within itself: APLCENTR, 
APLCCALL, and APLCEXIT. 


The APLCENTR macro instruction, which defines an entry point, is 
written as follows: 


entry-pt 
is the entry point name. 


Code generated for APLCENTR is described in Figure 40. 


APLCENTR 

a Ble d SCTYOI 

DS 0H 

USING SCYTYOI,R15 R15+IS ENTRY POINT REG. 

Srl Rlg,R12,120R13) SAVE CALLER'S REGISTERS. 

LA R14, CHSBMPSVC,R13) BUMP TO NEXT AREA IN STACK. 
C R14, CrSAVEZP IF:-END- OF STACK. REACHED, 

BL ENT904) CWE DIDN'T REACH iT.) 

L RL,=VCSCSAVOFL) IT'S A SUPERVISOR BUG. 

BALR RO,R1 BRANCH TO ERROR ROUTINE. 

>i R14,8(,R13) LINK FORWARD TO NEW SAVE. 
1 R13,4¢€,R14) AND BACKWARDS TO CALLERS SAV 
LR R13,R14 SET NENW SAVE AREA ADDR. 

L R1l2,=ACAPLSCTYP) SET PROGRAM BASE 

USING APLSCTYP,R12 

CROP R15 


Figure 40. APLCENTR: Generated Code 


Tha APLCCALL macro instruction, which calls a routine, is 
written as follicts: 


label 


is an optional statement label. 





routine 
name of called routine; must be defined by APLCENTR macro. 


Code generated for APLCCALL is described in Figure 41. 
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TYOI2 APLCCALL SCTYI 
+TYOI2 L R15,=ACSCTYI) GET ADDR OF CALLED ROUTINE. 
+ BALR R14,R15 BRANCH TO ROUTINE. 


Figure 41. APLCCALL: Generated Code 


The APLCEXIT macro instruction, which returns to the caller, is 
written as follows: 


label 


is an optional statement label. 


Code generated for APLCEXIT is described in Figure 42. 





APLCEXIT 
+ L R13,4C,R13) ADDR OF CALLER'S SAVE AREA. 
+ LM R14,R12,12(R13) RESTORE CALLER'S REGISTERS. 
5 BR R14 RETURH TO CALLER. 


Figure 42. APLCEXIT: Generated Code 


5. VSPC EXECUTOR LINXAGE 


Register Usage 


The register usage implemented by the VSPC executor is shown in 


Figure 43. 

Register Use 

9 Address of PTC—VSPC control block 

10 Address of workspace defined by VSPC 
Cincludes PERTERM and executor work area) 

ll Address of VS APL workspace 

12 Base register 

13 Address of register save area 

14 Return address 

15 , Entry point address 


Figure 43. Executor Linkage Register Usage (VSPC) 


Parameters, when required, are passed in the workspace. 


A return code is passed in PTHSRCOD (two-byte field in the 
eva Return codes are described under "Service Request 
Calis." 
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Save Areas 


Calling Macros 


Registers are saved in an 18 -word area printed to by register 
i3. There are five such areas or levels reserved in the 
executor work area. When a routine is called, the calling 
routine's registers are saved in the current level. Register 13 
is then set to the address of the next level. The pointer to 
the save area is saved as a relative address to the workspace. 


(VSPC) 


VSPC executor tn calling and 
APLPENTR and APLPEXIT. 


There are two macros used by the 
returning to routines within 1tself: 


The APLPENTR macro 
written as follows: 


entry-pt 
is the entry point name. 


instruction, which defines an entry point, is 


Code generated for APLPENTR is described in Figure 44. 





rorTvyi APLPENTR 
+ DS 0 
+ DC CL8'PCTYI? 
+PCTYI EQU ¥ 
+ ENTRY PCTYI 
+ USING PCTYI,R15 ADDRESSABILITY 
+ USING PTC,R9 R9 HAS ADDR OF PTC 
+ USING WSH,R10 R10 HAS ADDR OF TOTAL WS 
+% PROVIDES ADDRESSABILITY TO 
+* WSH,SFN,PTH,ECA 
+ STM R14,R12,12C€R13) SAVE CALLERS REGISTERS 
+ LA R2,ECASVLNCR13) BUMP TO NEXT SAVE AREA 
+ LA Ri, ECASVEND COMPARE TO END OF SAVE AREA 
+ CR R2,R1 ANY ROOM LEFT ? 
+ BL APLP0062 YES,SET UP 
+ L R15,=VCERSAVEAR) NO.GO TO ERROR 
+ BALR R14,R15 ROUTINE 
+APLP0062 EQU % 
+ ; LR R1,R13 CALLER'S SAVE ADDR 
+ SR R1,R19 RELATIVIZE ADDR TO THE WS 
+ ST R1,4C€R2) SAVE IN OUR SAVE AREA 
+ LR R1,R2 OUR SAVE ADDR 
+ SR R1,R10 RELATIVIZE ADDR TO THE WS 
+ ST R1,8(,R13) LINK SAVE AREAS 
+ LR R13,R2 SAVE ADDR IN R13 
+ L R1i2,=ACAPLPTYIO) ADDRESSABILITY IN CSECT 
+ DROP R15 
+ USING APLPTYIO,R12 
Figure 44. APLPENTR: Generated Code 
The APLPEXIT macro instruction, which returns to the caller, is 
written as follows: 
label 
is an optional statement label. 
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Code generated for APLPEXIT is described in Figure 45. 


APLPEXIT 
L R13,4(,R13) CALLER'S SAVE AREA 
AR R13,R10 OBTAIN ABSOLUTE ADDR PTR © 
LM R1494,R8,12013) RESTORE R14-R8 
L R12,124149%4(,R13) AND R12 

R19,R11 HAVE BEEN RELOCATED 
BR R14 RETURN TO CALLER 


Figure 45. APLPEXIT: Generated Code 


6. CICS/VS EXECUTOR LINKAGE 


Register Usage 


Save Areas 


The register usage implemented by the CICS/VS executor is shown 
in Figure 46. 


Register Use 

7 Address of VS APL workspace 

8 Address of global table (GBL) 

9 Base Register 

19 Address of perterm (PTH, PTK, and PRO control 
blocks) 

il Address of stack 

12 Address of CICS/VS TCA 

13 Address of CICS/VS CSA 

14 Return address 

15 Entry point address or return code 


Figure 46. Executor Register Usage (CICS/VS) 


Parameters are passed in either register 1 or the user perterm, 
Register 0 is destroyed by the linkage. 


A return code 1s passed to PTHSRCOD (two-~byte field in the 
PERTERM). Return codes are described under "Service Request 
Calls." 


The CICS/VS executor uses a processing stack as a save area. See 
"VS APL Executor Stack for CICS/VS" in "Section 5. Data Areas" 
for a complete discussion of how the processing stack functions. 
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Calling Macros 


CICS/VS executor modules use three macros to generate entry and 
exit code: APLKPOP, APLKSTAK, and APLKPROC. In addition, the 
following macros are used tn calling routines: APLKG, APLKHIST, 
APLKT, APLKMAIN, APLKMILA, APLKPOST, APLKTERM, and APLKTRCE. 


The APLKPOP macro, which defines an extt point from a routine, 
is written as follows: 


[label] APLKPOP entry-ptl, retcode] 


label 
is an optional statement label. 


entry-pt 
is the entry point name; must match the label on the most 


recently tssued APLKSTAK or APLKPROC macro; multiple exits 
from a routine may be used. 


retcode 
is a return code to be placed in register 15; if omitted, 


register 15 is not modified. 


The APLKSTAK macro defines the beginning of a work area to be 
used by the routine that follows it. The work area is described 
by a series of DS statements placed between the APLKSTAK macro 
and the APLKPROC macro following it. If no work area (other than 
a register save area) is required, the APLKSTAK macro can be 
omitted. The APLKPROC macro (Cor, if present, the APLKSTAK macro) 
defines an internal or external routine entry point and what 
reqisters ara to be saved. If the APLKSTAK macro is used, the 
APLKPROC macro will have no operands. 


The APLKSTAK AND APLKPROC macros are written as follows: 


Centry-pt] APLKSTAK [reg gnane e] 
or APLKFROC CTYPE=ENTRYIJC,SAVE=Creg,regqg)] 


entry-pt 
is the entry point name; it will be an external entry point 
if TYPE=ENTRY is specified. The CSECT name may be used for 
the first routine in a CSECT. 


reqname 
can be used to provide untque names for registers used 


Within this routine; register equates are provided by the 
macro; and registers are saved and restored on entry to and 
exit from this routine; registers are assigned from a pool 
defined as RLOCALA ... RLOCALG at the beginning of the 
module; pool registers must be consecutive and named in 
order, the numbering normally beginning with register 2. 


TYPE=ENTRY 
indicates that all registers area to be saved at the 
beginning of this routine and that module addressability 7S 
to be established; register 10, the base register, is 
always set to the address at the beginning of the CSECT. 


SAVE=(regq,reg) 
indicates the range of registers to be saved on entry to 
and restored at exit from this routine; if this operand is 
omitted and if TYPE=ENTRY was specified, registers 2 
through 10 are saved; otherwise, as many registers as are 
listed in the regname parameter are saved; in either case, 
register 14 15 always saved and restored. 
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APLKAHST 
+% 

+ 
+ 
+ 
+ENTOO03 
+ 


+STKDO003 
+STKPO0003 
+STKROOCS 
+STKRO003 
+STKSO0003 
+RDIFE 
CLOCKNEW 
CLOCKS 
CLOCKI1 


+x 
+STKDO00S 
+ 


+ 
+STKLOO03 
+APLKAHST 


SHEER eEe eee ee ee eee se 


Figure’ 47. 


CALC8 
+ 


+CALC8& 


++ee + 


Figure 48. 


APLKPOP: 


An example of code generated for the APCLKSTAK and APLKPROC macro 
when an external routine has been specified is described in 


Figure 47 


APLKSTAK RDIFF,TYPE=ENTRY 


USING 


APLKPROC 


DSECT 
ORG 


¥,15 

ENTOO0S 
ALICENTOO003-*%-1),C"APLKAHST’?,C'05/11778' 
OH 

15 

A PTR to TOP OF STACK AREA 
CL4 PROCEDURE ID 

A REG 14 

9F OTHER SAVED REGS 

RLOCALA 

D 

F HIGH ORDER CLOCK WORD 

F LOW ORDER CLOCK WORD 

OF ROUND UP TO WORK BOUNDARY 
¥-STKDO003 


STKDO003,11 


15, STKP0003 PTR TO END OF STACK 


0,5TKLO003 BACK UP STACK PTR 

11,0 BY LENGTH OF STACK ENTRY 
0,15 SAVE END-QOF-STACK PTR 
15,0¢15) PTR TO ERROR ROUTINE 

11,0 IS THERE ENOUGH SPACE? 

15 (NO ~ GOTO ERROR ROUTINE) 


IF SO, SAVE ENT PTR 
SAVE REGISTER(CS) 


10,0 MODULE ADDRESSABILITY 
10 

*-APLKAHST 

»0 

L 


KAHST, 10 
STKIO003,=C*'AHST’ SET ID FOR DEBUG 


APLKSTAK and APLKPRGC: Generated Code for External Routines 


An example of code generated for the APLKPOP macro is described 
in Figure 48. 


APLKPOP 


DS 
NI 
L 

LM 
LA 
BR 


APLKAHST RETURN TO CALLER 

OH 

4(011),X'BF* OVERLAY ID WITH EXIT FLAG 
14,8011) RESTORE REGS 

2,10,12¢11) 

11,STLK0003¢11) POP STACK 

14 RETURN TO CALLER 


Generated Code 
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Code generated for the APLKPROC macro when an internal routine 
has been specified is described in Figure 49. 


HISTUP APLKPROC 
+ 
+X 
+HISTUP DS ON 
+STKDO009 DSECT 
+STKPO0009 DS A PTR TO TOP OF STACK AREA 
+STKIONOS DS CL4& PROCEDURE ID 
+STKROO09 DS A REG 14 
+STKSO009 S OF OTHER SAVED REGS 
+STKDO009 DSECT 
+ ORG 
+ DS OF ROUND UP TO WORD BOUNDARY 
+STKLO009 EQU ¥-STKDO009 
+APLKAHST CSECT 
+ USING STKDO009,11 
+ L 15,STKP0009 PTR TO END OF STACK 
+ LA 0,STKLO009 BACK UP STACK PTR 
+ SR 11,9 BY LENGTH OF STACK ENTRY 
+ LR 0,15 SAVE END-OF-STACK PTR 
+ L 15,0¢€15) PTR TO ERROR ROUTINE 
+ CR 11,0 IS THERE ENOUGH SPACE? 
+ BNHR 15 (NO - GOTO ERROR ROUTINE) 
+ ST 0,STKP0009 PTR TO END OF STACK 
+ ST 14,STKRO009 PTR TO END OF STACK 
a MVC STKIO009,=C°HIST’ SET ID FOR DEBUG 


Figure 49. APLKPROC: Generated Code for Internal Routines 


The APLKEXIT macro defines an exit routine to be entered if a 
program check or abend interrupt is encountered. It 15 written 
as follows: 


CAPLKEXIT]}] ENTRY=name,PARN=,value 








ENTRY= 
gives the name of the exit routine entered. Oniv one exit 
routine may be in effect for a given process. On return, 


if a previous exit definition has been overridden, RO 
contains its entry point, and Rl contains its parameter. 
Exits may be “stacked” by saving this information, and 
using it later as APLKEXIT ENTRY = €0), PARM = (1) to 
restore the previous exit. 


PARM= 
specifies a value to be passed to the exit routine in R1 if 
it is entered. It is an optional field. Frequently, the 
address of the current stack entry (R11) is employed. 


The Exit Routine 
On entry to the abend exit routine, Rl contains the 
parameter specified on the APLKEXIT macro, and RO points to 
an abend exit block described below. R15 contains the 
entry point address, and R14 is an abend return address. 
All other registers are set as they existed at the last 
time an APLKEXIT or APLKWAIT was issued by the process. 
CNote that an APLKWAIT may have been issued by a different 
module from that issuing the APLKEXIT.?) 


The routine is actually dispatched as a retry routine, and 
does not normally return to its caller. If it should 
return, the abend condition is raised again. Since the 
exit is implicitly cancelled when it is invoked, a return 
from the retry routine will terminate the process unless 
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the retry routine has set a new APLKEXIT or restored a 
previous APLKEXIT. 


A pointer to an abend exit block is passed to the routine 
in RO. The data in that block is valid only until the next 
program check or abend in the APLU task. The block 
contains space for a PSW, registers 0-15, and floating 
point registers 0-8, in that order (there is no mapping 
macro for this block). The high order bit of the PSW 
should first be checked. If it is off, a program check has 
occurred, and the PSW and register save areas contain valid 
information. If the high order bit is on, an abend has 
occurred, and the first four bytes contain an EBCDIC 
CICS/VS abend code. In this case, no additional 
information CPSW or register) is available. 


The APLKG macro, which invokes library services by queueing a 
request for the library task, is written as follows: 


CAPLKG] | lLibserve,_LISTA=area,TYPE=,code 


libserve 


states the library service requested. 


is a pointer to a global request element (GRE). GREs 
contain four words which are formatted by the APLKG macro 
expansion, and a two-word extension which must be set up by 
the caller before issuing the request. 





Codes and their meanings follow: 


Code Meaning 

LOAD Load a workspace 

SAVE Save a workspace 

DROP Drop a workspace 

WDIR Add a directory entry to the 
APL directory 

WLIB Write a control interval in the 
APL library 

UDIR Update an entry in the 
APL directory 

CFILE Create an auxiliary processor 
121 file 

DFILE Drop an auxiliary processor 
121 file 

UFILE Extend an auxiliary processor 

121 file 
RLIB Read a control interval from 


the APL library 
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The APLKHIST macro, which is used to invoke the histogram data 
recorder routine, is written as follows: 


7S an optional statement label. 


type 


13 one of the following names: 


INPUT1i——-the time between APL issuing a terminal read 
request to CICS/VS and notification to APL of 
completion of the request. 


INPUT2—the interevent time between two read operations 


REACT1—the elapsed time between first recognition of 
the input by APL and the time when the input is passed 
to the interpreter. 


INTERPL—interpreter processing time per input 
operation. This time is not precisely processor time, 
because it may include time, of which VS APL or CICS/VS 
has not been notified, that was used by the operating 
system or higher priority partitions. 


INTERP2—-the length of time that processing is 
interrupted for a user when the interpreter is stopped 
at the and of a time slice. 


DEPENDI——the elapsed time between auxiliary processor 
dispatch and the next auxiliary processor wait 
operation. 


DEPEND2—the time between two auxiliary processor 
dispatch operations. 


CALC—the difference in time between current time and 
ock time. This time is returned without making 
any histogram update. 


LOAD1I—-the time it takes for a )LOAD operation to be 
processed. 


LOAD2—the time elapsed between two successive )LOAD 
requests for the same user. 


SAVE1—the time it takes for a )SAVE operation to be 
processed. 


SAVE2—the time elapsed between two successive )SAVE 
requests for the same user. 


COPY1——the time it takes for a )JCOPY operation to be 
processed. 


COPY2—the time elapsed between two successive )COPY 
requests for the same user. 


LOGON1—the elapsed time between logon and when 
interpreter code is first entered. 


LOGON2——the time between the beginning and end of the 
user session. 
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oldelock 
is the name of a doubleword containing output from the STCK 
hardware instruction. Register notation may be used. 


When control is returned from the APLKHIST macro, floating point 
register 0 contains the newclock value (as it was provided by 
the STCK hardware instruction, not as a floating point number). 
The caller may use the STD hardware instruction to save this 
value to use when issutng a subsequent APLKHIST macro. Register 
15 will contain the difference in time between oldclock time and 
current time in milliseconds. If, however, register 15 contains 
a negative value, it will be one of the following return codes: 


-4 The oldclock value is zero. No histogram update is made in 
this case, but the newclock value is returned. 


~8 The clock is not running. Note that a clock that is running 
but not set is acceptable. 


The APLKMAIN macro invokes CICS/VS DFHSC GETMAIN and FREEMAIN 
routines. If CLASS=USER is specified or is the default, the 
macro gets enough storage to allow for the SSA (storage 
accounting area) affixed by CICS/VS; that is, the address 
returned by the GETMAIN routine and passed to the FREEMAIN 
routine points beyond the SAA. 


The APLKMAIN macro is written as follows: 


GET, ienqgth(CLASS=, COND=, INITING=1 





FREE, addr 
label 
1s an optional statement label. 
GET, Length 


requests storage, the length being the number of bytes of 
storage requested. If register notation is used, it 
indicates that the length is in the specified register. The 
storage address is returned in register 1 


FREE, addr 
requests that the storage acquired by the GET parameter be 
freed, addr being the address of that storage. 


CLASS=, COND=, INITING= 


These parameters are defined in the CICS/VS Application 
Programmer's Reference Manua Macro Level). 





The APLKT macro, which provides linkage between terminal manager 
routines, is written as follows: 


Clabel ] APLKT TARGET(,G1C,G=gblptr] 
[,P=parm] 


a 
is an optional statement Label. 
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TARGET 
is either tha label (within tha module currently executing) 
of the routina to be called or a keyword identifying that 
routine. Valid keywords and the entry points to which 
control is routed are: 


Keyword Entry Point 
CLEAR KTSCLEAR 
FCHECK KTSFCHK 
FINDF KTSFNDF 
HLINE KTSLINE 
LOCID KTSLOCID 
LOCREQ KTSLOCR 
SCHED KTSSCHED 
SETCUR KTRCU 
TRAN KTRTRAN 
G 
indicates that the TARGET operand specifies a keyword 
rather than a label. In this case, the entry point to which 
control is to be passad will be located through the GBL 
Cglobal) table. If the GBL table its not addressable, see 
the G=gbliptr operand. 
p= 


rm 
the address of a fullword parameter to be passed in 
register 1 to the antry point getting control. If register 
notation its used, it indicates that the parameter is in the 
‘identified register. 


The APLKTERM macro, which passes control to terminal manager 
entry points, is written as follows: 


APLKTERM tradaddr,TYPE=tlist,OPT=olist 


tradaddr 
gives the address of the TRQD (Cterminal request descriptor) 
parameter list. This parameter is required and positional. 


TYPE=tlist 
Indicates the type of request. A single type keyword may be 
used, or a list of type keywords may be enclosed in 
parentheses. Type keywords and their meanings follow: 


e FORMAT—dafine thea screen format. 





e WRITE—write or arase data by field. 

e READ—wait for input Cif necessary) and summarize it. 
° GETDATA—get data by field. 

° FLDATTR—set field attributes. 

e GETFORM—-get the current screan format. 

e HCOPY—-request hardcopy output of the screen image. 

e ALARM—ring the alarm. 

e SETCUR—set the cursor. 
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e RESTORE—restore the screen. 
e INIT—indicates this is the initial service request. 
e FINAL-——indicates this is the final service request. 


e YES—indicates that type bits have been set in TRQ 

: fields TRQTYP1 and TRQTYP2. 
The following type keywords are mutually exclusive: INIT, 
FINAL, FORMAT, WRITE, READ, GETDATA, FLDATTR, and GETFORM. 
They are considered major requests and result in control 
being passed to one of the following entry points: 


Keyword Entry Point 
INIT KTRIN 
FINAL KTRFI 
FORMAT KTRFM 
WRITE KTRWR 
READ KTRRD 
GETDATA KTRGD 
FLDATTR KTRFA 
GETFORM KTRGA 


The following type keywords may be specified alone or with 
.others: HCOPY, ALARM, SETCUR, and RESTORE. CHCOPY and 
RESTORE may be used only with the WRITE keyword.) These 
keywords are considered minor requests. If they are 
specified with major request keywords, control is passed to 
the entry point listed previously for major request 

hel aoa a Otherwise, control is passed to the KTRRT entry 
point. 


OPT=olist 


indicates what options are desired on requests. A single 
OPT keyword may be used, or a list of OPT keywords may be 
enclosed in parentheses and separated by commas. OPT 
keywords and their meanings follow: 


° ALT—use the alternate screen. 


e REFORM—is specified with the type keyword FORMAT. 
Requests a reformat of the screen. 


e FCHECK——is specified with the type keyword FORMAT. 
Requests verification of the screen format given on the 
FORMAT request. 


e WAIT—is specified with the type keyword WRITE. 
Requests that the system wait for the results of a 
write operation. 


° NULL-——-is specified with the type keyword WRITE. 
Requests that the trailing blanks be treated as null. 


° NODAT—is specified with READ or GETDATA. If the 
keyword is READ, requests that no data information be 
returned. If the keyword is GETDATA, requests that 
field lengths be returned instead of data. 


e WILLWR—is specified with the type keyword READ. 
Specifies that a write operation will immediately 
follow the read operation. 


e YES—means that option bits have been set in the TR@OPT 
field in the TRQD. If the OPT keyword is not specified, 
the TRQOPT field will be cleared. 
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The APLKTRCE macro, which invokes the CICS/VS DFHTR trace 
routine for.a user 193 trace, is written as follows: 


[label] |APLKTRCE 
bbl 1,R14¢2rerrrr] 





label 
1s an optional statement label. 


id 


is two hexadecimal digits identifying what was traced. An, 
Bn, and Cn indicate the traced data was associated with 
executor routines, operating system calls, and shared 
storage manager services respectively. 


ddddd . 
is the address of three Cor if the BYTE operand is omitted, 


four) bytes of traced data. If register notation is used, 
the traced data is in the specified register. 


BYTE=bb 
allows the high-order byte of the traced data word (ddddd) 
to be overlaid with the data specified in bb. If register 
notation is used, the data to be overlaid is in the 
low-order byte of the register. 


Ri6=rrrrr 
is the caller's address. If this parameter is specified, 
reeer overrides the default caller's address that's 
specified in the register save area in the stack. 





The trace records generated by the APLKTRCE macro have the 
following format: 


7. SERVICE REQUEST CALLS (CICS/VS, CMS, TSO, OR VSPC) 


Register Usage 


Save Areas 


Service request calls are made from the interpreter or 
translator to the executor (CICS/VS, CMS, TSO, or VSPC). 


Register Use 

0 Address of parameter (service request code) 
1 Entry point address 

1a. Address of workspace 


Parameters other than service request codes are passed in the 
workspace. 


Return codes are passed in PTHSRCOD. 


The interpreter's or translator's registers are saved in the 
workspace at location WSMREGSV. 
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Calling Macros 


The interpreter or translator passes control to the executor by 
issuing a service request using the APLSVCC macro. 


The APLSVCC macro instruction is written as follows: 


The yycode is implicitly the first parameter of any service 
request. It specifies exactly what service is desired. The 
yvyycode is a 16-bit constant aligned on a halfword boundary. The 
high-order bit of the yycode is a flag used by the interpreter 
to determine if the last request issued marked the end of one 
work session and the start of another. The remaining 15 bits 
represent a positive numeric value that specifies the service 
requested. The value assigned to a particular service is 
arbitrary. In the interpreter, yycode values are always referred 
to by name; the numeric value of the low-order 15 bits of the 
yycode has meaning only to the executor. 


Code generated for APLSVCC is described in Figure 50. 


APLSVCC YYQAI 
L 


+ R1,=VCAPLFXIIM) 
+ BALR RO,R1 

+ DC AL2CYYQATI) 
*S5VCC0020 EQU ¥ 


Figure 50. APLSVCC: Generated Code 


Values, Parameters, and Return Codes for Service Requests 


REGULAR SERVICE REQUESTS: Regular service requests are those 
that do not invoke library operations, and are not concerned 
with shared variables. 
Value 0001 - YYQZ 
Service: Relinquish control at end of quantum. 
Parameters: None 
Return Codes: 
0000 Continue 


8000 Tllegal: issued when executor had not requested 
quantum end. 


CICS/VS Routine: APLKMSCB, KCQZ 

CMS Routine: APLSCMSC, SCQZ 

TSO Routine: APLYUMSC, SCQZ 

VSPC Routine: APLPMISC, PCQZ 
Value 0002 ~ YYTYO 


Service: Send output to terminal. 


Parameters: 


WSMPARM1 Absolute address of data string 
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WSMPARM2 Length of data string (negative value if last byte 
of string not a new-line character) 


Return Codes: 
0000 Completed 


8000 WSMPARML Cor sum of WSMPARM1 and WSMPARM2) addresses 
an area not in the workspace or interpreter; WSMPARM2 
positive and last character not a new line; absolute 
value of WSMPARM2 greater than 1024. 


CICS/VS Routine: APLKIFIX, KYYTYQOI 

CMS Routine: APLSCTYP, SCTYO, APLSCDPY, SCDTYO 
TSO Routine: APLYUTYF, SCTYO, APLYUDPY, SCDTYO 
VSPC Routine: APLPTYIO, PCTYO, PCDTYO 

Session manager routine: APLACPRO 


Value 0003 - YYTYI 


Service: Get input from terminal. 


Parameters: 
WSMBUFF String of prepared input 
WSMBFPTR Length of prepared input in bytes at this time 


Return Codes: 

0000 Completed 

0001 Buffer overflow 

0002 Character error 

0003 O-U-T discovered 

8000 WSMBFPTR or WSMCURSR less than 0; WSMCURSR greater 
than WSMBFPTR; issuing workspace is in copy status; 
WSMCURSR not equal to PTHCURSR when request issued. 

CICS/VS Routine: APLKIFIX, KYYTYOI 

CMS Routine: APLSCTYP, SCTY1, APLSCDPY, SCDTYI 

TSO Routine: APLYUTYP, SCTYI, APLYUDPY, SCDTYI 


VSPC Routine: APLPTYIO, PCTYI, PCDTYO 
Session manager routine: APLACPRO 


Value 0004 - YYTYOTI 


Service: Output prompt, then get input from terminal. 


Parameters: 
WSMPARM1 Addresses WSMBUFF 
WSMPARM2 Contains length of string in WSMBUFF 


WSMBUFF Contains short cheracter string containing no 
terminal-control Z-codes 


WSMBFPTR Contains length of string in WSMBUFF 
WSMCURSR Equal to WSMBFPTR 

Return Codes: See "YYTYI.” 

CICS/VS Routine: APLKIFIX, KYYTYOT 


CMS Routine: APLSCTYP, SCTYOI, APLSCDPY, SCDTYOI 
TSO Routine: APLYUTYP, SCTYOI 
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VSPC Routine: APLPTYIO, PCTYOI, PCDTYOI 
Session manager routine: APLACPRO 


Value 0005 - YYATOFF 


Service: Turn off attention and cancel bits in PERTERM. 
Parameters: None 
Return Codes: Always 60000 
CICS/VS Routine: APLKMSCB, KCATOFF 
CMS Routine: APLSCTYP, SCATOFF 
TSO Routine: APLYUMSC, SCATOFF 
VSPC Routine: APLPMISC, PCATOFF 
Value 0006 - YYTIME 


Service: Send date and time of day in VS APL standard time 
format. 
Parameters: None 


Return Codes: 

0000 Completed 

8000 Workspace in copy status 

CICS/VS Routine: APLKMSCA, KCATOFF 

CMS Routine: APLSCMSC, SCTIME 

TSO Routine: APLYUMSC, SCTIME 

VSPC Routine: APLPMISC, PCTIME 
Value 0007 - YY@QAI 

Service: Send account information. 

Parameters: None 

Return Codes: 

0000 Completed 

8000 Workspace in copy status 

CICS/VS Routine: APLKMSCA, KCQAI 

CMS Routine: APLSCMSC, SC@AI 

TSO Routine: APLYUMSC, SCQAI 

VSPC Routine: APLPMISC, PC&AI 
Value 0008 - YYRWAIT 

Service: Wait for responsa to massage. 

Parameters: None 

Return Codes: 

0000 Completed 

8000 Th lagal: workspace in copy status; PTHCURSR not equal 

o 0. 

CICS/VS Routine: not supported 

CMS Routine: APLSCMSG, SCRWAIT 

TSG Routine: APLYUMSC, SCRWAIT 

VSPC Routine: APLPTYIO, PCRWAIT 
Value 0009 ~ YYDELAY 


Service: Set dalay interval. 
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Parameters: 
WSMPARMi The desired delay interval in VS APL 
WSMPARM2 standard time format. 





Return Codes: 

0000 Completed 

8000 Workspace in copy status 

CICS/VS Routine: APLKMSCA, KCDELAY 

CMS Routine: APLSCMSC, SCDELAY 

TSO Routine: APLYUMSC, SCDELAY 

VSPC Routine: APLPTYIO, PCDELAY 
Value 000A - YYTABS 


Service: Set or send tab settings. 


Parameters: ) 


WSMBUFF Parameter string 
WSMBFPTR 0O = reference tabs; non-0 = set tabs 


Return Codes: 
0000 Completed 
0001 Tabs not supported 


8000 Illegal: invalid parameter string; WSMBFPTR less than 
0 or greater than 255; workspace in copy status. 


CICS/VS Routine: APLKMSCB, KCTABS 
CMS Routine: APLSCTYP, SCTABS 

TSO Routine: APLYUMSC, SCTABS 
VSPC Routine: APLPTYIO, PCTABS 


Value 0008 - YYNIDTH 





Service: Accept specified line width. 


Parameters: ) 


WSMPARM1 New width setting 


Return Codes: 
0000 Accepted 


8000 Tllegal: WSMPARM! greater than 255 or less than 390; 
workspace in copy status. 


CICS/VS Routine: APLKMSCB, KCWIDTH 

CMS Routine: APLSCTYP, SCWIDTH 

TSO Routine: APLYUTYP, SCWIDTH 

VSPC Routine: APLPTYIG, PCWIDTH 
Value 000 = YYMBL 


Service: Block or unblock messages. 





Licensed Materjial—Property of IBM 
420 VS APL Program Logic 


Parameters: 


WSMPARM1L Contains signal value; 0 = no change; 1 = block; 2 


= unblock 
Parameters: 
0000 Accepted 
0001 Not supported 
0002 Invalid for this user 
8000 ITlLlegal: WSMPARM! is not 0, 1, or 2; this 


workspace is in copy status. 
CICS/VS Routine: APLKMSCB, KCMBL 
CMS Routine: APLSCMSG, SCMBL 
TSO Routine: APLYUMSG, SCMBL 
VSPC Routine: APLPTYIO, PCMBL 
Value 000D - YYTRAN 


Service: Transmit message. 


Parameters: 

WSMPARM1L Absolute address of the first nonblank character 
following the verb of an OPR or MSG command, the 
text of which is in WSMBUFF. 

WSMPARM2 Bit O=1 if command verb was OPR or OPRN Bits 1-31 
= length of string addressed by WSMPARM1 

Return Codes: 

0000 

0006 Sent 

0001 Message lost 

0002 User not receiving 

0003 Target not signed on 

0004 Target undecipherable 

8000 Tllegal: WSMPARML, or WSMPARM!L plus WSMPARM2 (€1-31) 

do not fall in WSMBUFF; WSMPARM2 (1-31) greater than 
1024; this workspace in copy status. 

CICS/VS Routine: APLKMSCB, KCTRAN 

CMS Routine: APLSCMSG, SCTRAN 

TSO Routine: APLYUMSG, SCTRAN 

VSPC Routine: APLPTYIO, PCTRAN 

Value 0010 - YYCOPI 


Service: Accept a buffer of copy data from copy source 
workspace to copy sink workspace. 


Parameters: None 


Return Codes: 
0000 Data supplied 
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0001 No data available 

8000 Illegal: this workspace is not copy sink. 
CICS/VS Routine: APLKLIBU, KCOPI 

CMS Routine: APLSCOPY, SCCOPI 

TSO Routine: APLYUOPY, SCCOPI 

VSPC Routine: APLPMISC, PCCOPI 


Value 0011 - YYCOPO 





Service: Offer a buffer of copy data to copy sink workspace. 


Parameters: 
WSMBUFF Block of copy data 
WSMBFPTR Length of data in WSMBUFF 


Return Codes: 


0000 Completed } 
0001 Partner has terminated 


8000 Tilegal: WSMBFPTR less than or equal to zero, or 
greater than the maximum length of WSMBUFF; this 
workspace not copy source. 


CICS/VS Routine: APLKLIBU, KCOPU 
CMS Routine: APLSCOPY, SCCOPO 
TSO Routine: APLYUOPY, SCCOPO 
VSPC Routine: APLPMISC, PCCOPO 


Value 0012 - YYCOPZ ) 





Service: Take the issuing workspace out of copy status. 


Parameters: None 


Return Codes: 
0000 Completed 


0001 This workspace is copy sink and not all copy data has 
been consumed. 


8000 Tllegal: workspace not in copy status. ) 


CICS/VS Routine: APLKLIBU, KCOPZ 
CMS Routine: APLSCOPY, SCCOPZ 
TSO Routine: APLYUDPY, SCCOPZ 
VSPC Routine: APLPMISC, PCCOPZ 


Value 0013 ~- YYDUMP 


Service: Dump active workspace and PERTERM. 
Parameters: None 

Return Code: Always 0000 

CICS/VS Routine: APLKMSCA, KCDUMP 

CMS Routine: APLSCERR, SCDUMP 

TSO Routine: APLYUERR, SCDUMP 

VSPC Routine: APLPSERR, PCDUMP 


Value 0014 ~- YYOFF 


Service: Terminate session. 
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Parameters: 
WSMPARMI Bit 31; 0 = no hold, 1 = hold 
Return Codes: None 
CICS/VS Routine: APLKMSCB., KYYOFF 
CMS Routine: APLSCMSC, SCOFF 
TSO Routine: APLYUMSC, SCOFF 
VSPC Routine: APLPMISC, PCOFF 
Value 0015 - YYSYSER 


Service: Transmit system error message. 


Parameters: 
WSMBUFF Character string Cerror message) 
WSMBFPTR Length of string 
Return Codes: Always 0000 
CICS/VS Routine: APLKMSCB, KCSYSER 
CMS Routine: APLSCERR, SCSYSER 
TSO Routine: APLYUERR, SCSYSER 
VSPC Routine: APLPSERR, PCSYSER 

Value 0016 = YYQUOTA 
Service: Print information concerning workspace, library, 
and shared variable quotas. 
Parameters: None 
Return Codes: 
0000 Completed 
8000 JTilegal: workspace in copy status. 
CICS/VS Routine: APLKMSCB, KCQUOTA 
CMS Routine: APLSCMSC, SCQUOTA 
TSO Routine: APLYUMSC, SCQUOTA 
VSPC Routine: APLPMISC, PCQUOTA 

Value 0017 ~ YYCMD 
Service: Pass all commands to supervisor before they are 
processed by the interpreter. 
Parameters: 
WSMPARMI1 Points to command verb block 
WSMPARM2 Points to command operand block 
Both blocks are of the form 

DC XCLEN-1), CLCLEN) *....° 

On return, WSMBUFF may contain z-code output data with 


embedded new-line characters; WSMBFPTR must contain either 
the length of this data, or, if no data is to be displayed, 


Return Codes: 


0000 Completed 
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Cool WSMBUFF full: clear and restart 

0002 Provide standard error message 

0003 Lat the interpreter process the command 
CICS/VS Routine: APLKMSCB, KYYCMD 

CMS Routine: APLSCMSC, SCCMD 


TSO Routine: APLYUMSC, SCCMD 
VSPC Routine: APLPMISC, PCMD 


LIBRARY REQUESTS: Library requests ara those that entail a 
reference to the workspace library or the user directory. All 
the library requests share a common parameter list, called the 
PDSD, and a common set of return codes. 


Parameters: 

PDSLIBNO Library number 
PDSNAME Workspace name 
PDSPASS Password 


PDSMOD Flag bits 


PDSS 


IZE Workspace size 


Return Codes: 


D000 
0002 
0004 
0006 
0008 
COCA 
oooc 
OO0E 
0010 
0012 
0014 
0016 
0018 
0020 
0022 
0024 


Good completion 

Library not found 
Workspace not found 
Incorrect password 
Improper library request 
Name already exists (SAVE) 
Workspace too large 
Library is full 

Name in use (non-VS APL workspace)s: 
System resources full 
Library locked 

Space not available 

Size quota exceeded 
Library not availatle 
Filesize maximum exceeded 


Not supported 


The following codes indicate hardware or software failure: 


Return Codes: 


0081 


Directory read I/0 failure 
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0082 
0085 
0086 
8000 


Library read I/0 failure 
Directory write [/0 failure 
Library write I/0 failure 


Illegal: bad PDSD, or this workspace in copy status. 


Value 8020 - YYLOAD 


Valu 


Valu 


Service: Load the specified workspace. 
CICS/VS Routine: APLKLIBU, KLOAD 

CMS Routine: APLSCLIB, SCLOAD 

TSO Routine: APLYULIB, SCLOAD 

VSPC Routine: APLPLIBS, PCLOAD 


e 8021 - YYCOPA 


Service: Load copy source workspace and dispatch it to 
generate copy output. 

CICS/VS Routine: APLKLIBU, KCOPA 

CMS Routine: APLSCOPY, SCCOPA 

TSO Routine: APLYUOPY, SCCOPA 

VSPC Routine: APLPLIBS, PCCOPA 


e 0022 - YYSAVE 


Service: Save a workspace. 
CICS/VS Routine: APLKLIBU, KSAVE 
CMS Routine: APLSCLIB, SCSAVE 
TSO Routine: APLYULIB, SCSAVE 
VSPC Routine: APLPLIBS, PCSAVE 


Value 0023 - YYDROP 


Service: Drop a workspace. 
CICS/VS Routine: APLKLIBU, KDROP 
CMS Routine: APLSCLIB, SCDROP 
T50 Routine: APLYULIB, SCDROP 
VSPC Routine: APLPLIBS, PCDROP 


Value 0024 - YYLIB 


Service: Send library and workspace information. 
CICS/VS Routine: APLKLIBU, KLIB 

CMS Routine: APLSCLIB, SCLIB 

TSO Routine: APLYULIB, SCLIB 

VSPC Routine: APLPLIBS, PCLIB 


Value 8025 - YYCLEAR 


Service: Clear the workspace. 


CICS/VS Routine: APLKLIBU, KCLEAR 
CMS Routine: APLSCMSC, SCCLEAR 
TSO Routine: APLYUMSC, SCCLEAR 
VSPC Routine: APLPLIBS, PCCLEAR 


Value 0026 - YYNWSID 


Service: Change workspace identification. 
CICS/VS Routine: APLKLIBU, KWSID 

CMS Routine: APLSCMSC, SCWSID 

TSO Routine: APLYUMSC, SCWSID 

VSPC Routine: APLPLIBS, PCWSID 
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Value 0028 - YYPASS 


Service: Change signon password. 
CICS/VS Routine: APLKLIBU, KPASS 
CMS Routine: APLSCMSC, SCPASS 
TSO Routine: APLYUMSC, SCPASS 
VSPC Routine: APLPLIBS, PCPASS 


SHARED VARIABLE ORIENTED REQUESTS: Shared variable services are 
not performed by the executor but by the shared storage manager. 
The executor, however, provides the communication medium between 
the interpreter and: the shared storage manager. 


The parameter for each’ shared variable request 1s a control 
block, the processor control vector (PCV) for YYSON and YYSOFF, 
the share control vector (SCV) for all others. The interpreter 
builds the appropriate control block in WSMSVLRQ@ in the 
workspace. The executor places the shared storage manager return 
code in byte 0 of PTHSRCOD and the reason code in byte 1 of 
PTHSRCOD. In addition, the executor may generate this return 
code: 


Return Code: 
8000 Tllegal: this workspace in copy status. 
Value 0030 - YYSON 


Service: Sign on to shared storage manager. 
CICS/VS Routine: APLKISUI 

CMS Routine: APLSCSHV, SCSVON 

TSO Routine: APLYUSHV, SCSVON 

VSPC Routine: APLPSHVR, PCSON 


Value 0031 - YYSOFFER 


Service: Offer to share a variable. 
CICS/VS Routine: APLKISUI 

CMS Routine: APLSCSHV, SCSVOFFR 
TSO Routine: APLYUSHV, SCVOFFR 
VSPC Routine: APLPSHVR, PCSOFFER 


Value 0032 - YYSRET 


Service: Retract a variable. 
CICS/VS Routine: APLYUSHV, SCURETR 
CMS Routine: APLSCSHV, SCSVRETR 
TSO Routine: APLYUSHV, SCURETR 
VSPC Routine: APLPSHVR, PCSRET 


Value 0033 - YYSQUERY 


Service: Send information about shared variables and 
partners. 

CICS/VS Routine: APLYUSHV, SCSVQUER 

-CMS Routine: APLSCSHV, SCSVQUER 

TSO Routine: APLYUSHV, SCSVQUER 

VSPC Routine: APLPSHVR, PCSQUERY 


Value 0034.=- YYSACC 


Service: Change access control vector. 
CICS/VS Routine: APLYUSHV, SCSVACC 

CMS Routine: APLSCSHV, SCSVACC 

TSO Routine: APLYUSHV, SCSVACC 

VSPC Routine: APLPSHVR, PCSACC 


Value 0035 - YYSSPEC 
Service: Accept new value for shared variable. 


CICS/VS Routine: APLYUSHV, SCSVSPEC 
CMS Routine: APLSCSHV, SCSVSPEC 
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TSO Routine: APLYUSHV, SCSVSPEC 
VSPC Routine: APLPSHVR, PCSSPEC 


Value 0036 - YYSREF 


Service: Send current value of shared variable. 
CICS/VS Routine: APLYUSHV, SCSVREF 

CMS Routine: APLSCSHV, SCSVREF 

TSO Routine: APLYUSHV, SCSVREF 

VSPC Routine: APLPSHVR, PCSREF 


Value 0037 = YYSCOPY 


Service: Send current value of shared variable, regardless 
of access state. 

CICS/VS Routine: APLYUSHV, SCSVCOPY 

CMS Routine: APLSCSHV, SCSVCOPY 

TSO Routine: APLYUSHV, SCSVCOPY 

VSPC Routine: APLPSHVR, PCSCOPY 


Value 0038 - YYSOFF 


Service: Signoff of shared storage manager. 
CICS/VS Routine: APLYUSHV, SCSVOFF 

CMS Routine: APLSCSHV, SCSVOFF 

TSO Routine: APLYUSHV, SCSVOFF 

VSPC Routine: APLPSHVR, PCSOFF 


IMPLIED SERVICE REQUESTS: Implied service requests are the means 
by which control is passed to the interpreter when an 
unpredictable avent has occurred. 


Value 80FO0 - YYON 


Event: User has signed on. 


Return Codes: 
0000 No continue 


0001 Continue needed 


Value 80Fl - YYPRGX 


Event: Program check has occurred. 
Return Codes: None 
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8. CONVERSION PROGRAM LINKAGE 


Save Areas 


Calling Macros 


The conversion program uses the conventions shown in Figure 51 
for calls within itself. 


Register Use 

0 Parameter (word of flag bits defined by macro 
APLFLAGS) 

10 Address of source workspace (VS APL communication) 


11 Address of sink (converted) workspace (VS APL 
communication) 


NOTE: Registers 10 and 11 are reversed for OS/VSI1, 
OS/VS2, or DOS/VS communication. 


12 Base register 

13 Address of register save area 

14 Return address 

15 Entry point address and return code register 


Figure 51. Conversion Program Register Usage 


Registers are saved in an 18-word area pointed to by register 


Two sets of calling macros are used in the conversion programs. 
The first consists of the ACENTRY macro and the OS/V51, OS/VS2, 
DOS/¥S CALL and RETURN macros. With these, APLFLAGS is used for 
communication between modules, but is not passed as a parameter. 
The second consists of the ACENTRY2, ACCALL, and ACEXIT macros. 
With these, APLFLAGS is passed as a parameter. 


The ACENTRY macro instruction, which defines an entry point, is 
written as follows: 


entry-pt 


is the name of the entry point. 


save-area . 
is the name of the called routine’s 18-word register save 


area. 
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“CVINIT 
+CVINIT 


~++++4+4+++4+ 4+ + + 


Figure 52. 


“CVDIRE 
+CVDIRE 


++ ++ t+ et + + + + 


Figure 53. 


Code generated for ACENTRY 


ACENTRY SAVEINIT 
CSECT 

B 12(0,15) 

DC AL1(6) 

DC CL6°CVINIT’ 
STM 14,12,12¢13) 
BALR R12,0 

USING ¥,R12 

ST R13,SAVEINIT+4 
LR R15,R13 

LA R13,SAVEINIT 
ST R13,8¢€,R15) 


ACENTRY: Generated Code 


is described in Figure 52. 


BRANCH AROUND ID 
IDENTIFIER 

SAVE REGISTERS 

PROGRAM ADDRESSABILITY 
SAVE CALLER SAVE AREA PTR 


PROGRAM SAVE AREA PTR 
BACK CHAIN NEW SAVE PTR 


The ACENTRY2 macro instruction, which defines an entry point, is 


written as follows: 


entry-pt 


is the name of the entry point. 


ave~area 


is the name of the called routine's 18-word register save 


area. 


Code generated for ACENTRY2 is described in Figure 53. 


ACENTRY2 SAVDIRE 
CSECT 

B 12(0,15) 

DC AL1(6) 

DC CL6'CVDIRE' 
STM 14,12,12¢13) 
BALR R12,0 

USING ¥,R12 

ST R13,SAVDIRER+4 
LR R15,R13 

LA R13,SAVDIRER 
ST R13,8(¢,R15) 
ST RO,APLFLAGS 


ACENTRY2: Generated Code 


BRANCH AROUND ID 


IDENTIFIER 
SAVE REGISTERS 
PROGRAM ADDRESSABILITY 


SAVE CALLER SAVE AREA PTR 
PROGRAM SAVE AREA PTR 


BACK CHAIN NEW SAVE PTR 
SAVE COMMUNICATION FLAGS 





The ACCALL macro instruction, which calls a routine, is written 


as follows: 


label 


is the optional statement label. 


routine 


is the name of the called routine as defined by ACENTRY or 


ACENTRY2. 
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Register 13 contains the address of the calling routine's save 
area. 


Code generated for ACCALL is described in Figure 54. 





ACCALL CVPARM 
L 


+ RO,APLFLAGS SEND COMMUNICATIONS FLAGS 
2 L R15,=VCCVPARM) GET ENTRY POINT 

+ BALR R14,R15 GO TO ROUTINE 

+ ST RO,APLFLAGS SAVE RETURNED FLAGS 


Figure 54. ACCALL: Generated Code 


The ACEXIT macro instruction, which returns to the caller, is 
written as follows: 


[label] |ACEXIT RC=return-code 


label 
is the optional statement label. 





return-code 


Return Codes: 

0 Normal return 

4 or 8 Abnormal return; occurs only in communication 
between conversion program routines; specific 
meanings defined by each routine. 


é Workspace could not be converted; used in 
communication with OS/VS1, OS/VS2, or DOS/VS. 


32 System error routine; used in communication with 
OS/VS1, OS/VS2, or DOS/VS. 


Code generated for ACEXIT is described in Figure 55. 


The conversion program also uses the APLCALL macro to call 
exarch and translator routines that are contained within it. 





ACEXIT RC=0 
+ L RO,APLFLAGS RETURN COMMUNICATION FLAGS 
7 L R1i3,46¢€,R13) RESTORE CALLER'S SAVE PTR 
+ L R14,12¢0,R13) RESTORE RETURN 
+ LM 2,12,28(R13) RESTORE CALLER REGS 
+ LA R15,0 RETURN CODE 
+ BR R14 RETURN TO CALLER 


Figure 55. ACEXIT: Generated Code 
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9. CMS/TSO SHARED STORAGE MANAGER 


Save Areas 


Control is passed from the interpreter to the shared storage 
manager as follows: 


1. Interpreter issues a service request (APLSYVCC) which passes 
control to the executor. 


2. Under CMS or TSO, the executor passes control to the shared 
storage manager using registers 0, 14, and 15 as shown in 
Figure 56. 


3. Under VSPC, the executor passes control to the shared 
storage manager using the host system linkage conventions. 


Under CMS or TSO, each auxiliary processor is an independent 
program. They initially receive control when VS APL 1s 
initialized. They subsequently receive control whan the 
interpreter issues a shared variable request that satifies 
an auxiliary processor's wait. The auxiliary processor 
passes control to the shared storage manager using the 
ASVPxxxx macros. In all these cases, the linkage uses 
registers 0, 14, and 15 as shown in Figure 56. 


Under VSPC, the auxiliary processors are a collection of 
executor routines. They receive control, and pass control to 
each other, using the linkage conventions described in 
section "Executor Linkage." They pass control to the shared 
storage manager using the host system linkage conventions. 


Shared storage manager routines pass control to each other 
with register usage as shown in Figure 56. 


Register Use 

0 Parameter and reason code (return) 

12 Base register (all shared storage manager 
routines) 

13 Address of shared memory 

14 Return address 

15 Entry point address and return code 


Figure 56. Shared Storage Manager and Auxiliary Processor 
Register Usage 


SSeS 


The shared storage manager has four save areas or levels 
reserved in the beginning of shared memory. Each shared storage 
manager routine operates on one of these levels in that, when it 
is called, the calling routine's registers are saved in the 
appropriate save area. 


Licensed Material—Property of IBM 
Section 6. Diagnostic Aids 43] 


10. CICS/VS SHARED STORAGE MANAGER 


Register Usage 


Save Areas 


The register usage implemented by the shared storage manager is 
Shown jin Figure 5/7. 


Register Use 

9 Address of shared storage manager storage 
10 Base register 

il Pointer to stack entry 

i2 Address of TCA 

13 Address of CSA 

14 Return address 

15 Entry point address and return code 


Figure 57. Shared Storage Manager Register Usage 


The shared storage manager has a save area for saving caller 
registers 2 through 13 and a stack area for use by the shared 
storage manager subroutines. The APLKPROC, APLKSTAK, and APLKPOP 
macros are used to manage the stack area. 


Li. COMMON EXECUTOR LINKAGE 


There 31s a set of service routines that produce the same effects 
in any operating system, but that vary their method of execution 
according to the operating system. For example, storage 
management services is called to get more virtual storage. Under 
TSO, 31t issues an OS GETMAIN; under CMS, it issues a DMSFREE; 
and under CICS/VS, it initiates a DFHSC request. These sarvice 


routines are called cross-sytem executor services routines. 


Cross-system executor services routines can use a special entry 
and exit logic for obtaining and returning dynamic work areas. 
The logic 1s called a stack protocol linkage, and an entry point 
requiring this linkage is a stack protocol entry point. A module 
calling a stack protocol entry point does not call the entry 
point directly, but transfers control to a stack processing 
routine in module APLXSTAK, which in turn calls the entry point. 
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Register Usage 


Save Areas 


Calling Macros 


Register Use 


0 Entry point te a stack protocol module 

1 Standard parameter register 

10 Pointer to PTX and PTH 

13 Pointer to the stack work area (any unused register 
may be specified by the stack protocol module) 

14 Pointer to tha stack processor routine 

15 Entry point of the stack routine 


An l18-word save area is generated'in the stack, and is used for 
other linkages as well as stack protocol linkages. 


There. are three macros used by VS APL in stack protocol linkage: 
APLCALLS, APLXEND, and APLXPROC. These macros are expanded and 
described below. 


The APLCALLS macro instruction, which calls a module that uses 
the stack protocol linkage, is written as follows: 


Clabelj |APLCALLS entry point 
t, PARM=parmlistJ[,S1TKPTR=reg]) 


label 


iS an optional statement label. 


entr int 
is the name of the entry point to be called. Entries from 
the cross-system vector table (VCT) will cause an assembler 
load from the VCT; otherwise, a literal VCON is loaded to 
fetch the target addrass. 


PARM= parm-list 
specifies the parameter to be passed to the entry point. An 
LA instruction is generated for this parameter. 


STKPTR= reg 
identifies the stack register for this stack call. If 
specified, this parameter sets the stack register for all 
future APLCALLS invocations. 
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Lj 
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ic 
34 


Code generated for APLCALLS with various parameter options is 


described in Figure 58. 


When entry point begins with VCT: 


APLCALLS VCTENTRY 
+ L 14,PTXVCT 
+ L 0,VCTENTRY-VCTC,14) 
+ LA 1,PARMLIST IF PARM= IS USED 
When entry point does not begin with VCT: 

APLCALLS ENTRYPT 
+ LR 15,RSTK COR REG, IF USED) 
+ L O=VCENTRYPT ) 
+ LA 1,PARMLIST IF PARM= IS USED 
+ BALR 14,15 

Generated Code 


Figure 58. APLCALLS: 


The APLXEND macro instruction, which generates exit code for a 


module that uses the stack protocol linkage, 


follows: 





label 


[label] APLXEND CENTRY!| FINAL |SU3) 
[CODE=code-parm] 


is written as 


is an optional statement label. 


ENTRY 


causes assembly of a branch instruction to the address in 


STKPREV 
FINAL 


causes assembly of the exit code for the end of a module. 


SUB 


causes assembly of a branch instruction to the address in 


SUB14SV. 
If neither ENTRY, 


FINAL, 


nor SUB is specified, the function 


performed is the function of both ENTRY and FINAL. 


CODE=code-parm 


causes assembly of an instruction to load a return code in 


register 15 
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Code generated for APLXEND with various parameter options is 
described in Figure 59. 


When ENTRY is specified: 
APLXEND ENTRY CODE=CDPRM 


+ L R1i¢,STKPREV 

+ L R1i4¢,STKPOP-STKENTRYCR14) 

+ L R1i5,CDPRM IF CODE= IS USED 
+ BR R14 


When FINAL is specified: 
APLXEND FINAL 


+STK DSECT 
+STKLEN EQU ¥-STKENTRY 
+SYSECT CSECT 


When SUB is specified: 
APLXEND SUB CODE=CDPRM 


4 L R1i¢,SUB14SV 
+ L R1i5,CDPRM IF CODE= IS USED 
+ BR R14 


Figure 59. APLXEND: Generated Code 


The APLXPROC macro instruction, which defines a stack protocol 
entry point, is written as follows: 


APLXPROC |CLENTRY|SUB] 


[,PASSB=(15,prgnm) ] 
{,DATAREG( drgnm) J[,CODEREGCecrgnm) ] 





label 


is an optional statement label. 


ENTRY 
causes assembly of code for a stack protocol antry point in 
a module. 


SUB 
ig used for internal subroutine linkage for the assembler. 


If neither ENTRY nor SUB is specified, the function 
performed is that of ENTRY. 


PASSBK=(15,prgqnm) 


specifies a list of registers to be returned unchanged. The 
default list is 15,0. 


DATAREG=(drgnm) 
speci Ties a register to contain data. The default register 
1S 

CODEREG=(Cergnm) 
specifies a list of base registers. In assembler, there 


may be no more than five of these. 
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Code generated for APLENTRY with various parameter options is 
described in Figure 60. 





When ENTRY is specified (first entry point): 


LABEL APLXPROC ENTRY 

+ CSECT 0D 

+ USING *,15 

“ B aFROLOG 

+ DC ALIClength of id) 

+ DC AL1¢16*DRGNM+PRGNM) 

+ DC AL2Clength of stack needed) 

7 DC CL&8°LABEL’ 

7 DC CL&°MM/DD/YY’ 

oh DROP 15 

+aPROLOG DS OH LAST STMT IF CODEREG=0 
“ BALR CRGNIMC1),0 

+APSTART DS OH 

+ USING AaPSTART,CRGNM 

+ LA CRGNMCON),4095¢€,CRGNMCN-1)) IF CODEREG= 
+ USING IPSTART?#4095%(N~-1),CRGNMCN) WAS USED 
When ENTRY is specified (subsequent entry point): ) 
LABEL APLXPROC SUB 

+ DS OH 

+ USING LABEL,a15 

+ B XPRINDX XPRINDX HAS UNIQUE SUFFIX 
+ DC ALIClength of id) 

+ DC AL1¢16*DRGNM+PRGNM) 

+ BDC AL2Clength of stack needed) 

+ DC CL8°LABEL' 

+ DROP 15 

+XPRINDX DS OH LAST STMT IF CODEREG=0 
+ LR CRGNMC1),15 

+ LA LABEL-OPSTART 

+ SR CRGNNC1),15 

+ LA CRGNMCON) ,4095¢,CRGNMCN-1)) 





When SUB is specified: 
APLXFROC SUB 


+SUB14SV SETC unique save-area name 
+STK DSECT 

+SUB14SV DS 

+SYSECT CSECT 

+<LABEL> ST R14,5UB14SV 


Figure 60. APLXPROC: Generated Code 
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DIAGNOSING ERRORS 


ERROR MESSAGE TO MODULE CROSS-REFERENCE INFORMATION 


Figure 62 lists the message number, issuing module, and text for 
messages produced by the executor for error conditions arising 
Within the processer itself. Under CICS/VS, CMS, and TSO, the 
error messages are displayed at the user's terminal. Under VSPC 
the errors are printed on the VSPC online log, and the following 
message is displayed at the terminal: 


date time SYSTEM ERROR n 
Here n corresponds to the online log error message number. 


The broad source of the error message can be determined from the 
message identifier, according to the list in Figure 61. 


Message Identifiers Source of Messages 
APLAOOO~APLA0N49 Auxiliary processors 
APLCO50~-APLC073 TSO workspace conversion messages 
APLK3SOQO-APLK349 CICS/VS executor 
APLL350-APLL399 CICS/VS service program 
APLM400~-APLM499 Session manager 
APLPSOO-APLP549 VSPC executor 

APLS600-APLS699 CMS executor 

APLW700-APLW749 GRAPHPAK workspace 
APLW750-APLW799 TSO Service program workspace 
APLY800~-APLY949 TSO executor 


Figure 61. Message Identifiers and Sources 
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Pies eee SESS ELE SESES ESSE SESE SS ESSE ESS ESSE S ESS SLES SS SSS SSE SS SS ESS 


x AUXILIARY PROCESSOR MESSAGES x 
PPS OSSESE SES EL ESS ETT e TT ST TTS S SEES SESE S ESS SEES SES ESS ES SS 


Message Issued 
ID by Text 
APLAQOQOE APLXAC INVALID SIGNON PARAMETER LIST —- APxxx. 
APLA001S APLXAC INSUFFICIENT STORAGE FOR SIGNON - APxxx. 
APLXAK 
APLAO0O2S APLXAC UNRECOVERABLE ERROR FROM SSM. TERMINATION OF 
APLXAK APxxx. RC=xx RS=yy 
APLAOQO3SE APLXAC ERROR IN TRANSLATE SERVICES - APxx x. 
APLAODGW APLXAC INVOCATION PARAMETERS EXCEEDED MAXIMUM - APxxx. 
APLA0G5S APLXAC ABEND. SHARED VARIABLE SET RETRACTED FOR APxx x. 
APLXAK 
APLAOQO6E APLYU1ODO AUXILIARY PROCESSOR APxxx ALREADY SIGNED ON. 
APLYUILOIL 
APLYULII 
APL100 
APL101 
APL110 
APL1i1i1 
APL123 
APLXAK 
APLAO0O7I APLYU100 APLxxx ABENDED AT xxxxxx, RETURN CODE IS xx, 
APLYU1D1 REASON CODE IS yy. 
APLYU111 
APL100 
APLiIO1L 
APL110 
APLiI11 
APL123 
APLAO2ZOE APL100KO ICP GET FAILED: TCAICTR=X* *. 
APLAOZ1E APL100KO TRANSACTION NOT FOUND 
APLAODZZE APLIO0KO INVALID TRANSACTION NAME 
APLAO023E APL100KO UNSUPPORTED TERMINAL TYPE 
APLA024E APL100KO AP100 TWA SIZE IS TOO MSALL TO RUN TRANSACTION 
APLAOQ3SOI APLiOO CP/CMS COMMAND xxxxxxxx ABENDED, CODE=xxx x. 
APLA040S APLYUERR ERROR OCCURRED IN AN AUXILIARY PROCESSOR. 
APLAOGIE APLYUIOI1 APLOL STACK OVERFLOW, APL STACK PURGED. 
APLAQ4Z2E APLYUI1O1 AP101 STACK CLEARED DUE TO INVALID DATA. 
APLA043S APLYULILI1 APxxx IS BEING MISUSED, AP RC = xxxxxx. 
APLYU2Z10 
APLA0NG4E APLYU21L0 UNUSUAL END TO FORMAT, xxxxxx RECORDS FORMATTED, 
DCB ABEND xxxxxx 
Figure 62 (Part 1 of 13). Message-to-Module Cross-Reference 
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Message 
ID 


APLA065S 


Issued 
by 


APLYU100 





Text 


TSO COMMAND xxxxxxxx ABEND SYSTEM CODE xxx, USER 
CODE xxx ISSUED BY CICS/VS SERVICE PROGRAM 


2.2. 2,.0.0,%,.0,.¢.2.2,.0,0,2,2,0.0,.0,.2.0,.0.2.0,.0,2,2,.0,.0.0,.0,.0.0,.0,.0,.0.0,.0,0,5,0,5,5,2,2,5,2,0,0,0,.0,.0,.0,0,0,5,0.0,0,0,55) 


TSO WORKSPACE CONVERSION MESSAGES x 


2. 2,2,.2.2.2,.0.2,2.2,20.0,.0,9.2.0.2.2,5,2,2,0.0,.2,5.2,.0,.5,.0,.0,.0.0,.0,0,.0,0,5,5,2,5,2,2,2,5,20,25,0,0,.0, 0,0, 0.0.0, 0,0, 5,05: 


Message 
ID 


APLCOSOE 
APLCOSII 
APLCOQ52E 
APLCO53E 
APLCO54E 
APLCO55E 
APLCOS6I 
APLCOS7E 
APLCOS8E 
APLCOS59I 
APLCO60E 
APLCO61I 
APLC062E 
APLCO6SE 
APLCO64I1 
APLCO65I 
APLCO66I1 
APLCO67I1 
APLCO68E 
APLCO69I 


APLCO70I 
APLCO71W 


APLCO72E 
APLCO73E 


Figure 62 


Issued 
by 


APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNYV 
APLYUCNYV 


APLYUCNV - 


APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNV 
APLYUCNYV 
APLYUCNV 
APLYUCNV 
APLYUCNV 


APLYUCNV 
APLYUCNV 


APLYUCNV 
APLYUCNV 


(Part 2 of 13). 


Text 

OPEN FAILED FOR FILE APLIN 

OPEN FAILED FOR FILE SYSPRINT 

INPUT PARAMETER INVALID 

NO DDNAMES SUITABLE FOR OUTPUT WORKSPACE ALLOCATION 
WORKSPACE HEADER SPECIFIES NO DATA RECORDS 

HEADER SPECIFIES WORKSPACE SIZE OF ZERO 

WILL TRY ALLOCATION ON NEXT VOLUME 

CATALOG ERROR xxxx 

SCRATCH DATA SET FAILED xxxx 

DATA SET SCRATCHED 

OPEN FAILED FOR WORKSPACE 

WORKSPACE PROTECTION NOT IMPLEMENTED IN APLYUCNV 
PREMATURE END OF DATA ON WORKSPACE INPUT FILE APLIN 
UNCATALOG DATA SET FAILED xxxx 

DATA SET UNCATALOGED 

END OF WORKSPACE CONVERSION PROGRAM 

SKIP TO NEXT WORKSPACE 

WORKSPACE DATA SET NAME -~ xxxx ON VOLUME xxxx 

XXXX VOLUME DATA SET ALLOCATION FAILED 


WORKSPACE CONVERTED. 
BLOCKS. 


WORKSPACE NAME IS xxxx 


OPEN FAILED FOR SYSIN. 
ALLOCATED. 


SYNTAX ERROR. CARD IGNORED -~ xxxx 
MEMORY SHORTAGE. CARD IGNORED -~- xxxx 


xxxx INPUT RECORDS. xxxx OUTPUT 


ONLY PUBLIC LIBRARIES WILL BE 
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HH HEHE DEH HE ME DE IE IK We OE DE DE HE HE DE DE DE DE HEHE DE HE HE DE IE DE IE HE HE HE HE HE HE OE IE HE HE HE HEE OE KH OE HE EE 


m CICS/VS EXECUTOR MESSAGES % 
DE DE HE HED HE DE HE IE DE 3 Be MK DEE IE DE IE IE DE DEE IE I 36 HE DE DE HE IC DE HE IE DE DE HE I DE DE IE DE 3 DE HE 3 IE IE IE 9 DE IE HE 9 IE EE EE HK 


Hassaga Issued 

ID by Text 

APLK300S APLKASON MAX USERS SIGNED ON 
APLK301S APLKASON INCORRECT SIGNON 

APLK302S APLKASON NUMBER NOT IN SYSTEM 
APLK303S APLKASON NUMBER LOCKED OUT 

APLK304S APLKASON NUMBER IN USER 

APLK305S APLKASON FORCING OFF USER. TRY AGAIN 
APLK306S APLKASON NO SIGNON MESSAGE AVAILABLE 
APLK307S APLKASON SIGNON TERMINATED BY SYSTEM 
APLK308S APLKASON CANNOT INITIALIZE APL 


The following error message will occur: 


4 - APLLIB CLOSE FAILED 
8 - APLLIB OPEN FAILED 
12 - APLDIR OR APLLIB READ FAILED 
APLK3095 APLKASON TERMINAL NOT SUPPORTED BY APL 
APLK310S APLKLIBC NO WS STORAGE AVAILABLE--SESSION TERMINATED 


eto 2.0.8.2. 0.0, 0,0,5.0,8.0,8,0,5,0,5,.0,.0.0.2. 0.8.2. 0.0,.0.0.0.0,.0,5,0,.0,.0,.0,.0,2.0.5.2.5,0,5,5.0,8,0,.0,.0,5,0,2,2,5,) 


CICS/VS SERVICE PROGRAM MESSAGES x 
Peet eit ee eee eee ee eet ett isis eter iste Le se sete sees eet t eee e eS SS 
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Message Issued 

ID by Text 

APLL350S APLKVMSG INSUFFICIENT REAL OR VIRTUAL STORAGE AVAILABLE. 
APLLI5IE APLKVMSG UNABLE TO OPEN APL LIBRARY. 

APLL352E APLKVMSG UNKNOWN CONTROL STATEMENT TYPE. 

APLL353E APLKVMSG INVALID REQUEST. 

APLL354E APLKVMSG INVALID OPERAND. 

APLL355E APLKVMSG DUPLICATE OQPERAND. 

APLL356E APLKVMSG CONFLICTING OPERANDS. 

APLL357E APLKVMSG REQUIRED OPERAND NOT SPECIFIED. 

APLL358E APLKVMSG INPUT APL LIBRARY REQUIRED BUT NOT SPECIFIED. 


Figure 62 (Part 3 of 13). 
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Message 
rp 


APLL3S9E 
APLL360E 
APLL361E 


APLL362E 
APLL363E 
APLL364E 
APLL365E 
APLL366E 
APLL367W 
APLL368E 


APLL369E 
APLL370E 


APLL371E 
APLL372I 


APLL373W 
APLL374E 


APLL375E 
APLL376E 
APLL377I 


APLL378E 
APLL3I79E 
APLL3805 
APLL381E 
APLL3825 
APLL3835$ 


Figure 62 


Issued 
by 


APLKVMSG 
APLKVMSG 
APLKVMSG 


APLKVMSG 
APLKVMSG 
APLKVMSG 
APLKVMSG 
APLKVMSG 
APLKVMSG 
APLKVMSG 


APLKVMSG © 


APLKVMSG 


APLKVMSG 
APLKVMSG 


APLKVMSG 


APLKVMSG 


APLKVMSG 


APLKVMSG 


APLKVMSG 


APLKVMSG 


APLKVMSG 
APLKVMSG 
APLKVMSG 
APLKVMSG 
APLKVMSG 


(Part 4 of 13). 


Text 
CUTPUT APL LIBRARY REQUIRED BUT NOT SPECIFIED. 
UNABLE TO OPEN 'DDNAME*. 


I/GQ ERROR IN 'DDNAME’; RETURN CODE=xx, REASON 
CODE=xxx. 


OUTPUT APL LIBRARY 
USER "USERNAM’ 
USER "USERNUM’ 
LIBRARY "LIBNUM® 
LIBRARY "LIBNUM’ 
USER "USERNUM’ 


UNABLE TO IMPCRT FILE 
K-BYTES. 


WORKSPACE | FILE "WORKSPACENAME?® | 
NOT FOUND IN LIBRARY 'USERNUM'. 


INVALID PASSWORD FOR FILE } WORK>DPACE 
| "WORKSPACENAME® IN LIBRARY *LIBNUM'. 


FILE NOT TRANSFERRED; INTERACTIVE PROGRAM IN USE. 


FILE | WORKSPACE ‘FILENAME’ | "WORKSPACENAME’® 
REPLACED IN LIBRARY ‘'LIBHUM’. 


FILE | WORKSPACE "FILENAME!' | "WORKSFACENAME’ 
EXISTS, TEMP NAME °TEMPNAME’ ASSIGNED FOR 
LIBRARY 'LIBNUM’. 

FILE | WORKSPACE 
EXISTS IN LIBRARY 
EXHAUSTED. 


FILE | WORKSPACE "FILENAME’ | *WORKSPACENAME® 
ALREADY EXISTS IN LIBRARY ‘LIBNUM’. 


FILE TYPE OF ‘FILENAME | '"HORKSPACENAME’ 
WITH TYPE IN LIBRARY *LIBNUM’. 


COPIED FILE | WORKSPACE ‘FILENAME’ | 
TO LIBRARY *LIBNUM’. 


INPUT DATA SET FOR IMPORT HAS INVALID FORMAT. 
CUTPUT DATA SET FOR EXPORT HAS INVALID FORMAT. 
AUTH CONTROL STATEMENT ERROR. 

AUTHORIZATION MISSING OR INVALID FOR THIS REQUEST. 
AUTHORIZATION MISSING FOR LIBRARY FORMAT. 


MODULE IKQVDTPE COULD NOT BE LOADED. PROGRAM 
TERMINATED. 


"DDNAME’ FULL. 

NOT FOUND IN INPUT APL LIBRARY. 
NOT FOUND IN QUTPUT APL LIBRARY. 
NOT AVAILABLE. 

FULL. 

REMOVED (NOT COPIED). 


"FILENAME. SIZE IS xxxxxxx»x 


"FILENAME’ 


"FILENAME® 


"FILENAME’ | "WORKSPACENAME’ 
"LIBNUM’', TEMP NAME ASSIGNMENTS 


CONFLICTS 


"WORKSPACENAME’ 


Message-to-Module Cross-Reference 
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tiassage Issued 

ID by Text 

APLL384I APLKVMSG RETURN CODE = xxxx. 

APLL385I APLKVMSG END OF SERVICE PROGRAM JOB STEP. 
APLL386I APLKVMSG HIGHEST RETURN CODE ENCOUNTERED = xxxx. 
APLL387E APLKVMSG ERROR IN LIBRARY SERVICE PROGRAM. 





2 22.2. 0.8,. 0.0, 0,0,0,0,0,0,0.0,0, 0.0.0, 0,0, 0,8,0, 0,0, 0,0,0.0,0,0,0,0, 0,00, 0, 0,0, 0,0, 0.0.0,5,0,0.0. tt tatatatate 


x VS APL SESSION MANAGER MESSAGES % 
DHE HE HE SHEE AE DE 3 OE 8 EE DE 9 DE 3 DEE IE IE IE DE 3 3 DE HC IE IE DE DE DE DE 36 HC DE HE HE IE IE 3 36 3E DE IE IE IE DE IE 3 9 EE EE 


Passase Issued 
ID by Text 
APLMS401E APLACXCM COMMAND REJECTED BY EXIT 
APLM402E APLACOPY COPY DESTINATION NOT AUTHORIZED 
APLM403E APLACOPY COPY DESTINATION NOT FREE 
APLMGQGE APLACOPY COPY DESTINATION NOT IN SERVICE 
APLMS405E APLACOPY COPY DESTINATION NOT SUPPORTED 
APLM406E APLACOPY COPY DESTINATION NOT KNOWN 
APLM407W APLACOPY COPY LIMIT EXCEEDED 
APLMGO08W APLACOPY , COPY QUEUE FULL, REQUEST ENDED 
APLM&409E APLACOPY COPY CODE UNKNOWN 
APLM410E APLACXCM DUPLICATE OR CONFLICTING OPERANDS 
APLM411I APLACXCM END OF DATA REACHED 

APLALINE 
APLM412A APLACPRO ENTER PASSWORD 
APLMGi3I APLACPRO IN-STORAGE LOG FILE IN USE 

; APLACXCM 

APLALINE 

APLACOPY 
APLM414E APLACXCM INVALID COMMAND NAME 
APLM4Gi5E APLACXCM INVALID, MISSING, OR EXTRA OPERANDSa 

APLALINE 

APLACCPY 
APLM416E APLACOPY I70 ERROR ON COPY DESTINATION 
APLM417E APLACPRO INVALID PASSWORD. ENTER PASSWORD 
APLM418E APLACPRO LINE EXCEEDS DISPLAY SIZE 
APLM419E APLACPRO LINE NUMBERS EXHAUSTED 
APLM420E APLALINE LINE NOT IN LOG FILE 

APLACOPY 
APLM421E APLACPRO LOG FILE FULL 
Figure 62 (Part 5 of 13). Message-to-Module Cross-Reference 





Licensed Material~—-Property of IBM 
442 VS APL Program Logic 





Message Issued 

‘oe ID by Text 
APLM422E APLACOPY NO COPY ID SPECIFIED 
APLM423E APLACXCM NOT ENOUGH FREESPACE 
APLM424E APLACXCM PROFILE FILE NOT FOUND 
APLM425E APLACXCM DISPLAY CODE UNKNOWN 
APLM426E APLACQRY PROFILE FILE 170 ERROR 
APLM427E APLACQRY PROFILE FILE ATTRIBUTES INVALID 

APLACXCM 
APLM428E APLACQRY PROFILE FILE NOT AVAILABLE 
APLACXCM 

APLM429E APLACOPY COPY ID ALREADY EXISTS 
APLM430E APLACOPY NOT WITH COPY ON 

‘eS APLM431W APLACPRO LOG SIZE REDUCED 
APLM432W APLACXCM LOG SIZE NOT AVAILABLE 
APLM433W APLACPRO SESSION MANAGER RESTARTING DUE TO 

ERROR hhimm:ss' mm/dd/yy 

APLM434W APLACPRO BEGGINING OF SESSION hh:mm‘ss~= mm/dd/yy 
APLM435S APLACXCM PROFILE RECORD ATTRIBUTES INVALID 
APLM436S APLACPRY INTERNAL PROFILE PROCESSING ERROR 

‘oe £.2.2,2,5,5,5.2,.5,.5,5,0,5,5,5, 5,5, 0, 0.0.5 tb Fa tetaketaketetakekatatatatatatatatata tate tetetetetetetetatetetatatetata; 
x VSPC EXECUTOR MESSAGES x 
o.5.2.5.2.5.5,5,2,.5.5.0.0,.20,5,5,5,20,0,. 0.20.2. 6.5.0.0. 5,5, 5. 5.0.0, 5.5. 408. co kate katatatatetatatatetatatatetetetetetatete: 
Message Issued 
ID by Text 
APLP500I APLPCOEX PGM CHECK LOOP IN APL PROCESSOR. 
APLP501IY APLPCOEX PGM CHECK IN EXECUTOR. 
APLP502I. APLPCOEX EXECUTOR SAVE AREA BLOCK FULL. 

‘oe APLP503I APLPCOEX INVALID ASSIST CHECK CONDITION CODE. 
APLP504I APLPSERR UNEXPECTED SYSTEM ERROR CODE RECEIVED. 

RET: xxx, REAS: yyy,» SYS: wauw, APL: z2zz22. 

APLP505I APLPCOEX NO SYSTEM INDICATOR ON ASYNCH ENTRY. 
APLP506I APLPCOEX MULTIPLE UNEXPECTED ERROR CODES FROM SYSTEM. 
APLP507I APLPCOEX APL ASSIST INCOMPATIBLE WITH APL PROCESSOR. 
APLP5081 APLPCOEX INSUFFICIENT STORAGE FOR MINIMUM WS. 
Figura 62 (Part 6 of 13). Massage-to-Module Cross-Reference 
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Message 
ID 


APLP5091 
APLP5101 


Issued 
by 


APLPCOEX 
APLPCOEX 





Text 
PSW: xxxxxXXK KXKKXKMXK » 


UNEXPECTED ERROR IN APL INTERNAL AP. 


REGS: 


ott. 5.0.0.0, 0,0,0,0,0,0,0,.0,0, 0.0.8.8 tatatatatatatatatatatatatatatakatatatatstatatetatetatatstetstatatatetatate: 


CMS EXECUTOR MESSAGES * 


HE DE DE HE DE EE HE DE IE DE DE DE HE DE DE IE DE DE DE DE DE DE DE DE OE DE DE DE DE DE DE DE DE DE JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 34 DE 2 


Message 
ID 


APLS600TI 
APLS6015S 


APLS602I 
APLS6035S 
APLS604W 
APLS605W 
APLS606W 


APLS607E 
APLS608I1 
APLS6C09I 
APLS6105S 
APLS61LIW 
APLS612E 
APLS613E 
APLS614E 
APLS615E 
APLS620E 
APLS6305 
APLS6315 
APLS632D 


APLS633I 
APLS634I1 


Figure 62 


Issued 
by 


APLSCINI 
APLSCINI 


APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 


APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCINI 
APLSCSVI 
APLSCERR 
APLSCERR 
APLSCERR 


APLSCERR 


APLSCERR ~ 
(Part 7 of 13). 


Text 
ERROR X INITIALIZING APL ASSIST. 


ERROR X FROM SSM INITIALIZATION. 
TERMINATED. 


APL ASSIST INCOMPATIBLE WITH APL PROCESSOR. 
ASSIST NOT USED. 


ERROR WHILE GETTING SPACE FOR GLOBAL TABLE. 
OP=X,RC=Y. 


LIBRARY TABLE FILE NOT FOUND. 
PROJECT LIBS. 


ERROR X ON FSREAD OF LIB TABLE FILE. NO 
PUBLIC/PROJECT LIBS. 


SYNTAX ERROR X ON CARD Y OF LIB TABLE FILE. 
IGNORED. 


AP NAME ‘xxxxxx? 


ASSIST NOT IN USE. 
SESSION 


NO PUBLIC OR 


CARD 


INVALID OR TEXT FILE NOT FOUND. 
ERROR X IN DMSFRET DURING YYOFF,RC=Y. 
ERROR X FROM DMSFRET RETURNING STORAGE. 
INSUFFICIENT STORAGE TO INITIALIZE 
CANNOT LOAD AP~-A-DISK IS NOT READ/WRITE 
UNKNOWN OPTION ~ xxxxxxxx. 

SYNTAX ERROR AT xxxxxxxx DURING xxxx. 
LENGTH ERROR AT xxxxxxxx DURING xxxx. 
INVALID VALUE - xxxxxxxx DURING xxxx. 
PROCESSOR xxxx ABENDED WITH CODE(Cxxx x). 
PGM INTERRUPT LOOP IN APL PROCESSOR. 

PGM INTERRUPT IN EXECUTOR. 


TYPE *DUMP O-END’® FOR DUMP, OR ‘BEGIN’ TO 
CONTINUE 


PSW=xxxxXxXXXX XXXXXKXX 
RO-7= xxx 


Message-to-Module Cross-Reference 
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Message Issued 

ID by Text 

APLS6351 APLSCERR R8-15= xxx 

APLS636S APLSCERR SAVE AREA OVERFLOW. CALLEE=xxxxxx, CALLER=yyyyyy. 

APLS637S APLSCERR SYSTEM ERROR IN APL PROCESSOR. 

APLS638I APLSCERR TYPE "BEGIN xxxxxxx"’ TO TAKE WORKSPACE DUMP ON 
PRINTER. 

APLS639A APLSCERR TYPE *BEGIN’® TO SKIP WORKSPACE DUMP. 

APLS640I APLSCERR WORKSPACE AND PERTERM DUMP NUMBER X 

APLS641I APLSCERR THIS IS DUMP OF ACTIVE WORKSPACE AREA 

APLS642I APLSCERR THIS IS A DUMP OF THE PERTERM HEADER 

APLS643W APLSCERR PROGRAM INTERRUPT IN SSM OR AUXILIARY PROCESSOR 

APLS644E APLSCERR APL HAS ABENDED. 

APLS650I APLSCLIB UNKNOWN RETURN CODE FROM CMS, OP=x, RC=y. 

APLS651I APLSCLIB CMS FILE ERROR, OP=x, RC=y. 

APLS652I APLSCLIB LIBRARY xxxx UNAVAILABLE, RC=y. 

APLS653I APLSCLIB ERROR x FROM FST LOOKUP DURING YYLIB (RC=x). 

APLS654I APLSCLIB ERROR x FROM DMSFRET FOR )LIB NAME TABLE (RC=x). 

APLS655I APLSCLIB INTERNAL ERROR x LOADING WS FILE (OP=x). 

APLS656I APLSCLIB FILE *x APLTMPWS*® ALREADY EXISTS. WS NOT SAVED. 

APLS660I APLSCOPY ERROR DURING COPY, OP=x, RC=y. 

APLS670E APLSCSSI APL MODULE (xxxxxxxx) NOT FOUND 

APLS6/71E APLSCSSI DIAGNOSE 64 ERROR CCODE = xxx) WHILE LOADING APL 
SEGMENT - yyyy 

APLS672E APLSCSSI APL CANNOT INITIALIZE - GLOBAL TABLE POINTER IN USE 


ft .$.2,%.0,2.0.5,0.0.0,6,0,0,%,.0,2,5,0,5,0,0,5,0,5,0,5,5,5,0,2,.0,5, 2,0, 0.0.0.tat Sata tatatatatatatatetetetatatatatetate: 


x WORKSPACE MESSAGES % 
ED 3 ED DE EE SE EE EE IE 3 3 DE BE BE OE DE DE DE EE DE OE EOE UE OE DE IE DE OE DE DDE DDE DE 3 38 EE IEE DE OE DD OE DE DE 3 DE OE OE OE 


Message Issued 

ID by Text 

APLW7O01LE GRAPHPAK "WAND” LENGTH ERROR 

APLW702E GRAPHPAK RIGHT ARGUMENT OF "AND" MUST BE A HOMOGENEOUS 
GROUP 

APLW703E GRAPHPAK IF RT ARG OF “AND” IS A "VS" GRP, LEFT CANNOT BE A 
MATRIX 

APLW704E GRAPHPAK 0 IS AN INVALID ATTRIBUTE PARAMETER 

APLW705E GRAPHPAK ATTRIBUTE LENGTH ERROR 

Figure 62 (Part 8 of 13). Message-to-Module Cross-Reference 
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Message 
ID 


APLW706E 


APLW707E 


APLW708W 
APLW709E 
APLW71LOE 
APLW711E 
APLW712E 
APLW713E 
APLW714E 
APLW715E 


APLW721E 
APLW722E 
APLW723W 
APLW724E 
APLW725E 
APLW7501 
APLW751E 
APLW752E 
APLW753E 
APLU754E 
APLW755E 
APLW756E 
APLW757E 
APLW758E 
APLW759I 
APLW760E 
APLW761W 
APLW762E 
APLW7631 
APLW764I 


APLW765] 


Figure 62 


Issued 
by 


GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 


GRAPHPAK 
GRAPHPAK 
GRAPHPAK 
GRAPHPAK 


‘GRAPHPAK 


SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 
SERVICE 


SERVICE 


SERVICE 
SERVICE 


SERVICE 


(Part 9 rf 13). 





Text 

NOT ABLE TO PRODUCE FUNCTION "FITFUN" 

CURSOR OUTSIDE OF WINDOW 

SYMBOL SETS DO NOT EXIST ON AUXILIARY STORAGE 
DEVICE NOT SUPPORTED 

ARGUMENTS OF "WITH" MUST BE OF OPPOSITE TYPE 

LEFT ARGUMENT OF "USE" MUST HAVE RANK LESS THAN 3 
LEFT ARGUMENT OF "USING" MUST BE A MATRIX 

"VS" ERROR | 

CANNOT DO LOG PLOT OF NON-POSITIVE NUMBERS 


"B” ON LEFT ONLY POSSIBLE IN "STEP WITH 3 COLUMNS 
ON RIGHT 


GDDM AP RETURN CODE ERROR 

GDDM RETURN CODE ERROR: 

GDDM RETURN CODE WARNING 

SESSION MANAGER AP RETURN CODE ERROR 
GDDM AP NOT SHARING 

"CONTROL STATEMENT® 

UNABLE TO OPEN SYSIN 

UNKNOWN CONTROL STATEMENT TYPE 
INVALID GPERAND ‘OPERAND' 
REQUIRED OPERAND NOT SPECIFIED 
UNABLE TO OPEN LIBRARY ‘LIBRARY’ 

FILE ALREADY EXISTS 

FILE DOES NOT EXIST. 

DATASET "DDNAME* HAS INVALID FORMAT 
LIBRARY ‘LIBRARY® [IS FULL 

UNABLE TO OPEN DDNAME *DDNAME’® 

FILE IS EMPTY 

I7G ERROR IN DDNAME; RETURN CODE ‘RC’ 
RECORD NUMBER *RECNO’; SEGMENT NUMBER 


FILE *"FILENAME’ IMPORTED | EXPORTED | 
LIBRARY "LIB? 


END OF SERVICE PROGRAM 


"STMT! 


*"SEGNO’ 
REPLACED 


Message-to-Module Cross-Reference 
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een CLL LLL LCL LLL LTT SESS SSA 


TSO EXECUTOR MESSAGES 
309909999 9900030000000000090000 58008088 IIIIGGG I IIIIIIIGIIE 


Message Issued 
ID by Text 
APLY800I APLYUINI ERROR 1 INITIALIZING APL ASSIST. ASSIST NOT IN USE. 
APLY801S APLYUINI ERROR CODE xx FROM SSM INITIALIZATON. SESSION 
TERMINATED. 
APLY802I APLYUINI APL ASSIST INCOMPATIBLE WITH APL PROCESSOR. 
ASSIST NOT USED. 
APLY803S APLYUINI YOU ARE NOT AUTHORIZED TO USE VSAPL FOR TSO. 
APLY804I APLYUINI USING THE APL CHARACTER SET, ENTER OVERBAR - I.E. 
SHIFT~6 
APLY805I APLYUINI NULL LINE, UNRECOGNIZED, OR TOO MANY CHARACTERS ENTERED 
APLY806E APLYUINI UNRECOGNIZED TERMINAL CODE - x. 
APLY807S APLYUINI UNRECOGNIED OPERAND - x. 
APLY808S APLYUINI AMBIGUOUS OPERAND - x. 
APLY809S APLYUINI REDUNDANT OPERAND —- x. 
APLY810S APLYUINI INVALID DSNAME - x. 
APLY811S APLYUINI INVALID PASSWORD - x. 
APLY812S APLYUINI ALLOCATION ERROR - RC=rc, DARC=darc, CTRC=ctre - x. 
APLY813S APLYUINI CONCATENATION FAILURE ~ RC=rc, DARC=darc - x. 
APLY814S APLYUINI OPEN FAILURE - x. 
APLY815S APLYUINI INVALID AUxILIARY PROCESSOR NAME -~ X. 
APLY816S APLYUINI AUxILIARY PROCESSOR NOT FOUND - X. 
APLY817S APLYUINI INVALID SIZE OPERAND - x. 
APLY818W APLYUINI NO AUxILIARY PROCESSORS LOADED. VALUE IGNORED — X. 
APLY819W APLYUINI LESS THAN MINIMUM SHRSIZE. VALUE IGNORED - x. 
APLY820W APLYUINI LESS THAN MINIMUM WSSIZE. VALUE IGNORED - x. 
APLY821W APLYUINI LESS THAN MINIMUM AISIZE. VALUE IGNORED - x. 
APLY822S APLYUINI VIRTUAL STQRAGE ALLOCATION ERROR. 
APLY824W APLYUINI INVALID DEBUG OPTION - IGNORED. 
APLY825W APLYUINI INVALID INPUT OPTION INVALID, ALL ENTRIES 
MUST BE IN QUOTES. 
APLY826W APLYUINI INVALID PROFILE NAME - IGNORED. 
APLY827W APLYUINI CONTINUE WS EXISTS BUT WILL NOT BE LOADED 
Figure 62 (Part 10 of 13). Message-to-Module Cross-Reference 
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Message Issued 

ID by Text 

APLY&828W APLYUINI INVALID SMAPL OPTION ~- IGNORED. 

APLY829W APLYUINI INPUT OPTION INTERNAL ERROR - SINK GETMAIN. 

APLY830W APLYUINI artiol ENCOUNTERED ERROR TRYING TO STACK INPUT 
DATA. 

APLY&831W APLYUINI INVALID HILIGHT OPTION. IGNORED. 

APLY&8365 APLYUERR SAVE AREA OVERFLOW. CALLEE=xxxxxx, CALLER=xxxxxx. 

APLY837S APLYUERR SYSTEM ERROR IN APL PROCESSOR. 

APLY&850E APLYULIB AN I70 ERROR HAS OCCURRED WHILE READING CWRITING) 

THE WORK DATA SET. 
APLY851E APLYULIB ERROR DATA — CCHHR eccechhhhrr, CCW cc-aaaaaa-ffff- 
J nnnn, CSWSTAT/COUNT nnnnnnnn, SENSE xxyy. 

APLY&852I APLYULIB YOU MAY DROP FROM OR SAVE INTO ONLY YOUR OWN 
LIBRARIES 

APLY&853I APLYULIB LIBRARY NOT FOUND 

APLY854I APLYULIB THE LIBRARY IS EMPTY 

APLY855W APLYULIB MORE WORKSPACE DATA SETS EXIST IN THIS LIBRARY 
THAN CAN BE LISTED. 

APLY856E APLYULIB SYSTEM CATALOG SEARCH ERROR - DISPLAY ABORTED. 

APLY&857E- APLYULIB THE WORKSPACE DATA SET DOES NOT CONTAIN A VALID 
APL WORKSPACE 

APLY858E APLYULIB WORKSPACE SAVE DURING ABEND, USE )JCOPY 

APLY859E APLYULIB WORKSPACE DATA SET OPEN FAILURE. 

APLY860I APLYULIB THE WORKSPACE WAS SAVED BY userid 

APLY861I APLYULIB THE WORKSPACE SIZE IS LARGER THAN THE AVAILABLE 
SPACE IN YOUR REGION. 

APLY862E APLYULIB THE SIZE OF THE WORKSPACE TO BE LOADED IS 
SMALLER THAN THE SYSTEM DEFINED MINIMUM. 

APLY863I APLYULIB THE USED PORTION OF THE WORKSPACE TO BE LOADED 
IS TOO LARGE. 

APLY864E APLYULIB THE WORKSPACE DATA SET IS EMPTY. 

APLY865E APLYULIB THE WORKSPACE SIZE IS LARGER THAN THE WORKSPACE 
DATA SET. 

APLY866I APLYULIB YOU ARE NOT AUTHORIZED TO SAVE WORKSPACES IN 
THIS LIBRARY. 

APLY&867I APLYULIB THE WORKSPACE MUST BE NAMED BEFORE IT CAN BE 
SAVED. 

APLY868I APLYULIB A CONTINUE WORKSPACE CAN ONLY BE SAVED VIA THE 
JCONTINUE COMMAND. 

Figure 62 (Part 11 of 13). Message-to-Modula Cross-Reference 
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Message 
ID 
APLY869I 
APLY870I 
APLY8&71E 
APLY8&72E 
APLY8&73E 
APLY8&74I 


APLY8&75W 
APLY&76W 


APLY877E 
APLY878E 


APLY8&79I1 
APLY8&80I 
APLY8&81I 


APLY88&2I 
APLY&83I 


APLY8&8&4I 
APLY885E 
APLY8&86E 
APLY8&87E 
APLY&8&8W 
APLY8&89W 


APLY890E 
APLY8&91E 


APLY8&92E 


Figure 62 


Issued 
by 


APLYULIB 


APLYULIB 


APLYULIB 
APLYULIB 
APLYULIB 
APLYULIB 
APLYULIB 
APLYULIB 


APLYULIB 


APLYULIB. 


APLYULIB 
APLYULIB 
APLYULIB 


APLYULIB 
APLYULIB 


APLYULIB 


APLYULIB 


APLYULIB 


APLYULIB 


APLYULIB 


APLYULIB 


APLYULIB 
APLYULIB 


APLYULIB 


(Part 12 of 13). 


Text 


YOU ARE CHANGING THE NAME OF YOUR WORKSPACE TO 
AN EXISTING NAME. 


IF THIS IS REALLY WHAT YOU WANT TO DO, THEN USE 
IWSID TO CHANGE THE WORKSPACE NAME BEFORE 
ATTEMPTING )SAVE. 

WORK DATA SET ALLOCATION FAILURE. 

WORK DATA SET OPEN FAILURE. 

WORK DATA SET TOO SMALL. 

MAXIMUM LIBRARY NUMBER EXCEEDED. 

MULTIPLE OWNERSHIPS OF THIS LIBRARY EXIST. 


ACCESS IS RESTRICTED TO THE FIRST, AND THAT IS 
CATALOGED UNDER xxxxxx xx. 


A SECONDARY ERROR HAS OCCURRED DURING LIBRARY 
CREATION DELETION PROCESSING. 


CREATION DELETION OF CATALOGED LIBRARY IDENTIFIER 
FAILURE ~- CATLG RC xx, SECONDARY RC yy. 


DATA SET NOT FOUND ~- xxxxxxxx. xxKxXxXX XX 
DATA SET NAMING CONFLICT. 


INVALID WORKSPACE NAME. 
8 CHARACTERS. 


WORKSPACE DATA SET NOT YET EXPIRED. 


THE WORKSPACE DATA SET IS IN USE BY SOMEONE ELSE. 
TRY AGAIN LATER. 


THE WORKSPACE DATA SET RESIDES ON A CURRENTLY 
UNAVAILABLE VOLUME. 


THERE IS INSUFFICIENT DIRECT ACCESS STORAGE SPACE 
TO SAVE THIS WORKSPACE. 


THE WORKSPACE DATA SET IS CATALOGED BUT 
NON-EXISTENT. 


DYNAMIC ALLOCATION FAILURE - FUNCTION CODE fc, 
DAIR RC dr, CATLG RC cr, DYNAM RC dynm. 


POSSIBLE DAMAGE TO YOUR WORKSPACE DATA SET. 
TO SAVE WORKSPACE AGAIN. 


ERROR OCCURRED DURING ATTEMPT TO DROP THE 
CONTINUE WORKSPACE. 


SCRATCH FAILURE ~- CODE XX 


SCRATCH FAILURE - VOLUME volser, 
INCORRECT PASSWORD (CODE 08 - xx). 


UNCATALOG FAILURE - CODE xx. 


WSID MUST CONTAIN NO MORE 


TRY 


Message-to-Module Cross-Reference 
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Message Issued 
ID by Text 
APLY&893E APLYULIB LIBRARY NOT EMPTY. 
APLY&8946E APLYULIB YOUR PREFIX IS NOT DEFINED. DSNAMES REQUIRING ~ 
IT CANNOT BE CONSTRUCTED. 
APLY&895E APLYULIB ISSUE THE PROFILE PREFIX COMMAND PRIOR TO THE 
VSAPL COMMAND. 
APLY&896E APLYULIB YOUR TSO USER IDENTIFICATION IS NOT DEFINED. 
ACCESS AUTHORITY CANNOT BE VERIFIED. 
APLY&897I APLYUERR PASSWORD PROTECTION NOT AVAILABLE IN THE 
SYSTEM 
APLY910S APLYUERR ABEND - SYSTEM CODE - sys, USER CODE - usr. 
APLY911S APLYUERR THE ATTEMPT TO SAVE A CONTINUE WORKSPACE HAS 
FAILED. 
APLY920S APLYUSVI AUXILIARY PROCESSOR APxxxx ABENDED 
APLYS21E APLYUSVI UNRESOLVABLE SHARED VARIABLE INTERLOCK 
APLY922E APLYUSVI COMMAND FAILED BY INSTALLATION EXIT 
APLYS23W APLYUSVI ABEND RECOVERY SET-UP FAILURE CCODE xx) 
APLY924W APLYUSVI DYNAMIC ALLOCATION FAILURE -- NO DDNAMES FREE 
APLY9S25W APLYUSVI TO EXIT VS APL, TYPE )JOFF HOLD 
APLYS26W APLYUSVI UNRECOGNIZED CHARACTER OR TOO MANY CHARACTERS 
ENTERED ' 
Figure 62 (Part 13 of 13). Message-to-Module Cross-Reference - 
UGH CODES 


The translator and interpreter issue codes, called UGH codes, if 
a severe internal error condition occurs. Some unforeseen event 
may have arisen, and the workspace may have been damaged. Error 
recovery routines will clear the workspace, issue the message: 


APLS637S SYSTEM ERROR IN APL PROCESSOR 


and offer the user, in the case of CMS, the option of taking a 
snapshot dump of the workspace before resuming VS APL processing 
with a clear workspace. In the case of TSO, a dump is taken if 
you have allocated a dump data set. In the case of CICS/VS, a 
dump is automatically taken of the data set. In the case of 
VSPC, an automatic dump of the work space and associated control 
blocks is produced on the VSPC snap dump data set. 


Regardless of the user's option, a mini-dump is produced at the 
terminal. See “How to Interpret the Terminal Mini-~Dump.” 
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The system error code for an interpreter or translator error 
contains the hexadecimal UGH code. The UGH codes appear in 


Figure 63. 

Dec Hex Module Reason 

2 0002 APLIESCA Result of dyadic operation is niladic 
or monadic function. 

3 09003 APLIF vA Result of monadic operation 
is dyadic function. 

13 000D APLIEFNM On operation stack, the word following 
a branch statement entered in immediate 
the word following a branch statement 
entered in immediate execution is not 
a stop word. 

50 0032 APLIEPSI Illegal data type bits in argument block. 

104 0068 APLITIDS 1. ITBLDID called with register CT 

Ctext length) is 0. 
4 2. ITSTSRCH called with register PT 
(text address) not addressing 
an alphabetic. 
3. ITSTSRCH computed space-available as 
sufficient, but IESFIND reported 
Workspace full. 

105 0069 APLITFCH Invalid index parameter input to ITFETCH. 

109 006D APLITSUB Invalid input to ITFNLNO; register 5 not 
a valid offset to body of function, 
or register 4 not the name of a function. 

e 123 0078 APLITINP O-U-T indicated after TYI or TYOI, 
but input line is blank. 

124 007C APLITINI In newly loaded workspace, 
WSMFREEA and WSMFREEZ overlap. 

125 007D APLITCME Input length is greater than 255, 
or buffer size is not 1024. 

126 OO7E APLITCME Object to be erased has 
invalid syntax class. 

( 127 007F APLITCME Error return from ITSTSRCH. 

128 0080 APLITINI On winding back the R13 stack following a 
program check, the level which issued 
the APLON macro is not found. 

132 0084 APLITCMI Name of unknown system variable found 
in function call block. 

134 0086 APLITCMI Unknown object found 


Figure 63 (Part 1 of 3). 


on operation stack. 


Hexadecimal UGH Codes 
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Dec 


135 


136 


137 
138 


139 


140 
152 


153 


155 


159 


160 
161 


162 


164 
170 


Figure 63 (Part 2 of 3). 


Hex 


0087 


0088 


0089 
008A 


0088 


908C 
0098 


0099 


0098 


009F | 


Q0A0 
OOA1 


O0A2 


O0A4 
QOAA 


Module 
APLITCMS 
APLITINI 


APLITCMT 
APLITCML 


APLITCMT 


APLITINI 
APLITERR 


APLITEX 
APLITPRL 


APLITCPI 


APLITCMC 
APLIAQFN 


APLIAQFN 


APLITCMG 
APLITFDC 


Reason 


Number of system variable address table 
entries does not equal number of in-use 
entries. 


Unexpected reason code on error return 
from IATABREF. 


Unknown return code from IASVOFF. 


Unknown reason code on error return 
from IASCOPY. 


Control returned following call to ITCMOFF 


Error return from ITSHV. 


Invalid data found on stack when 
cleaning up after user error. 


Operation stack should contain "null, 
level" and it does not. 


Undefined token found while 
preparing a statement for display. 


1. Unknown syntax class found. 


2. Unknown error condition; expect SI 
damage, stack full, Workspace full, 
expect SI damage, stack full, 
workspace full, or symbol table full. 


3. ITCOPIN computed space-available 
aes sufficient, but IESFIND reported 
workspace full. 


4. ITCOPIN knows that function line 
0 is valid, but ITLINEO reported 
invalid syntax. 


5. ITCOPIN and ITOKENIZ disagree 
on number of labels in a function. 


Nonzero return code from YYCORZ. 

1. Error return from IRPRLINE. 

2. IAQCR computed space-available 
as sufficient, but IESFIND reported 
workspace full. 

1. Error return from ITSTSRCH. 


2. IAQFX and ITOKENIZ disagree 
on number of labels in a function. 


Internal name of group not found. 
Function statement should have a label 


but doas not, or it should not 
have a label but does. 


Hexadecimal UGH Codes 
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Dec 
171 


175 
205 


206 
208 
210 


2ii 


212 


213 


214 
216 
225 


226 


230 
231 
232 
240 


251 
270 


Figure 63 (Part 3 of 3). 


Hex 
QOAB 


OOAF 
00CcD 


OOCE 
00D0 
00D2 


00D3 


00D4 


00D5 


00D6 
00D8 
GOEL 


00E2 


00E6 
0 0E7 
O0Es8 
00FO 


OOFB 
Q10E 


Module 


APLITFDC 


APLITCPO 
APLIASHV 


APLIASHV 


APLIASHV 


APLIATRN 


APLIATRN 


APLIATRN 


APLIASHV 


APLIASHV 


APLIASHV 


APLIASHF 


APLIASHF 


APLIASHF 


APLIASHF 


APLIASHF 


APLIASHF 


APLIAGOU 
APLIAROT 


Reason 


Address table entry for function 
is already in use. 


Invalid syntax class found during copy. 


Unexpected reason code on error return 
from YYSREF. 


Unexpected reason code on error return 
from YYSPEC. 


Unexpected reason code on error return 
from YYSRET. 


Error return from ITINPUT on 
quote-quad input. 


Invalid input to IAPLFUN; 
address of embedded VS APL 
function is zero. 


Incorrect internal name found 
in DN word of block by IATIDY. 


Reason code on error return from 
YYSOFF indicates that user is 
not signed on. 


Unexpected reason code on error return 
from YYSOFF. 


Unexpected reason code on error return 
from YYSON. 


Unexpected reason code on error return 
from YYSACC. 


Unexpected reason code on error return 
from YYSQUERY (while executing 
quad-SVC). 


Unexpected reason code on error return 
from YYSOFFER. 


Unexpected shared variable quota 
of 0 on normal return from YYSOFFER. 


Unexpected reason code on error return 
from YYSQUERY (while executing quad-SVO). 


Unexpected reason code on error return 
from YYSQUERY (while executing quad-SVQ). 


Cursor unexpectedly exceeds line width. 


AP vector routine entered during 
matrix rotation. 


Hexadecimal UGH Codes 
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BNORMAL TERMINATI 


ND DUMPS UNDER COMMON SERVICES O PS 


Under certain internal error conditions, VS APL modules will 


intentionally generate abends. 
APL in abend exits, and, 
the abend exit. 
Figure 64. 


Figure 64. 


Issuing 
Module 


APLACPRO 
APLACPRO 
APLACDSL 
APLACXCM 
APLACXCM 


APLACRDA 
APLACRDA 
APLACRSA 
APLACNDP 
APLADMSG 
APLACPRM 
APLACPRM 
APLACPRM 
APLACQRY 


APLXSTAK 
APLXAC 
APL126 


These abends are trapped by VS 


in many cases, a dump is then taken by 
These intentional abends are described in 


Source of Error 


APLACSF 

APLACQUE 

GDDM 

GDDM 

APLACSF 

Also generated if APLACOPY gets a bad 
RC from APLACSF Calso APLALINE) 

GDDM 

APLACSF 

GDDM 

GDDM 

GDDM 

GDDM 

APLACSF 

APLACQUE 

Environment~dependent code for profile 
input and output 

Stack requirement exceeds maximum 
stack available 

Sign off requested before successful 
sign on 

Abend in GDDX 


Abends Intentionally Generated by VS APL 


Licensed Material—Property of IBM 


454 


VS APL Program Logic 





As a result of unexpected return codes or entry into abend 
exits, some components issue a dump of selected areas of 
storage. Figure 65 lists the dump codes given with these dumps, 
the module that caused the dump to be issued, and the areas 


dumped. 


ee seieenemenmmeinel 


Dump 
Code 


CPRO 
CRCP 
FYFL 
KAPS 


SSM and CAPS 


SSMK 


XGDA 
XGDD 
XGDY 
120X 
121X 
A126 


Figure 65. 


Issuing 
Module 


APLACPRO 
APLACRCP 
APLXFYFL 
APLXAK 


APLXAC 


APLXAK 


APLXGCOM 
APLXGCOM 
APLXAGYC 
APL120 
APL1I21 
APL126 


Areas Dumped 


Beginning of BND, DSM, area addressed 
by DSMYGMa 

Beginning of BND, PTH/PTX, first 
stack block, first SMR 

FAB, registers, local stack 

Common control blocks followed by 
BND, 128-byte work area, APC, ECBs, 
SCVs, APLXAK work area 

BND, ANC, PCV, PCV ECB, MAI, error 
block DMP, ECB address list, SCV 
ECBs, APLXAC storage area, 
invocation parameters (Cif any), 
APCs, AP work areas 

Common control blocks followed by 
BND, 128-byte work area, APC, ECBs, 
SCVs, APLXAK work area 

BND, caller's GDM 

GST, GSTX, ANY active GSTPATs 

GTS, caller's GD” 

BND, AP workarea 

BND, AP WORKAREA 

AP work area, BND 


Common Dump Services Dumps and Issuing Modules 


eae Dan ae net eel 


PROGRAM CHECKS AND DUMPS UNDER CICS/VS 


DUMPS 


General information on types of CICS/VS dumps, their content and 
format, and how to inveke them is contained in the CICS/VS 
Problem Determination Guide. 


Two types of dumps are produced when VS APL is running under 


CICS/VS: 


1. CICS/VS Formatted Dumps 


Formatted dumps may be requested by the CICS/VS master 
terminal operator, 
result of program ghecks oer operating system abends. 

the most useful information is in the CICS/VS 


Frequently, 
internal trace table. 


In addition, 


the APL, 


ar may be produced automatically as a 


(See CICS/VS Trace Information.) 


APLL, and APLT transactions each 


maintain an executor stack in the user extension to the 
CICS/VS TCA. Offsets to the stacks vary, but since the 
stacks contain EBCDIC routine IDs, visual identification of 
the stacks is normally straightforward. 


Program checks are a normal occurrence in the VS APL 
interpreter, so the FCT for the APLU transaction should 
nevar specify FDUMPs: ASRA. 
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CICS/VS Storage Dumps 


These may be produced as a result of any abend issued by 
CICS/VS Cincluding ASRA and ASRB which are the secondary ) 
effects of program checks and system abends), or due to 

abends or dump requests issued by APL. 





The APLU transaction attempts to recover from error 
conditions. However, if a VS APL system error is suspected, 
the transaction, before attempting recovery, issues a 
request to produce a storage dump. 


In some cases, the storage dump request produced will have 
the same dump code as the CICS/VS abnormal termination code 
that alerted VS APL to the problem. However, the storage 
areas that are dumped will have been modified. In other 
cases, the storage dump request produced will have a unique 
VS APL dump code. 


All CICS/VS storage dumps produced by APL are taken in 
module APLXDKMP, which dumps a series of common areas in 
addition to the individual storage segments explicitly 
requested for a given dump code. 


The dumps produced by APLXDKMP for a given dump code contain } 
the following: 


a. A “DFHDC TYPE=PARTIAL™ dump including the CSA, the TCA, 
the Trace table, and the particular storage segments 
specified in the request. 


b. A “DFHDC TYPE=PARTIAL™ dump of the GBL, if available. 
c. A "DFHDC TYPE=PARTIAL® dump of the PRM, if available. 


d. A "DFHDC TYPE=PARTIAL™ dump of the user's PTH, PTX, PTK, 
and PRG, if available. 


e. A "DFHDC TYPE=PARTIAL™ dump of the user's SGN, if J 
available. 


f. If DEBUGCI1) is on, a "DFHDC TYPE=PARTIAL™ dump of shared 
storage. 


A “"DFHDC TYPE=PARTIAL™ dump of the VCT, if available. 


A DEBUG(L) is on, a “DFHDC TYPE=PARTIAL™ dump of 
complete user's workspace, if available. 


or 


If DEBUGCL) is not on, a "DFHDC TYPE=PARTIAL™ dump of -, 
the fixed-length beginning of user's workspace (as 
mapped by WSM) if available. 


i. A ®"DFHDC TYPE=PARTIAL™ dump of the transaction storage 
for the transaction in which the dump is being taken. 


3. A "DFHDC TYPE=CICS® dump, which includes many of the 
tables used by CICS such as the PCT, the PPT, and the 


k. And, if DEBUGC1) is on, a "DFHDC TYPE=PARTIAL™ dump of 
program storage. 


Because the DFHDC macro is invoked multiple times, multiple 
dumps are produced for each dump request. All of the dumps 
Produced for a given dump request will have the requesting 
dump code. This, together with the sequence of areas dumped, 
allows the dumps for a given dump request to be identified. 


Following are descriptions of the types of storage dumps and ; 
the information contained in them. ) 
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APLU Dumps With CICS/VS Abnormal Termination Codes 


This type of dump will be produced if a dependent auxiliary 
processor abnormally terminates without having a defined 
abnormal termination exit routine or if that exit routine is 
unable to recover from the failure. 


Transaction storage is dumped, but program storage is not. The 
global table, parm table, and first 4K bytes of the workspace 
are dumped as segment storage. On program checks, offset 283 
C118) in the TCA contains the PSW and all register contents at 
the time tha failure occurred. 


APLU Dumps With a NXIT Dump Code 


This type of dump will be produced for recursive errors. 
Transaction storage is dumped, but program storage is not. The 
global table, parm table, and first 4K bytes of the workspace 
are dumped as segment storage. On program checks, offset 288 
C118) in the TCA contains the PSW and all register contents at 
the time the failure occurred. 


After the dump i8 produced, the user will be forced to sign off 
VS APL. 


APLU Dumps with an EXEC Dump Code 


This type of dump will be produced if a problem occurs in 
handling YY service requests that is suspected to be a VS APL 
executor system error. Transaction storage is dumped, but 
program storage is not. 


The global table, parm table, and first 4K of the workspace are 
dumped as segment storage. For program checks, offset 288 (118) 
in the TCA contains the PSW and all register contents at the 
time the program check occurred. For conditions other than 
program checks, the first word of the PSW contains a VS APL or 
CICS/VS abnormal tarmination code. 


Possible VS APL abnormal termination codes and their meanings 
are: 


FIXS The primary user task stack overflowed. 
DSPS The dispatcher stack overflowed. 


APLT The terminal transaction is not properly defined. 


APLU Dumps with an NTRP Dump Code 


This type of dump will be produced if a VS APL interpreter 
system error is suspected. 


This: dump consists of segment storage only. It contains the 
user |S workspace and perterm (PTH, PTX, PTK, and PRO control 
ocks). 


APLU Dumps With a REGS Dump code 


This 18 a l-page dump containing register information that is 
taken when corresponding dump information is displayed at the 
user's terminal. It generally indicates that either an 
interpreter or executor system error occurred, and it is 
normally accompanied by an EXEC or NTRP dump. 


Note that since this register dump contains all the information 
as it was formatted for display, only the right hand portion of 
the dump should be consulted. 
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APLU Dumps with a Knnn Dump Code 


APLU Dumps with an. nnns Dump Code 


This dump is produced if an auxiliary processor has terminated 
abnormally. It indicates either that a program check has 
occurred within the auxiliary processor or that the host system 
requested the dump while performing a service for the auxiliary 


processor. 


In the dump code, ‘nnn’ is the numeric identifier of 


the auxiliary processor. see dumps) see dumps) 


This dump is produced if an auxiliary processor overflows its 


stack. 


Other Dump Codes 
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In the dump code, ‘nnn' is the numeric identifier of the 
auxiliary processor. 


Figure 66 is a list of the codes that may be received as a 
result of the execution of the DFHDC or DFHPC macros, with the 
names of the modules responsible for the abend and an indication 
of the possible cause. These are in addition to those in 


Figure 65. 
Code Module 
AICA APLKADSP 
AMTX APLKADSP 
APx APLKADSP 
APLS APLKASTB 
APLT APLKTSRV 
ASRA APLKADSP 
DSPS APLKADSP 
ECBL APLKADSP 
EXEC APLKIFIX 
FIXS APLKIFIX 
LIBS APLKLIBG 
ICER APLKEHCP 
IcIO APLKEHCP 
LENE APLKEHCP 
LIBE APLKLIBV 
LIBT APLKAG3SL 
NOTR APLKTSRV 
NTRP APLKMSCA 
NTWA APLKTCTL 
RDIR APLKASON 
RESM APLKASTB 
RGRE APLKAGBL 
SSNA APLKSSUB 
SSTK APLKSSUB 
STAK APLKASON 
APLKEHCP 
APLKTCTL 
UNSP APLKEHCP 
XSGN APLKASON 
YOFF APLKFSCL 
Figure 66. 


VS APL Program Logic 


Possible Cause 


Runaway task timer 

(See CICS/VS Messages and Codes.) 
An auxiliary processor has a nonzero return 
code 

Bootstrap stack overflow 

Nonzero return code from DFHIC 
Program check 

Despatcher stack overflow 

Logic failure in processing ECBs 
Stack overflow 

Primary user task stack overflow 
Library task stack overflow 
Unsuccessful I/0 GET operation 
Unrecoverable I/0 error 
Inadequate TWA Crecord from GET was too 
long) 

Library Error 

Library termination failure 
Terminal out of service 

APL interpreter error (YY-dump) 
TWA inadequate for minimum stack 
Read directory error 

Work area full 

Global request element invalid 
Shared storage damage 

Stack overflow 

Stack overflow 


Unsupported terminal type 
Signon table invalid 
Abend exit for KFOFF processing 


Codes from DFHDC or DFHPC 


J 


CICS/VS TRACE INFORMATION 


The CICS/VS executor issues "user 193" trace calls to CICS/VS 
using CICS/VS macro DFHTR. 


‘oS Figure 67 shows the format of the rightmost tvio words in x'Cl' 
(User 193) CICS/VS trace table entries. These two words.are 
titled "Field A™ and "Field B"™ in CICS/VS trace table listings. 
Following is an expanded description of some of the fields, 
indexed by the hexadecimal value in byte '+C", 


Key type Key number Sreeter Fanetion 
Input 
Key type x'81' [Key number APLXGKT |Synch. 
Input 
GDDM Request Code Not Used APLXGKU {Calling 
APLXGKT |GDDM 
GDDM Error Code GDDM Severity APLXGKT |GDDM 
Code APLXGKU |returned 
‘7 Abend Code x'84" |Abend count APLXGKT |In abend 
exit 
Abend Code 185" /Abend count aPexeKy 
axit 


'GDDX request code Return point APLXGKR |APLXGKR 
j called 
GDDX error code x'87' |GDDX severity APUXGKR APLXGKR 

Code JAPLXGKR | APLXGKR 














APLXGKU |GDDM PGM™ 
being 


released 


Last 3 characters 
in name 





( First 4 characters in name x'88! 








Address of storage block 






APLXGKU |GDDM 
storage 
being 


released 


Ecb Process AP Offset Entry Point APLKADSP| Dispatch 

Offset |number in Parm 

Wait Ecb/List pointer eee DPLKADSP | APLKWAIT 
| type 


Address of next 
storage block 








Parm value xta2' [Return Return Point || APLKADSP- |APLKEXIT 
Interpt PSW address Entry Point APLKADSP|Call 
code Wrote 
Routine EP EP SxtA5* |WSMNST || APLKIFIX YYroute 


ASYNC YYcode |SRCOD | x6" |PTKPCOP,PMSK,MFLG| | APLKIFIX|To Intrp 


exit 
TRQD TRQD TRAD Return Point APLKTREQ|APLKTERM 
TYP1 TYP2 OPT 


Figure 67 (Part 1 of 2). Format of CICS/VS Trace Table 
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re feo es ee [oe [Fe [forester [renction 


TSSRQ TSS address Return Point APLKTSRV| TSRSCHED 
APLKTREQ 
APLKTRQO 


WREQCD |TSS address HetACh irite: Venoeh | TAPLKTCUR CTL Wrte 
TSS: sddrees TSS address = —s—~séid MASAI Read length] | APLKTCTL CTL Read 


Not Used TCT Not used APLKTCTL rahe 
aid Input 


Reg 15 ACBOFLG ACBSTRN | ACBER- Return point APLKVOPS;/Lib Open 
FLG APLKDOPS 


RPLER-|x'Bl* |3-byte RBA APLKVOPS|Lib Get 
RCD APLKDOPS 
Reg 15 |RPLRTNC/ RPLFDB2| RPLER- 3-byte RBA APLKVOPS|Lib Put 
RCD APLKDOPS 
Reg 15 | ACBOFLG| ACBSTRN/ACBER- Return point APLKVOPS/|Lib 
FLG APLKDOPS|Close 
GRELR- |Type Return x'B4* |Perterm (PTH) APLKLIBG|APLKLIBG 
code code code address exit 
SSM Shared |Pershare Index|x'C3' |Return point APLKSSVP|SSM Call 
Request|Var No. 
Return |Reason|x'C4' |Perproc APLKSSVP!|SSM Exit 
Code Code location 
Rcode Read Type flags Return point APLKEMGR| Dest Mor 
length 
Request/FAB address x' FO’ |}Return Point APLKLIBF| LIBF 
aoe uae ae 


FABLRCOD FABSTAT = ORL) FABCRREC || APLKLIBF LIBF ret ret 


Check word xX'FF® |Intrrpt [ILC/CC/ APLKIFIX|Micro 
Code Pom mask Code chk 


Figure 67 (Part 2 of 2). Format of CICS/VS Trace Table 



























Reg 15 |RPLRTNC| RPLFDB2 


















The contents of these fields, for values of '+C', are listed 
below. 


X'*80" in '4+C! 
Creator: APLXGKT. 
Function: Traces asynchronous input when GDDM is being used to 
manage the user's terminal. Asynchronous input is input 
generated by one of the interrupt key at the terminal when APL 
15 not Waiting for input. 
Field values: 

"+8': Key type: 
x'00': ENTER 
x'O1L': PF 
x'O02": Light pen 
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x°03°': Badge reader 
x'O4°: PA 
x'05": CLEAR 
x'06": Any other type of interrupt 
"+D°': Value, if any, associated with key type: 
If key type=x'01", the key number in hex 
If key type=x'03", x'00" Csuccess), or x‘'01'" Cfailure) 
If key type=x'04', the key number in hex 
x°Sl" in '+C’ 
Creator: APLXGKT. 
Function: Traces synchronous input when GDDM is being used to 
manage the user's terminal. Synchronous input 15 input generated 
by one of the interrupt keys at the terminal when APL is waiting 
for input. 
Field values: 
"+8": Key type: 
x'900': ENTER 
x'OL': PF 
x'O02': Light pen 
x'03°: Badge reader 
x'04°: PA 
x'05": CLEAR 
x'06": Any other type of interrupt 
°"+D°: Value, if any, associated with key type: 
If key type=x‘'01i"', the key number in hex 
If key type=x'03", x'00° Csuccess), or x'O01' Cfailure) 
If key type=x'04', the key number in hex 
x°82" in '"+C! 
Creator: APLXGKT or APLXGKU 
Function: One of these modules is about to call GDDM 
Field values: 
"48°: GDDM request code. See the GDDM User's Guide. 
Xx'83" in "+c" 
Creator: APLXGKT or APLXGKU 


Function: Control has just returned from GDDM to one of these 
modules. 


Field values: 


"+8": GDDM error code. If nonzero, this code indentifies an 
error message listed in the GDDM User's Guide. 
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‘+D': GDDM severity code. If the error code is non-zero, the 
severity of the error as returned by GDDM. 


Xx"84" in "t+C! 
Creator: APLXGKT 
Function: Traces abend codes trapped in the APLXGKT abend exit. 
Field values: 
*+#8°: The abend code trapped. 


*+#D"°: The number of abends trapped since APLXGKT last 
started processing a request from APLXGKU. 


x°85" in "tC! 
Creator: APLXGKU 
Function: Traces abend codes trapped in the APLXGKU abend exit. 
Field values: 
"+48": The abend code trapped. 


"+#D*: The number of abends trapped since APLXGKU last 
started processing a request from APLXGKRR. 


X'86" in "+C! 
Creator: APLXGKR 
Function: Traces requests passed to APLXGKR from APLXGKRR. 
Field values: 
"+8': GDDX request code. The same as the GDDM request codes 
identified in the GDDM User's Guide, except that two 
additional codes are possible: 
x'00000001': Initialize a GDDX path. 
x'00000002': Terminate a GDDX path. 
"4D°: Return point in module calling APLXGKR. 
x°87° in "+C° 
Creator: APLXGKR 


Function: Traces error and severity code about to be returned by 
APLXGKR to it's caller. 


Field values: 


"48": GDDX error code. Meaning depends on value in the GDDX 
severity code field. 


'+D"’: GDDX severity code. 
If x'000000"°, request successfully processed. 


If x'QO00001', an error has been detected by APL. The 
GDDX error code indicates what error has been detected, 


as defined in the mapping macro for the GDM request 
block. 


If x’000002', an abend occurred and was trapped. The 
GDDX error code is the ABEND which was trapped. 
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If x'000004', x'000008', or x'00000C", then an error has 
occurred during a part of the processing which would be 
handled by GDDM if GDDM were controlling the session but 
has actually been handled by APL because GDDMCOFF) was 
specified when APL was invoked or because GDDM ts not 
available. The error code identifies an error message 
from the GDDM User’s Guide which explains the error that 
occurred. 

x°8B® in '4+C! 

Creator: APLXGKU 

Function: Traces the names of the GDDM programs as they are 

released, when an abend occurs during GDDM termination 

processing and GDDM has not released all of its loaded programs. 

Field values: 


"+8': The first 4 characters of the 8&8~character program 
name. 


"+D': The last 3 characters of the 8-character program name. 
x°89" in '4+C! 
Creator: APLXGKU 
Function: Traces the addresses of GDDM shared storage blocks as 
they are being freed, when an abend occurs during GDDM 
termination processing and GDDM has not freed all of its shared 
storage. 
Field values: 
X"AO® in '#C". 

"+8': ECB Offset 

"+9": process number, which is equal to the DPD number 


"+A: 2-byte AP offset into PARM 
"+D*: 3-byte EP for the module issuing APLKTRCE macro 


X°ALS in "+C", 
"+8": APLKWAIT Codes: 
x'80': On unless stop AP 
x'40': Single ECB 
x'20": APL ECBCs) only 
x'10": System ECBs 
'+9": 3-byte ECB/ECB List pointer 


"+B': 3-byte Return address for module issuing APLKTRCE 
macro 


X"AZ® in '4C". 
"+8': APLKEXIT 3-byte Parm value 


"+4+D’: 3-byte return address for module issuing APLKTRCE 
macro 
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X"AS® in "HC", 
"+8": CALLEXIT Interrupt Code , 
*+9': 3-byte Address from PSW - 
"+D': S$-byte EP for the module issuing APLKTRCE macro 


X°AS® in '4C", 
'+Qt: 
*+9°:> YYROUTE Code 
"+A": 3-byte EP address for module issuing YYcode 
"+D*': 3-byte WSMNSI 


X"AG® in '+C!°, 
"+8*: ASYNC: 
x'80' DATITN - 
x*'40° QEND 
x'20° CPULM 
x'04" NOOUT 


x02" FOFF 
x01" ATTN 
"+9": YY Code | 
"+A": 2-byte SRCOD - 
'+D': PTKPCOP 
"+E": PMSK 
'+F': PFLG 


X°A7" in '+C* 
Creator: APLXMKSG 
Function: Traces calls to common main storage services under . 
CICS/VS. -, 
Freld values: 

"+8": Return code. 

°+9°: Address of MAI for request. 


"+D': Return point in calling routine. 


X"AA® in *4+C°. 
*+8°: APLKTERM TYP1 Codes: 
x'O1L' Format 
x'02*' Write 
x'O03" Read 
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x'05' Getdata 
x'06" Fidattr 
‘oe *+9°: TYP2 Codes 
"tA": OPT 
"+BY: "O00! 
"+D': 3-byte return address for the module issuing APLKTRCE 
macro 
X"ABY in ‘tC. 
*+8"S TSSRQ: 
x'80' Pending Format 
x'40' Write 
x'20' Read 
: x"10" New Fld Attr 
S x'08" Alarm Pending 
x'04" Set Cursor 
x'02" Restore 
x'O1' Hardcopy 
"+9": 3-byte TSS address 
'+D': 3-byte return address for the module issuing APLKTRCE 
‘] macro 
XTACS im "HCl, 
"+8": Control Write WREQCD Codes: 
x'80" Restore in listen 
x'40' Any form restore 
x'20" APL task waiting 
x'08' Normal schedule 
"+9": 3-byte TSS address 
"+D': 3-byte write Length 





X"ADS in 'tC*%. 
"+8': Control Read 4-byte TSS address 
"+D': AID Codes: 
x'7D" Enter 
x'6D' Clear 
x'6C" PAI 
x"6E" PA2 
x"FI-F10" PF keys 1-10 
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"+D*: 2-byte read length 
X"AES in "+C* 
Creator: APLKTCTL 
Function: Traces asynchronous input when GDDM is not being used 
to manage the user's terminal. Asynchronous input is input 
generated by one of the interrupt keys at the terminal when APL 
is not waiting for input. 
Field values: 
"+D*: TCT AID byte. See the one of the CICS/VS application 
programmer's reference guides. 
X"*BO" in "+#C'. 
"+8": R15 from Library Open 
"+9": ACBOFLG byte 
"+A": ACBSTRN byte 
"+B": ACBERFLG byte 
“+D’: 3-byte return address for the module issuing APLKTRCE 
macro 
X*B1® in "+c", 
"+8"> R15 from Library Gat 
*+9': RPLRTNC byte 
"+A": RPLFDB2 byte 
"+B": RPLERRCD byte 
"¢D': 3-byte RBA 


X*B2" in "+C!. 
"#¢8': R15 from Library Put 
"+9': RPLRTNC byte 
"+A': RPLFDB2 byte 
"+B’: RPLERRCD byte 
"+D': 3-byte RBA 


X*BS* in "4C*, 
"+8": R15 from Library Close 
"+9": ACBOFLG byte 
"+A*': ACBSTRN byte 
"+B*’: ACBERFLG byte 


"+D"': 3-byte return address for the module issuing APLKTRCE 
macro 


X'BS4" in '"+C! 
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Creator: APLKLIBG 
Function: Traces library requests. 
Field values: 
"#8°: GRELRCOD (C2nd byte). 
"+9": APLKG type codes: 
x'00° Load 
x'01" Save 
x'O02°" Drop 
x'03" WDIR 
x'04" WLIB 
x'05* UDIR 
x'06" CFIL 
x'0O7° WFIL 
*°08" UFIL 
x°O09" RLIB 
‘+A’: 2-byte return code. 
"¢D*: Perterm (PTH) address. 


X°CS" im "HC°. 
*+8": SSM Call Request Byte: 
x'00" Cleanup 
x'O1L" ACC 
x'02" CPY 
x'03" OFR 
x°04" QRY 
x*'O5*" REF 
x'06* RET 
x'Q7" SOF 
x'08* SON 
x*O09* SPC 
x*OA* ACHK 
r4gt: Shared variable number 
"+A": 2-byte x'FFFF* minus shared variable number 
"#tD': S$-byte return address for the module itssuing APLKTRCE 
macro 
X°C4G® im f4C". 


"+8"? x'O3!' 
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149%: x*'og* 
"+A": Return Code 


"+B': Reason Code J 


"+D*: 3-byte PERPROC location 


X*DO® in '4C', 
*+8': Destination manager return code 
*+9°: Rlen byte 
"+A": Type byte 
‘+B': Flags byte 


"+D': 3-byte return address for the module issuing APLKTRCE 
Set Timer PTKMFLG: 


x'*80"' MXUSE 
x'GO" IWAIT ZS 
x'20" MINEX 
x'10" INTRP 
x'08' MNDMPF 
x'04" MEXA 
x'02" TIMED 
x'O1"' MTPOP 
"+9°: S-byte exit address Creplaced) 2 


"+D': 3-<byte return address 


X'FO" in HCP. 
"+8": LIBF Call Req. byte: 

x'OL" OPSW 

x'02' OPSR 

x'03" OPDR J 
x'04" CSEQ 

x'05" CDIR 

x'06" DEL 

x07" SHRY 

x'08" SHRN 

x'09" CFSZ 

x'OA' SEQ 

x'0B" SEQR 

x'0C' DIRU 

x'0D" DIRD 
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x"OE* PbICH 
x'OF’ CLOS 
*+9': 3-byte FAB address 
'+D': 3-byte return address for the module issuing APLKTRCE 
macro 
X*°FLS in t+C'. 
"+8': LIBF Return FABLRCOD (2-bytes) 
"+4+A': 2-byte FABSTAT 
"+D': 3-byte FABCRREC 


X*FF*. in '+C°, 
*+8': Microcode check word (4 bytes) 
*+D*: INT code 
"+E*: 2@-byte ILC, CC, PGM mask 


U 


ROGRAM CHECKS AND DUMFS UNDER CMS 


If a severe error of unexpected nature occurs, the VS APL 
processor or CMS routines receive control, perform limited error 
handling, produce messages, and provide dumps either 
automatically or at user option. The following information is 
useful in interpreting these diagnostics. 


DURING INITIALIZATION OF THE VS AFL PROCESSOR 


If a severe error occurs during initialization of VS APL, the 
APLOO8I error message is printed at the terminal, abnormal 
termination occurs, and a dump is automatically taken of all of 
virtual storage. The STAE exit routine produces the dump by 
simulating a DUMP O-END CP command. 


Contents of the Dump 


In the dump, register 1 points to the STAE work area. This area 
contains the abend code, PSW, and general registers at abnormal 
termination. The abend codes issued for VS APL appear in 

Figure 68. 
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Code Meaning 


1 VS APL initialization has discovered an error. 
A previous message has explained the problem. 


2 Same as user code 1, except that because of the 
nature of the error the VS APL processor was 
unable to type an error message. 


1xx An unexpected program check caused the abnormal 
termination. xx is the decimal program check code. 


system CMS has invoked the abnormal termination. 


Figure 68. VS APL Abend Codes 


Additional Information for Program Check 


If a program check was responsible for the abnormal termination 
Cuser code Ilxx), message APLOI8I is printed at the terminal. It 
contains the address and program check code from the program 
check PSW. Register 2, at the time of the abnormal termination, 
contains the address of the PIE. The PIE in turn contains the 
Program check PSW and registers 14 through 2 as they were at the 
time of the program check. Registers 3 through 13 at the time of 
the program check are stored as registers 3 through 13 in the 
STAE work area. 


AFTER INITIALIZATION 


If an error occurs during operation of the VS APL processor, 
error messages are issued, and dumps may be produced at the 
system printer at the user's option. 


System Error in the Interpreter or Translator 


When a system error occurs in the interpreter, messages APL108I, 
APL109I, and APL110D are issued. They identify the error as a 
system error and prompt the user on what action to take to 
produce a dump. If the dump is taken, it contains a dump of the 
active workspace area and the PERTERM header block. Headings 
within the dump explain its contents. See also “How to Interpret 
the Terminal Mini~Dump"™ and “How to Interpret the Snapshot 
blorkspace Dump Produced at the Printer." 


Whether a dump is taken or not, a system error message is issued 
at the terminal. It contains the PSW and register information. 


Program Check in the Executor 


Lic 
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When a program check occurs in the executor, messages APLI1O2I, 
APL1041, APL105I, and APL1IO06I are issued at the terminal. These 
messages provide information about the PSW and registers at the 
time of the program check. The processor forces an abnormal 
termination with an ABEND code of lxx, where xx is the program 
interrupt code. 


After abnormal termination, a STAE exit routine receives 
control. This routine issues message APL115I and prompts the 
user with message APL103D on how to produce a full storage dump 
at the printer. The full storage dump contains the contents of 
the active registers at the time of the interrupt. The registers 
contain the following information: 
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Register 2 contains the address of the 104-byte STAE work area. 
The format of the STAE work area is described in OS/VS2 System 
Programming Library: Supervisor. The work area contains the 
registers and PSW at the time of abnormal termination. 


Register 8 in the dump contains the ABEND code. The ABEND code 
is either the hexadecimal equivalent of decimal lxx (program 
check) or 001 Cfor abnormal termination issued by the executor). 
For is latter case, the previous message has explained the 
problem. 


Register 10 contains the address of the executor global table. 


Register 11 contains the address of the active workspace area. 


Program Interrupt in the Shared Storage Manager or Auxiliary Processor 


If program interrrupt has occurred in the shared storage manager 
or one of the auxiliary processors, the processor issues message 
APL114I. The error is handled in the same manner as an 
interpreter or translator system error (described above), except 
that the user is prompted to request a full storage dump instead 
of a snapshot workspace dump. If a dump is taken, it contains 
the contents of the registers at the time of the interrupt. 
Register 10 in the dump points to the global table, which 
contains the addresses of the auxiliary processors, shared 
memory, and the auxiliary processor work areas. 


Abnormal Termination in the Executor 


If abnormal termination occurs in the executor, the messages 
1ssued and STAE exit routine processing are the same as for 
Program Check in the Executor (see above). 


( Program Check Loop in the VS APL Processor 


HOW TO PRODUCE 


During error recovery, a second program check may occur in the 
processor. In this case, the processor issues messages APLIOLI, 
APL1041, APL105I, and APL1Q6I. Then it prints at the terminal 
the PSW and the contents of the registers at the time of the 
second program check. Then it issues message APLI15I. To obtain 
a full storage dump in this case, follow the procedure described 
in "How to Produce a Dump." 


This dump will contain information about the first and second 
program checks that have occurred. The registers and PSW that 
are printed are those at the time of the second program check. 


To obtain information about the first program check, find the 
address of the global table at absolute address X'440' in NUCON. 
The global table contains the address of the WSM at a 
displacement of X'48'. WSMREGSV contains the contents of 
registers 0 through 15. The doubleword at WSMPCPSW contains the 
PSW at the time of the first program check. 


A DUMP 


Three types of dumps are possible: an ordinary full system dump 
of all of virtual storage, a snapshot dump of the active 
workspace, or a mini~dump of the registers and other 
information. 


In certain cases the processor prompts the user on which dump to 
request and how to request it. If, however, the processor loses 
control, the user may request a full system dump, using the 
facilities of CP, in the manner described below. 
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Full System Dump 


For a full system dump, type: 


DUMP O-END - 


CLOSE PRINT 
BEGIN 
Snapshot Workspace Dump 
For a snapshot workspace dump, type: 


BEGIN xxxxxx 


where xxxxxx i185 an address provided in the prompt line that 


appears at the terminal after a system error has occurred in the 
VS APL processor. 


The mini-dump is produced automatically at the terminal for 
certain system errors. 
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Sample Prompting Sequence 


APL1 
To take a 
BEGIN 
To skip a 
BEGIN 
ADSTOP 
CP 
If you wa 


BEGIN 2 


An example of the prompting sequence is shown in Figure 69. 


08I SYSTEM ERROR IN APL PROCESSOR. 
workspace dump on the printer, type: 
OZ16AE 


workspace dump, type: 


AT 17728E 


nt a snapshot dump of the active workspace, type at the keyboard: 


16AE 


The system will respond like this: 


( DUMPING 
DUMPING 
DUMPING 
DUMPING 
DUMPING 
DUMPING 
DUMPING 
DUMP ING 
DUMPING 
DUMPING 
DUMPING 
DUMPING 
DUMPING 


/ DUMPING 
( DUMPING 
DUMPING 


DUMPING 
DUMPING 
DUMPING 
COMMAND 
COMMAND 


Loc 050000 
LOC 060000 
LOC 070000 
Loc 080000 
LOC 090000 
LOC 0A0000 
LOC 0B0000 
LOC 
LOC 
LOC 0E00 
LOC OFOD 
LOC 1000 
LOC 1100 
LOC 1200 
LOC 1300 
LOC 1400 

0 

0 

0 

E 

E 


— T= 
oN 
— Ka) 
ecC°O 
oO 
Q 


LOC 15 


ooo0oqoo0°ooo9°q”e 
oooocqocoooooe 


The snapshot workspace dump will be produced at the system printer. 


Following 


If you do 
oS BEGIN 


the above response is a& mini-dump, as described below. 


not want the snapshot workspace dump, simply type: 


The system will respond with a mini-dump like this: 


10:31:16 
00000000 
00000008 
42FC6000 
CLEAR WS 


Figure 69. 


04711781 SYSTEM ERROR 00 0002 0000 0001 5c02D9DC 

00000000 00000010 O012C15E 000008CC 00000028 Z2BO0SA9A0 OO02ZECA2 
00000020 00000004 00049000 O002CFD8 00176C60 00176C80 5C02D9C4% 
00000000 00000000 00000000 00000000 90000000 000000000 


Sample Prompting Sequence 


Licensed Material—Property of JBM 
Diagnosing Errors 473 


HOW TO INTERPRET THE TERMINAL MINI-DUMP 


The terminal mini-dump consists of five lines. The first line ; 
contains the time and date: 


10°31°16 04/11/81 
the indication: 
SYSTEM ERROR 
two characters of meaningless data: 
00 
the dump number: 
a002 


the system error code: 


000d bO01 
and the right half of the PSW (the address of the instruction } 
where the error was detected). 


The second and third lines contain the contents of registers 0 
through 15 at the time the error occurred. 


The fourth line contains the contents of the floating-point 
registers. 


The fifth line contains the message: 
CLEAR WS 


indicating that the user's workspace has been cleared and is 
ready for new input. 


How to Determine the Type of VS APL System Error 


There are three types of system errors for the VS APL processor; 
they may be distinguished by examining the system error code. 


The three types appear in Figure 70. 


Error Code Meaning 


0000 xxxx If the first word of the system error code is 
0900, it is a system error in the interpreter or translator. 
xxxx 15 the hexadecimal UGH code. For a description of the 
UGH codes, see Figure 6 


nnnn 8000 If the second word is 8000 (first bit is 1), it is a system 
error in the executor. nnnn is the service request code value. 
The service request codes are listed under 
"Service Request Calls” in "Linkage Conventions" 
at the beginning of this section. 


XXX YYYY Program check. The two words are the left half of the PSW, 
where yyyy is the program check code as documented in 
IBM System/370 Principles of Operation. 


Figure 70. VS APL Processor System Errors. 
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HOW TO INTERPRET THE SNAPSHOT WORKSPACE DUMP PRODUCED AT THE PRINTER 


The snapshot workspace dump contains the contents of the active 
workspace area and the PERTERM header. The dump of the active 
workspace contains: the general and floating-point registers of 
the executor at the time the dump was requested (not relevant 
for debugging purposes), the keys (always provided by.CP in a 
dump), the executor’'s PSW (not relevant), and the contents of 
the workspace. 


Where to Find Information in the Snapshot Workspace Dump and the Mini-Dump 


Register 10 in the dump contains the address of the executor 
global table. With the aid of the global table format in "Data 
Areas," the global table can be used to locate the WSM and other 
control blocks useful for debugging. 


HOW TO LOCATE THE TOP TOKEN ON THE OPERATION STACK: The top 
token on the operation stack is at the address in WSMTSADR plus 
four bytes. WSMTSADR is at the address contained in register ij 
Plus X'0954' bytes. 


HOW TO DETERMINE THE ROUTINE/MODULE WHERE THE ERROR OCCURRED: 
Obtain a link edit map. It shows the load address of each 
module. In the mini-dump produced at the terminal, register 12 
contains the address of the routine/module (CSECT) that was 
functioning when the dump occurred. 


PROGRAM CHECKS AND DUMPS UNDER TSO 


When a severe error occurs under TSO, the following actions are 
taken: 


1. If the data set APLDUMP is allocated, a dump is taken. 
2. The command )CONTINUE is issued. 
3. The command )OFF HOLD is issued. 


ABNORMAL TERMINATION/SYSTEM ERROR/PROGRAM CHECK UNDER VSPC 


When a severe error in the VS APL processor occurs, the 
processor or VSPC routines receive control, perform limited 
error handling, produce messages, and provide dumps. 


When a severe error occurs in the executor, one of the above 
messages is logged» a dump is taken, and VS APL is terminated 
abnormally. The dump is a VSPC dump as described in VS Personal 
Computin VSPC) Progr ogic. 


When a severe error occurs in the interpreter or translator, a 
mini-dump is printed at the terminal. See "How to Interpret the 
Terminal Mini-Dump," above. All dumps and the system log are 
sent to the operator. In all cases, a ‘SYSTEM ERROR’ message is 
received. 


When an error occurs during operation of the VS APL processor, 
error messages are issued, and dumps are produced at the system 
printer. 


SYSTEM ERROR IN THE INTERPRETER OR TRANSLATOR: Errors in the 
interpreter or translator that cannot be handled by these 
routines will produce the common CMS/VSPC message at the 
terminal: ‘xx SYSTEM ERROR xyz - REGS xx’ followed by clear 
workspace. A dump and a log message are produced. 
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VS_ APL MICROCODE ASSIST 


Some systems use the VS APL microcode assist. If an error 
persists that may involve this assist (or its software 
interface), the following can be used to determine this 
involvement: Perform the same VS APL procedure that 1s causing 
the error, without using the assist. (The test for microcode can 
be cancelled by an option of the DEBUG operand of the APL 
command.) If the error does not occur, it 18 probably in the 
assist or in the VS APL software interface (although it may be a 
user error); if the error continues to occur, jit 1s probably not 
in either the assist or the VS APL software interface. 


DEBUG OPERAND OF THE APL COMMAND 


DEBUG jis an optional operand of the APL or VSAPL command; it 

alters the normal error recovery actions of VS APL so that 

abnormal operating situations may be recorded and isolated for 

debugging. For a description of its options and their effects, 

see VS APL for CMS: Terminal User's Guide or VS APL for TSO: ) 
Terminal User's Guide. 


INFORMATION NEEDED FOR PROBLEM DETERMINATION AND DIAGNOSIS 


If you submit an APAR or contact IBM central service about an 
apparent error in the VS APL processor, you will be asked to 
supply information that is needed to diagnose and correct 
problems. Please be ready to do the following: 


1. Identify the operating system, with the versions and release ) 
levels that apply; for example: 


e ¥VM/370, CMS Version 2, PLC15 
e OS/VS2 MVS, Release 3.8, TSO 
e DOS/VSE, Release 36, CICS/VS Release 1.5.0 


2. Identify the VS APL release level; for example: VS APL, 
Release 46.0. 


3. Identify the processor; for example: $/370, Model 145. 


4. Tell whether or not your processor has the APL microcode J 
assist feature; if it has, give its Engineering Change (EC) 
level. Tell also whether the error is in VS APL or in the 
microcode assist. (For suggestions, see the sections above 
Ae a, Microcode Assist” and "DEBUG Operand of the APL 
ommand. 


5. Describe any modifications made to VS APL by your 
installation. Tell the names of object modules and routines 
that have been modified locally. 


6. Tell how reproducible the error is: 
Can it be reproduced always? 
e Can it be reproduced only sometimes? 


e Have you not been able to reproduce it? 


If the error is reproducible, reproduce it in the most 

direct way possible. For example, reduce the number of 

statements within a user-defined function to the fewest 
needed to cause the error to occur. 





Licensed Material—Property of IBM 
476 VS APL Program Logic 


10. 


ll. 
12. 


13. 


Identify and describe any auxiliary processors that were 
active when the error occurred. 


If possible, provide a printout of a terminal session 
showing the error and how to reproduce it. 


Provide a current linkage editor map of all VS APL load 
modules. (This map is generated when VS APL is installed and 
when maintenance updates are made.) 


If the error is a system error or an abnormal termination, 
provide a dump of the active workspace. 


For VSPC, provide a copy of the user profile. 


For CICS/VS, if an abend occurred, provide a listing of the 
CICS/VS dump data set. (If the error occurs in the VS APL 
APLT or APLX transaction, take a CICS/VS partition dump; in 
other cases, a CICS/VS Snap dump will suffice. 


For CICS/VS, provide a CICS/VS auxiliary trace when the 
CICS/VS incore trace does not show the source of a problem 
and the error appears to be in a VS APL executor module. 
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(Nomes of individual entry points 

can be easily found in Section 3. 

Program Organization, organized in 
alphabetic order. 


Entry points and modules sorted 
either by module name or by entry 
point can be found in Section 4. 
Directory. 


Because of their ease of search, 
entry points and module names are 
excluded from this index.) 
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abend services 5 
abends 
CICS/VS 455-469 
CHS 469-475 
TSO 475 
VSPC 475 
abnormal termination and dumps 
454-477 
ACCALL 
generated code 430 
macro 429 
ACENTRY 
generated code 429 
macro 428 
ACENTRY2 
ganarated code 429 
macro 429 
ACEXIT 
generated code 430 
macro 430 
active blocks 
descriptor conventions 241 
format of variables 241 
address’ table 
(sea also workspace, address 
table) 
imnediate and remote objects 224 
management 228 
Bec onene and temporary objects 
5) 
22 
reserved entries 227 
sections 227 
symbol table 228 
system variables 227 
temporary entries 228 
APC (XSYS, AP) 255 
APFT (VSPC) 257 
APLCALL 
generated code 399 
macro 397 
APLCALLS 
generated code 434% 
macro 
APLCCALL 
generated code 405 
macro 404 
APLCENTR 
generated code 404 
macro 
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APLENTR 
generated code 406 
macro 
APLENTRY 
generated code 400 
macro 398 
APLEXIT 
generated code 399,405 
macro 398,405 
APLKEXIT macro 410 
APLKG macro 411 
APLKHIST macro 412 
APLKMAIN macro 413 
APLKPOP 
generated code 409 
macro 408 
APLKPROC 
generated code 409 
macro 408 
APLKSTACK 
generated code 409 
macro 408 
APLKT macro 413 
APLKTERIM macro 414 
APLKTRCE macro 416 
APLPENTR 
generated code 406 
macro 406 
APLPEXIT 
generated code 407 
macro 406 
APLSVCC 
generated code 417 
macro 417 
APLXCALL 
generated code 402 
macro 
APLXEND 
generated code 4355 
macro 434 
APLXNTRY 
generated code 402 
macro 402 
APLXPROC 
generated code 436 
macro 435 
APM (CICS, XSYS) 262 
argument blocks 222 
arithmetic progression vector 240 
ATW (CICS, AP) 263... 
auxiliary processors 
CICS/VS 6,48 
CMS 7,39 
common auxiliary processor 
services 
CcicsvvsS 1141 


CNS 108 
TSO 108 
data file 
CMS 117 
CSG): ae 


error message/module 
cross-reference 438-453 


GDDM 
CIcsvvs 115 
CMS 115 
TSO 115 





program interrupt 471 
session manager, VS APL 
CMS 113 
TSO 113 
TSO 7,53 
VSPC 8 
available name chain 228 


bit meanings 234 

BND (XSYS, AP) 265 

branch processing 77-79 
buffer Cinterpreter) data area 220 
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CICcS/VS 
abend codes 457-458 
abends 455-458 - 
auxiliary processors) 6,48 
common auxiliary processor 
services) 111 
conmunication with 43-45 
conversion program 8 
dumps 455-458 
error handling 455-469 
error message/module 
cross-reyerence 440-442 
error message, CICS/VS service 
program 440-442 
executor data area 
interrelationships 251 
executor linkage conventions 
407-416 
GDDM 115 
program checks 455 
service program library 
8,100-101 
shared storage manager 
general description 6,4%6-47 
register usage 432 
save areas 432 
trace information 459-469 
CIT «cIcS, SERV) 267 
CMS (Conversational Monitor System) 
abend codes 470 
asynchronous handling 33 
auxiliary processors 
common auxiliary processor 
services 1908-110 
data file 117-118 
GDDM 115-116 
general description 7 
session manager, VS APL 
113-114 
communication with 32 
conversion under CMS 96 
dumps 469-475 
error handling 15 
error message/module 
cross-reference 444-445 
executor global table 249 
executor linkage conventions 403 
initialization 33 


problem determination 476-477 
program check 469-473 
prompting sequence 473 
service request handling 34 
shared storage manager 36-38 
snapshot workspace dump 472 
system errors 474 
CMSGL (CMS, XSYS, AP) 269 
common auxiliary processor services 
(See also GDDM auxiliary processor) 
cIcs/vVvsS 111 
CMS 108 
TSO 108 
common executor linkage 432-436 
communication 
With CICS/VS 43-45 
with CNS 32-35 
with TSO 50-52 
with VSPC 24-26 
component linkage 
APL library service program 401 
CICS/VS 497-416 
eo shared storage manager 
432 
CMS executor 403 
CMS shared storage manager 431 
common executor 432-436 
conversion program 428-430 
Exarch 401-403 
service request calls (all 
systems) 416-427 
TSO executor 35 
TSO shared storage manager 431 
VS APL interpreter 397-400 
VSPC 407 
component naming conventions 
general description 16-17 
control block formats 
acronym meanings 254 
APC C(XSYS, AP) 255-256 
APFT (VSPC) 257-261 
APti (CICS, XSYS) 262 
ATW (CICS, AP) 263-264 
BND (XSYS, AP) 265-266 
CIT «CICS, SERV) 267-268 
CHSGL (CMS, XSYS»> AP) 269-285 
DESC (CICS, XSYS, AP) 286 
DIB (CICS, XSYS) 287-288 


DIR (CICS, SERV) 289-290 

DiiP (CICS, XSYS, AP) 291-292 
DRB (TSO, XSYS) 293-294 

ECA (VSPC) 295-297 

FAB (CICS, XSYS, AP) 298-300 


FB CCONV, NTRP) 301 

FEB (CICS, SERV) 302-303 
FFLD (VSPC) 304-308 

FHED (CONV, NTRP? 309 

FSP (CICS, SERV) 310 

GBL CCICS, XSYS, AP) 311-313 
GDC CVSPC, XSYS, AP) 314-316 
GDM (XSYS, AP) 317-318 

LSC (CICS, SERV) 319 

MAI (XSYS, AP) 320-321 


OPS (CICS, AP) 322 

PCV CALL) 323 

PRD (XSYS, AP) 324 

PRM CCICS, XSYS, AP) 325-328 
PRO CCICS, SERV) 329-331 

PTH CALL) 332-333 

PTK (CICS, XSYS, AP) 334-341 
PTX CALL) 342-344 

SCV CALL) 345-347 

SGN (CICS, XSYS, AP) 348 
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SHVAB (XSYS) 349-350 

STK (CICS, XSYS, AP) 351 

TBL (CICS, AP) 352 

TCD (CICS) 353-354 

TRD CXSYS, AP) 355 

TRQ (CICS, XSYS) 356-357 

TSOGL (TSO, XSYS, AP) 358-386 

VCT CALL) 387-388 

VRD (XSYS, AP) 389 

WSM CALL) 390-393 

WSX CALL) 394 
conversion program 8,428-430 
conversion workspace 96-100 
cross-system executor services 4-5 
current operator Cinterpreter 
transient area) 221 


[P| 


data areas 
acronym meanings 254 
APC (XSYS, AP) 255-256 
APFT (VSPC) 257-261 
APM (CICS, XSYS) ° 262 
ATW CCICS, AP) 263-264 
BND (XSYS, AP) 265-266 
CIT (CICS, SERV) 267-268 
CMSGL (CMS, XSYS, AP) 269-285 
control block formats) 254 
DESC (CICS, XSYS, AP) 286 
DIB (CICS, XSYS) 287-288 
DIR (CICS, SERV) 289-290 
DMP C€CICS, XSYS, AP) 291-292 
DRB (TSO, XSYS) 293-294 
ECA (CVSPC) 295-297 
executor 249-251, 253 
FAB (CICS, XSYS, AP) 298-300 
FB CCONV, NTRP) 301 
FEB (CICS, SERV) 302-303 
FFLD CVSPC) 304-308 
FHED CCONV, NTRP) 309 
FSP (CICS, SERV) 310 
GBL (CICS, XSYS, AP) 311-313 
Gbdc cvsPc, XSYS, AP) 314-316 
GDM ¢(XSYS, AP) 317-318 
interpreter 219-247 
Lsc (CICS, SERV) 319 
MAI (XSYS, AP) 322 
PAI (CXSYS, AP) 320-321 
PCV CALL) 323 
PRD (XSYS, AP) 324 
PRM (CICS, XSYS, AP) 325-328 
PRO (CICS, SERV) 329-331 
PTH 332-333 
PTK S, XSYS, AP) 334-341 
PTX > 342-344 
scVv > 345-347 
S 
$ 


Ld 


NNN 
OrrPpoaor,r 


SGN » XSYS, AP) 348 
SHVAB YS) 349-350 

STK (CICS, XSYS, AP) 351 
TBL (CICS, AP) 352 

TCD (CICS) 353-354 

TRD CXSYS, AP) 355 

TRG CCICS, XSYS) 356-357 
TSOGL (TSO, XSYS, AP) 358-386 
VCT CALL) 387-388 

VRD CXSYS, AP) 389 

WSM CALL) 390-393 

WSX CALL) 394 


L 
I 
L 
L 
I 
( 


MOrror 
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data file auxiliary processor 
CCMS/TSO) 117-118 

DESC (CICS, XSYS, AP) 286 

diagnosing errors 437-477 

diagnosis and problem determination 

476-477 

diagnostic aids 395-477 

DIB (CICS, XSYS) 287 

DIR (CICS, SERV) 289 

directory, module 207-218 

distributed workspaces 3 

DMP CCICS, XSYS, AP) 291 

DN word bit meanings 240-241 

DRB (TSO, XSYS) 293 

dumps 

Ccics/vs 
APLU 457-458 
dump codes 458 
formatted trace 459-469 
general description 455-469 
program checks 455-458 
storage dumps 457 
trace table information 
459-469 
CMS 


abnormal termination 471 
full system dump 472 
initialization of processor 
469-471 
interpreter or translator 
error 
producing a dump 471-475 
program check of dumps 
469-475 
sample prompting sequence 473 
snapshot workspace 472-475 
terminal mini-dump 474-475 
type of processor system 
errors 474 
TS50, actions taken 475 
VSPC 
abnormal termination 475 
interpreter or translator 
error 475 
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ECA CVSPC) 295 
error handling 
CIcs/svsS 15 
CMS 15 
TSO 15 
VSPC 16 
error message/module cross~reference 
auxiliary processors 438 
CICS/VS executor 440 
CICS/VS service program 440-442 
CMS executor 444-445 
identifiers and sources) 437 
session manager 442-7443 
TSO executor 447-450 
TSG workspace conversion 439 
VSPC executor 443 
workspaces 445-446 
exarch routines 
appendage routines 4 
component identifier 17 
definition 1 
general description 1,3-4,8 








Cc 


linkage calling macros 401-403 

modules 

nanes of service routines prefix 

403 

nonstandard linkage 401-403 

reference to R13 stack 248 

register usage 401 

transfer of control 4902 
exarch/appendage connunication 222 
execution 

statement scan 69-73 

syntax analysis 69-73 
executor 

abend (CHS) 469 

general description 4 

program checks 


CMS 470 
TSO 475 
VSPC 475 


executor data areas 249 
executor global table (TS0) 249 
executor linkage calls 

APLCCALL 404 

APLCENTR 404 

APLCEXIT 405 

APLKEXIT 410 

APLKG 411 

APLKHIST 412 

APLKMAIN 413 

APLKPOP 408 

APLKPROC 408 

APLKSTAK 408 

APLKT 413 

APLKTERM 414 

APLKTRACE 416 
executor linkage conventions 
register usaga 4053 
executor services, cross-system 4 
executor stack for CICS 

content 250 

format 249 

general description 249 
executor stack for VS APL 249 
executor transient area 220 
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FAB C€CICS, XSYS, AP) 2938 

fast branch operators) 236 

FB CCONV, NTRP) 301 

FES (CICS, SERV) 302 

FFLD CVSPC) 304 

FHED (CONV, NTRP) 309 

free space 
block format 240 
general description 240 
groups 245 ; 
management 247 
Printnames 245 

freespace 
descriptor conventions 241 
variables 24] 

FSM (full screen management) 27 

FSP (CICS, SERV) 310 

function call 
build function call block 74 
general description 74 

function control block (FCB) 
dummy entries format 237 


format 238 

general description 237 

pendant functtons 238 
function definition 

function reader 64 

general description 64 
function edit 

build internal tokens 59 

general description 59 

new and existing function 59 
function editing 61 
function exit processing 2 
function header 64,245,246 
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GBL ¢<CICS, XSYS, AP) 311 
GDC 314 
GDDM auxiliary processor 
(see also common auxiliary 
processor services) 
for CICS/VS 115-116 
for CMS 115-116 
for TSO 115-116 
GDM CXSYS, AP) 317 
general literals 231 
graphic symbols used 21 
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hexadecimal UGH codes 450-453 


immediate objects format 224 
implied service requests (Call 
systems) 427 

indirect operators 237 
initialize for communication with 
CMS 32 

input recognition 57 

interface services component 
C(GDDM) 4 , 
internalfexternal names 223 

interpreter functions 3-4 

interpreter transient area 221 

Ong! Preter/translator communication 
222 

invalid literals 233 


libraries, VS APL 8~9 
library requests 424-426 
library service 

register usage 401 
literals 231 
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common executor stack 253 
components, table of 19-20 
distributed workspaces 8-9 
environment 2 

executor 4 

general description 1-3 
interpreter 

interpreter linkage 397-401 
libraries 8-9 


operation considerations 13-14 


overview 1-2 
overvien diagram 22 
physical characteristics 
flow of control 11,13 
load modules 10 
object modules 10 
program check loop 471 
Purpose and function 
auxiliary processors 6-8 
executor 
general description 3-190 
interpreter 3 
program library 8 
register usage 397 
shared storage manager 5-6 
system configuration 13-14 
translator 
workspace 9,219 
(see also workspace, VS 
APL) 


VS APL session manager 


auxiliary processor (CMS/TSO and 


CICS/VS) 113-114 

executor processor 106-107 
executor schedule 104-105 
general cescriptiaon 5 

VSPC (CVS Personal Computing) 
auxiliary processors) 8 
communication with 24-26 
component 1 
component identifiers 17 
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dumps 469 

environment 2 

error handling § 16 

executor function 1 

executor linkage conventions 407 
executor messages 443 

load modules 11 

modules 4 

operational considerations 13 
service programs 8 

shared variable processing 27-31 
storage manager reference 5,431 
system configuration 13-14 

workspace 8 

workspace conversion program 
details 96-7100 


[| 


workspace 


conversion 96-100 

distributed 9 

free space, management 247-248 
interpreting the snapshot 475 
libraries 

messages 445-446 

problem determination 476-477 
relocation (translator) 221 

R13 stack 248 

TSO conversion messages 439 

UGH codes 450 

values for service requests (all 
systems) 417-427 

VS APL 219 

¥VSPC 248 


WSM CALL) 390 
WSX CALL) 394 
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